| |
▼悠 さん：
こんばんは。
ヘルプを使って自分でも調べましょう。
’変数の型宣言
> 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
>の一行一行のプログラムの説明がしたいのですが、うまく説明ができません。
>詳しく教えてください
|
|
ponpon
- 05/10/27(木) 20:28 -
