发布网友
共1个回答
热心网友
你把selection 改成相应的range这样会舒服点。
比如
Range("Q" & i).Select
If Selection.Value = 5 Then
Range("B"&i:"F"&i).Select
Selection.Interior.ColorIndex = xlNone
改成
dim s as strin = Range("Q" & i).value
If s= 5 Then
Range("B"&i:"F"&i).Interior.ColorIndex = xlNone