VBA For文で回したいループが3項目ある場合

Question

【やりたいこと】
画像のような表で、「値2」のレコードの値が、AAA,BBBで設定している数値(AAA:20、BBB:21)よりも下である場合に、
背景色に色を付ける。
⇒2行目の4列目のセル(10),
4行目の5列目のセル(15)に色を付ける。

【書いたコード】
Dim x As Integer
Dim y As Integer
Dim z As Integer
For x = 1 To Cells(1, 3).End(xlDown).Row Step 2
For y = 2 To Cells(1, 3).End(xlDown).Row Step 2
For z = 4 To Cells(1, 1).End(xlToRight).Column
If Cells(y, z) < Cells(x, 2) Then
Cells(y, z).Interior.ColorIndex = 3
End If
Next
Next
Next

【現状】
AAAの「値2」の値とAAAの設定数値(20)を比較するループの後、
BBBにステップした際に、BBBの「値2」の値との比較対象がAAAの設定数値(20)になっている。

【理想】
AAAの「値2」の値と、AAAの設定数値(20)を比較するループの後、
BBBにステップした際に、BBBの「値2」の値とBBBの設定数値(21)が比較されるループが行われる。

if文で比較する対象も動的にするような方法はありますでしょうか？

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim lastRow, lastCol
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
    
    Dim i, j
    For i = 1 To lastRow Step 2
    For j = 4 To lastCol
            If ws.Cells(i + 1, j) < ws.Cells(i, 2) Then ws.Cells(i + 1, j).Interior.ColorIndex = 3
    Next
    Next
End Sub

Comments

[mhoby_vt]

できました！
助かりました。ありがとうございます。