1

ExcelのSheet1でのみ機能する次のコードを記述しましたが、このコードをVBAのモジュールセクションに移動します。ご意見をお聞かせください。

コードは次のようになります。

Private Sub ReviewCheck()

Dim i, val1, val2

For i = 1 To UsedRange.Rows.Count
    val1 = UCase(Cells(i, "A").Value)
    If ((InStr(val1, "ABC")) Or (InStr(val1, "XYZ")) Or (InStr(val1, "123"))) > 0 Then
        If UCase(Cells(i, "B").Value) = "N" Then
            'Cells(i, "C").Value = False
            Cells(i, "A").Interior.ColorIndex = 3

        ElseIf UCase(Cells(i, "B").Value) = "Y" Then
            'Cells(i, "C").Value = True
            Cells(i, "B").Interior.ColorIndex = xlNone

        Else
            'Cells(i, "C").Value = False
            Cells(i, "B").Interior.ColorIndex = 6
        End If
    Else
        Cells(i, "B").Interior.ColorIndex = xlNone
    End If
Next i

End Sub
4

1 に答える 1

0

左側のウィンドウを右クリックして、VBE で [モジュールの追加] を選択し、コードをコピーして貼り付けますか? Sheet1 コードを必ず削除してください。

于 2012-11-24T13:26:20.920 に答える