Excel VBA質問箱 IV

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

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


51174 / 76738 ←次へ | 前へ→

【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
の一行一行のプログラムの説明がしたいのですが、うまく説明ができません。
詳しく教えてください
0 hits

【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 お礼

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