Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Font.ColorIndex = xlAutomatic
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.Value = ActiveCell.Value And x.Value <> "" Then
x.Font.Color = vbRed
x.Font.Size = 14
x.Font.Bold = True
End If
Next
End Sub
在这找的,但这个会同值的都会变,我只要选中的那个单元格,怎么改?
Cells.Font.ColorIndex = xlAutomatic
Dim x As Range
For Each x In ActiveSheet.UsedRange
If x.Value = ActiveCell.Value And x.Value <> "" Then
x.Font.Color = vbRed
x.Font.Size = 14
x.Font.Bold = True
End If
Next
End Sub
在这找的,但这个会同值的都会变,我只要选中的那个单元格,怎么改?
另加一点,当选其它后,刚选的那个单元格变回原样