
No.1ベストアンサー
- 回答日時:
こんにちは
VBAで行うような内容でも無いと思いますが、こんな感じでしょうか?
Sub Q13021270()
Dim r As Range, c As Range
Dim mn As Long, mx As Long
Set r = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
Cells(2, 3).Resize(Rows.Count - 1).Interior.Color = xlNone
mn = r(1).Row
mx = r(r.Cells.Count).Row
If mn < 2 Then Exit Sub
For Each c In r.Offset(, 3).Cells
If c.Value = "使用" And c.Offset(, 1).Value = "使用" Then _
Range(Cells(Application.Max(c.Row - 6, mn), 3), Cells _
(Application.Min(c.Row + 3, mx), 3)).Interior.Color = vbYellow
Next c
End Sub
※ 処理範囲の判断は、B列に値のある範囲までとしています。
※ E、F列の値は"使用"という文字列が入力されているものと仮定しています。
※ 上記の処理ではG列は使用していませんので、不要なら削除可能です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA sum ワークシートChange
-
Excelで、あるセルの値に応じて...
-
rowsとcolsの意味
-
Worksheets メソッドは失敗しま...
-
期限を超えた日付に警告のメッ...
-
【Excel VBA】カンマと改行コー...
-
IIF関数の使い方
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
Excel VBA_2000ハイパーリンク...
-
DataGridViewに空白がある場合...
-
マクロについて。S列の途中から...
-
C# dataGridViewの値だけクリア
-
VBA 何かしら文字が入っていたら
-
VBA 値と一致した行の一部の列...
-
重複データをまとめて合計を合...
-
ExcelVBAで配列2つを結合させ...
-
vba 重複データ合算
-
VBA A列にありB列にないものま...
-
VBAで特定の範囲の入力が出来な...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Cellsのかっこの中はどっちが行...
-
Worksheets メソッドは失敗しま...
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
Changeイベントでの複数セルの...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
DataGridViewに空白がある場合...
-
VBAで、特定の文字より後を削除...
-
URLのリンク切れをマクロを使っ...
-
エクセル 2つの表の並べ替え
-
VBAを使って検索したセルをコピ...
-
VBAコンボボックスで選択した値...
-
VBAでのリスト不一致抽出について
-
複数csvを横に追加していくマク...
-
C# dataGridViewの値だけクリア
-
データグリッドビューの一番最...
おすすめ情報