2

Excel で VBA マクロを使用するのは初めてで、別のセルが空でないという条件に基づいてセルの背景色を変更しようとしています。私はそれを理解したと思っていましたが、変更する「Interior.Color」をどの色に指定しても、セルが醜い青色に変わるため、何か間違ったことをしているに違いありません。コードは次のとおりです。

Sub Hello()
    MsgBox ("Hello, world!")

    Dim shSource As Worksheet
    Dim shDest As Worksheet

    Set shSource = ThisWorkbook.Sheets("Box Channel Tracking")
    Set shDest = ThisWorkbook.Sheets("Box Channel Schematic")

    If shSource.Range("C176").Value <> "" Then
        shDest.Range("E8").Interior.Color = RGB(255, 255, 255)
        shDest.Range("E8").Interior.Pattern = xlSolid   
    Else
        shDest.Range("E8").Interior.Color = Red
        shDest.Range("E8").Interior.Pattern = xlSolid  
    End If
End Sub
4

2 に答える 2