Sub AA()
If Range("D60") Like "*入*" Then
Range("AM60:AP60").Interior.Color = RGB(255, 0, 0) ' セルが赤色
ElseIf Range("D60") Like "*退*" Then
Range("AL60:AM60").Interior.Color = RGB(255, 0, 0) ' セルが赤色
ElseIf Range("D60") = "空" Then
Range("AL60:AN60").Interior.Color = RGB(255, 0, 0) ' セルが赤色
End If
End Sub
上記の式はシートの60行目についての処理ですが、これを102行目まで同列で同じ処理をしたい場合のループ処理の記載方法を教えて頂きたいです。。。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
For GYO = 60 to 102
IFからEnd IFまで
Next GYO
にします。
IF文の中では、Range("D60")はCells(GYO,"D")、
Range("AM60:AP60")はRange(Cells(GYO,"AM”),Cells(GYO,"AP”))
てな感じに書き換えます。
No.3
- 回答日時:
変更後のコードを見せてもらえますか

No.1
- 回答日時:
こんにちは
直接の回答ではありませんけれど・・
ご提示の処理は色を付けるだけで、「該当しない場合には色を元に戻す」ということは行っていないようですが、元に戻しても良いのなら、条件付き書式を設定しておけば済む話ではないでしょうか?
どうしてもVBAで行いたいのなら、基準のセル位置(あるいは行番号)を変数化して、そこからの相対処理となるように書き換えてループすれば可能でしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが 1 2024/03/07 16:21
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) ダブルクリックでセルの色を変える 1 2022/12/24 15:52
- Visual Basic(VBA) マクロの記録を使用したマクロの実行について 2 2024/06/28 17:20
- Excel(エクセル) VBA Private Sub Worksheet_Changeで 1 2024/05/01 16:59
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) VBAで列を削除 3 2023/02/01 11:00
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) C3とC4のセルに、Visual basicで実行した時入力した値をC3に表示させ、その後に、C3に 1 2023/07/14 09:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
このQ&Aを見た人はこんなQ&Aも見ています
-


VBAのエラー表示の対処法について
Visual Basic(VBA)
-


Visualbasicの現状について教えてください
Visual Basic(VBA)
-


VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-
-
4

質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
5

以下のプログラムの実行結果はどうなると思いますか? その理由も教えてください。
Visual Basic(VBA)
-
6

エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-
7

【ExcelVBA】5万行以上のデータ比較の効率的な処理方法について
Visual Basic(VBA)
-
8

エクセルの改行について
Visual Basic(VBA)
-
9

【ExcelVBA】dictionaryの重複判断の基準(セル結合だと違う値として認識される)
Visual Basic(VBA)
-
10

VBA 2次元配列の出力
Visual Basic(VBA)
-
11

修正依頼:【VBA】 結合セルに複数画像とファイル名一括挿入する方法
Visual Basic(VBA)
-
12

不要項目の行削除方法について
Visual Basic(VBA)
-
13

エクセルVBAで在庫の組み換え処理をしたい
Visual Basic(VBA)
-
14

Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
15

VBAでユーザーフォームを指定回数繰り返して入力を行う方法
Visual Basic(VBA)
-
16

vbaマクロについて
Visual Basic(VBA)
-
17

VBAの「To」という語句について
Visual Basic(VBA)
-
18

【マクロ】変数を使った、文字の種類の変更にて、エラーとなる。
Visual Basic(VBA)
-
19

vbsでのwebフォームへの入力制限?
Visual Basic(VBA)
-
20

[Excel VBA]特定の条件で文字を削除&残す処理をするファイルを作成したいです
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報










回答ありがとうございます。
処理を行うとRangeメソッドは失敗しました と表記されてしまいます。
改善点がわからず苦戦しています、、。