Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51156 / 76732

←次へ　｜　前へ→


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

1 hits

▼

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