Sub 按钮1_单击()For Each Range In Range(a1, e200) '这个区域可以是固定的也可以是变量 If Search("-", Range.Value) > 1 Then Range.Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With End If Next End Sub 执行,提示参数不可选,指向Each Range 中的Range,为什么呢?
应该这样写吧: Sub 按钮1_单击() Dim rg As Range For Each rg In Range("a1: e200") '这个区域可以是固定的也可以是变量 If InStr(rg.Value, "-") > 1 Then rg.Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With End If Next End Sub
If Search("-", Range.Value) > 1 Then
Range.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
End Sub
执行,提示参数不可选,指向Each Range 中的Range,为什么呢?
Sub 按钮1_单击()
Dim rg As Range
For Each rg In Range("a1: e200") '这个区域可以是固定的也可以是变量
If InStr(rg.Value, "-") > 1 Then
rg.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
End Sub