VBA宏
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set ra = Range("b3:d5") '需要处理的单元格区域
If Intersect(ra, Target) Is Nothing Then
End
End If
ra.Interior.Color = xlNone
For Each s In ra
If s.Value = Target.Value Then
s.Interior.Color = RGB(90, 155, 216)
End If
Next
End Sub
创作者俱乐部成员
创作者俱乐部成员
KVP函数专家、创作者俱乐部成员
WPS函数专家
KVP函数专家、创作者俱乐部成员