0

VBA を初めて使用するので、Excel でマクロを作成する方法について教えてください。

比較したい 2 つのシートを含むファイルがあります。シート 1 の列 G (シリアル番号) とシート 2 の列 C (シリアル番号) を比較する必要があります。シート 2 の列 K = D (廃棄ステータス) の場合は、シート 1 の列 G を色で強調表示します。

別のスレッドでこのコードを見つけましたが、「and」部分を機能させることができません。

**Sub Compare2()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet 2")
For Each i In ws2.Range("G2:G30")
    For Each C In ws1.Range("C2:C50")
    For Each L In ws2.Range("K2:K50")
        If i.Cells.Value = C.Cells.Value And L.Cells.Value = "D" Then
                               i.Cells.Interior.ColorIndex = 3
        End If

    Next
   Next
Next
End Sub**
4

2 に答える 2

0

別の IF ステートメントを入れ子にしてみてください

**Sub Compare2()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet 2")
For Each i In ws2.Range("G2:G30")
    For Each C In ws1.Range("C2:C50")
        For Each L In ws2.Range("K2:K50")
            If i.Cells.Value = C.Cells.Value Then
                If L.Cells.Value = "D" Then
                               i.Cells.Interior.ColorIndex = 3
                End If
            End if
        Next
    Next
Next
End Sub**`
于 2013-06-28T12:58:09.040 に答える