Excel VBA質問箱 IV

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

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


51162 / 76738 ←次へ | 前へ→

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

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

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