- 求高手帮忙写一段代码在SHEET1中输入文字(包含数字),如果S
- 在SHE1中输入文字(包含数字),如果SHEET2中有单元格包含了SHEET1的文字和数字时,此单元格就变成红色。
- Private Sub Worksheet_hange(ByVal Target As Range)
If Not Intersect(Target, [a1:a15]) Is Nothing And Target.Count = 1 Then
Sheet2.UsedRange.Interior.ColorIndex = 0
If Target.Value <> "" Then
str1 = "*"
For i = 1 To Len(Target.Value)
str1 = str1 & Mid(Target.Value, i, 1) & "*"
Next
For Each rng In Sheet2.UsedRange
If rng Like str1 Then
rng.Interior.ColorIndex = 3
End If
Next
End If
End If
End Sub