操作步骤: 右键点击工作表标签,查看代码,如下代码复制进去 Private Sub CommandButton1_Click() Cells.Font.ColorIndex = 1 End Sub
Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, i As Integer For Each rng In Selection i = 1 Do While InStr(i, rng, A) 0 rng.Characters(InStr(i, rng, A), 1).Font.ColorIndex = 3 i = InStr(i, rng, A) + 1 Loop Next End Sub 触发程序,选中即变色,效果如下图: