Excel选择单元格时改变其颜色

1、打开Excel表格，点击【文件】、【选项】。

3、点击【开发工具】、【Visual Basic】。

5、在“Sheet1”的代码窗口里边输入以下VBA程序代码。Private Sub Worksheet_SelectionChang髫潋啜缅e(ByVal Target As Range)On Error Resume Next '忽略运行过程中可能出现的错误Application.EnableEvents = False '关闭触发连锁事件If Target.Row < 100 And Target.Column < 5 And Target.Count = 1 Then'如果选择的单元格区域是A1:E100且只选1个单元格，则If Target.Interior.Color = RGB(0, 255, 0) Then '如果单元格是绿色填充，则 Target.Interior.ColorIndex = xlNone '无填充Else Target.Interior.Color = RGB(0, 255, 0) '单元格填充绿色End IfEnd IfApplication.EnableEvents = True '恢复触发连锁事件End Sub

7、再次选择变成绿色的单元格，其颜色将会变成无色。