Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8899 / 13646 ツリー ←次へ | 前へ→

【30438】プログラムの説明(働き) 05/10/27(木) 16:56 質問[未読]
【30442】Re:プログラムの説明(働き) 角田 05/10/27(木) 18:10 回答[未読]
【30456】Re:プログラムの説明(働き) 05/10/27(木) 22:04 お礼[未読]
【30447】Re:プログラムの説明(働き) かみちゃん 05/10/27(木) 20:05 発言[未読]
【30457】Re:プログラムの説明(働き) 05/10/27(木) 22:05 発言[未読]
【30450】Re:プログラムの説明(働き) ponpon 05/10/27(木) 20:28 発言[未読]
【30455】Re:プログラムの説明(働き) 05/10/27(木) 22:03 お礼[未読]

【30438】プログラムの説明(働き)
質問    - 05/10/27(木) 16:56 -

引用なし
パスワード
   Dim x As Long
  Cells.Select
  Selection.ClearContents
  Range("A1").Select
  
  For x = 1 To 56
    Cells(x, 1).Value = x
    Cells(x, 2).Interior.ColorIndex = x
  Next

Dim x, y As Integer
  Dim n As Long
 
  For y = 4 To 8
    For x = 2 To 6
      n = Cells(y, x).Value
      If n >= 10 Then
        Cells(y, x).Font.ColorIndex = 5
      ElseIf n <= 4 Then
        Cells(y, x).Font.ColorIndex = 3
      End If
    Next x
  Next y

Dim i As Long
   For i = 1 To 56 Step 4
    Cells(i / 4 + 1, 1).Value = i
    Cells(i / 4 + 1, 2).Interior.ColorIndex = i
    Cells(i / 4 + 1, 3).Value = i + 1
    Cells(i / 4 + 1, 4).Interior.ColorIndex = i + 1
    Cells(i / 4 + 1, 5).Value = i + 2
    Cells(i / 4 + 1, 6).Interior.ColorIndex = i + 2
    Cells(i / 4 + 1, 7).Value = i + 3
    Cells(i / 4 + 1, 8).Interior.ColorIndex = i + 3
   Next
の一行一行のプログラムの説明がしたいのですが、うまく説明ができません。
詳しく教えてください

【30442】Re:プログラムの説明(働き)
回答  角田 WEB  - 05/10/27(木) 18:10 -

引用なし
パスワード
   こんにちは。
>の一行一行のプログラムの説明がしたいのですが、うまく説明ができません。
>詳しく教えてください
自分で作られたコードなら
「どういう働きをさせる為に、この命令を使った」
というのが判っているはずですが?

何が、どこが、判らないのでしょう?

【30447】Re:プログラムの説明(働き)
発言  かみちゃん  - 05/10/27(木) 20:05 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>の一行一行のプログラムの説明がしたいのですが、うまく説明ができません。
>詳しく教えてください

まず、以下のURLを参考にしてください。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=30064;id=excel
このURLで私を含めていろんな方がご紹介されているコードのことではないでしょうか?
さらに、それは、何かの課題なのでしょうか?
それであれば、VBAのヘルプを調べることを強くお勧めします。
その上で、わからない「ポイント」を絞って、再度ご質問いただけると答えやすいです。
いきなり、コードを見せられても、解説を一行一行こと細かく書くには、それなりに労力がいります。
悠さんご自身のためです。少し自分でも、がんばってみませんか?

【30450】Re:プログラムの説明(働き)
発言  ponpon  - 05/10/27(木) 20:28 -

引用なし
パスワード
   ▼悠 さん:
こんばんは。
ヘルプを使って自分でも調べましょう。

 ’変数の型宣言
>  Dim x As Long
  
   'シートのセルを全部選んで
>  Cells.Select

  ’選んだセルの値をクリア 
>  Selection.ClearContents
  ’A1セルを選べ 
>  Range("A1").Select

  ’Xが1から56まで繰り返しなさい   
>  For x = 1 To 56

   ’セルA列x行(xは変数)の値をxにして
>    Cells(x, 1).Value = x

   ’セルB列x行(xは変数)の色をカラーインデックスxにしなさい。
>    Cells(x, 2).Interior.ColorIndex = x

  ’xを次の値へ 
>  Next

>と
>  Dim x, y As Integer
>  Dim n As Long
> 
  ’yの値を4から8まで繰り返し
>  For y = 4 To 8

    ’xの値を2から6まで繰り返し
>    For x = 2 To 6

>    ’変数nにセル(y行,x列)の値を代入 
>    n = Cells(y, x).Value

      ’もしnが10以上ならば
>      If n >= 10 Then

     ’セル(y行,x列)のフォントの色をカラーインデックス5にしなさい。
>        Cells(y, x).Font.ColorIndex = 5

      ’それ以外でnが4以下なら
>      ElseIf n <= 4 Then

     ’セル(y行,x列)のフォントの色をカラーインデックス3にしなさい。
>        Cells(y, x).Font.ColorIndex = 3

      ’IFステイトメントは終わり 
>      End If

    ’次のxへ
>    Next x

  '次のyへ
>  Next y
>と

>   Dim i As Long
>   For i = 1 To 56 Step 4

    ’A列のiの値を4で割って1たした行の値をiにして
>    Cells(i / 4 + 1, 1).Value = i

    ’B列のiの値を4で割って1たした行のセルの色をカラーインデックスiに
>    Cells(i / 4 + 1, 2).Interior.ColorIndex = i

    ’以下略
>    Cells(i / 4 + 1, 3).Value = i + 1
>    Cells(i / 4 + 1, 4).Interior.ColorIndex = i + 1
>    Cells(i / 4 + 1, 5).Value = i + 2
>    Cells(i / 4 + 1, 6).Interior.ColorIndex = i + 2
>    Cells(i / 4 + 1, 7).Value = i + 3
>    Cells(i / 4 + 1, 8).Interior.ColorIndex = i + 3
>   Next
>の一行一行のプログラムの説明がしたいのですが、うまく説明ができません。
>詳しく教えてください

【30455】Re:プログラムの説明(働き)
お礼    - 05/10/27(木) 22:03 -

引用なし
パスワード
   ヘルプ見てもよくわからなくて・・・・
わざわざありがとうございます

【30456】Re:プログラムの説明(働き)
お礼    - 05/10/27(木) 22:04 -

引用なし
パスワード
   自分では作ってないです
どうもすいませんでした

【30457】Re:プログラムの説明(働き)
発言    - 05/10/27(木) 22:05 -

引用なし
パスワード
   そうなんですが、一行一行の説明までは書いてないかと・・・
どうもありがとうございました

8899 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free