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

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

ただいまの
回答率

90.47%

  • VBA

    1862questions

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

  • for

    245questions

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

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

解決済

回答 1

投稿

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

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

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

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

    キャンセル

関連した質問

  • 受付中

    VBAにて大項目小項目でそれぞれ非表示、表示機能

    大項目、小項目それぞれで非表示、表示機能を持たせたいのですが難しくなかなか出来ません。 サンプルで作ってみたのですが分かりくかったら申し訳ございません。 このようなプログラミングっ

  • 解決済

    VBからExcelに出力する際に連動して別のセルに単語を出力したい

    VB.net(VS2013)から帳票のEXCEL出力を行っています。 DBから作業開始時刻と終了時刻を別のセルに出力しているのですが、そのどちらかが出力した際に別のセルに”~”を出

  • 受付中

    VBAの効率化

    VBAの効率化(というより基本的な書き方?)についての質問です。 以前作成したコードを再度流用することとなり、知識0の状態で作っていた酷い有様のコードを ちょっとはマシな形にしよう

  • 受付中

    VBAで対象セル内に”NG”が表示されている場合、その列を別シートにコピーする

    VBA初心者です。教えてください。 VBAで対象セル内に"NG"が表示されていた場合、その列の対象セルを別シートにコピーする処理を作成したいです。 例)Sheet1のA2,

  • 解決済

    Excel VBA 特定範囲の重複している列に空白を設定する

    お世話になっております EXCELのVBAや関数を使用し、下記の様な表を編集したいと思っております。 置換前 グループ 項目1* 項目2 項目3 項目X 項目Y

  • 解決済

    VBAにてGoogle検索結果を転記したい。

    本サイトでは、いつも教えて頂き、感謝をしております。 さて、本日も教えて頂きたく。 ■ やりたい事。 下記の様に、B列に会社名が入っており、C列が空欄のシートがあります。

  • 解決済

    VBAのIF文について

    excelのVBAで、セル範囲A1:B10の値で偶数のみ赤く塗りつぶす処理をコードにしたい 質問内容は上記の通りです。 ■実行すると以下のようなエラーが発生します。  発生

  • 解決済

    VBA 条件分岐 while文?

     VBAで背景色をつけたい。エクセルの範囲を指定せずに、複数の条件分岐を実現したい ここに質問の内容を詳しく書いてください。 かなり長文になると思いますが、色々試した結果、手詰まり

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

  • VBA

    1862questions

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

  • for

    245questions

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