VBA根据另一个单元格

Question

使用： Excel 2010

目标：我试图说“如果D14等于A，则用此RGB填充此范围;否则，如果D14等于B，则用此RGB填充此范围”。如果重要，此脚本位于Private Sub。

问题：我将返回此错误：“运行时错误'1004'：应用程序定义的错误或对象定义的错误”。奇怪的是，它确实起作用并改变了范围的填充颜色，但在正确地执行之后仍然出错。

我尝试了什么：这是我到目前为止一直在玩的代码，但无法弄清楚如何解决

With ThisWorkbook.Sheets("Dashboard").Range("A1:I1")
    If ThisWorkbook.Sheets("Dashboard").Range("D14").Value = "A" Then
        .Interior.Color = RGB(0, 180, 210)
    ElseIf ThisWorkbook.Sheets("Dashboard").Range("D14").Value = "B" Then
        .Interior.Color = RGB(51, 57, 64) 'The debugger says the issue is on this line
    End If
End With

Answer 1

If ThisWorkbook.Sheets("Dashboard").Range("D14").Value = "A" Then

此行定义范围

    .Interior.Color = RGB(0, 180, 210)

这一行你没有

ThisWorkbook.Sheets("Dashboard").Range("D14").Interior.Color = RGB(0, 180, 210)