|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Font.Size <> 12 Then
Target.Font.Size = 12
Target.Font.Color = vbBlack
End If
End Sub
Private Sub Worksheet_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim cell As Range
Set cell = Cells(Selection.Row, Selection.Column)
If cell.Font.Size <> 16 And cell.Font.Color <> vbRed Then
cell.Font.Size = 16
cell.Font.Color = vbRed
End If
End Sub |
|