更改单元格背景颜色取决于下拉
问题描述:
完全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
答
试试这个,
If Not Application.Intersect(Target, Me.Range("C6:G14")) Is Nothing Then
的伎俩,欢呼声。我可以问为什么它不与交叉工作? – Zac 2015-02-23 10:42:11