質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.86%

  • VBA

    1551questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • for

    196questions

    for文は、様々なプログラミング言語で使われている制御構造です。for文に定義している条件から外れるまで、for文内の命令文を繰り返し実行します。

VBAでfor文によるセルの指定についてなかなかうまくいかないのでご教授願いたい。

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 153

nashitake

score 6

IT業界1週間目の初心者です。わからないことがあるのでご質問します。
現在for文でセルを指定し、指定された範囲のみに処理をしたいのですがうまくいきません。

具体的にはセル範囲H3;J32に存在している値で偶数のみを赤色にしたい。

 該当のソースコード

Sub As()
'変数の定義
Dim row as Integer, col as Integer 'ループで使う 行と列のIndexの変数

for row=3 to 32'3行目から32行目まで
for col=8 to 10 'H列からJ列まで
If (Range("H3:J32").cells(row,col).value Mod 2) = 0 Then
Range("H3:J32").cells(row,col).Font.ColorIndex = 3
End If
next col
next row
End Sub

 疑問

上記のコードは昨日質問し、回答いただいたものです。for文でセルの範囲を指定していると解釈しているのですが、間違っているでしょうか。余裕があれば教えていただけるとうれしいです。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

Range("H3:J32").cells(row,col) というのが間違ってますね。
これだと、H3:J32の範囲の左上を基準としてセルを指定することになります。
例えば、Range("H3:J32").cells(1,1) はH3セルになります。

単純に、cells(row,col) だけでいいです。

Sub Sample1()
'変数の定義
    Dim row As Integer, col As Integer    'ループで使う 行と列のIndexの変数

    For row = 3 To 32    '3行目から32行目まで
        For col = 8 To 10    'H列からJ列まで
            If (Cells(row, col).Value Mod 2) = 0 Then
               Cells(row, col).Font.ColorIndex = 3
            End If
        Next col
    Next row
End Sub

おまけ
For Each を使うと下記のようにシンプルに記述できます。

Sub Sample2()
    Dim cl As Range

    For Each cl In Range("H3:J32")
        If (cl.Value Mod 2) = 0 Then
            cl.Font.ColorIndex = 3
        End If
    Next
End Sub

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/04/22 17:42

    ありがとうございます。無事解決できました。

    まだ分からないことを多々聞くことになると思いますが、いつか困っている人に回答できるレベルを目指して精進しようと思います。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.86%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • VBA

    1551questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • for

    196questions

    for文は、様々なプログラミング言語で使われている制御構造です。for文に定義している条件から外れるまで、for文内の命令文を繰り返し実行します。