更改单元格背景颜色取决于下拉

Question

完全VBA/Excel的初学者在这里...

我想获得一个单元格的背景颜色改变依赖其下拉菜单选择是选择在一个细胞上，但我得到交叉语句中的类型匹配错误。有人可以向我解释为什么请吗？

代码如下：

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim myRange As Range 
Set myRange = Range("C6:G14") 

If Intersect(Target, myRange) Then 
    MsgBox "Success" 
Select Case Target.Value 
    Case "YES" 
     mycolor = "#84ff84" 
    Case "NO" 
     mycolor = "#fc3c3c" 
    Case Else 
     mycolor = xlNone 
End Select 


End If 


Target.Interior.ColorIndex = mycolor 


End Sub 

Answer 1

试试这个，

If Not Application.Intersect(Target, Me.Range("C6:G14")) Is Nothing Then