我希望根据单元格中选择的文本在 Excel 中对一系列单元格(C2:C7)进行颜色填充(将有一个下拉菜单,其中两个值是“SD”和“CS”)。到目前为止,这是我的代码:
Sub ChangeColor() Dim rCell As Range
With Sheet1
For Each rCell In .Range("C2:C7")
If rCell.Value <= SD Then
rCell.Interior.Color = vbRed
ElseIf rCell.Value <= CS Then
rCell.Interior.Color = vbGreen
Else: rCell.Interior.Color = vbYellow
End If
End With
End Sub
有人告诉我有一个编译错误:End With without With
我刚刚开始使用 VBA,所以有人可以告诉我我做错了什么吗?