Public Sub Worksheet_selectionChange(ByVal Taget As Range)
Dim cel As Range
For Each cel In Sheet2.UsedRange
cel.Interior.Color = xlNone
If cel = ActiveCell Then
cel.Interior.Color = RGB(255, 0, 0)
End If
Next
Sheet2.Activate
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024