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