VBA使表格输入数据时单元格颜色改变的方法

1、打开表格，如下图所示，我们需要在输入数据时，要输入数据的单元格在点击后改变单元格的颜色。

2、同时按下fn和F11键，打开vba编辑界面，如下图所示。

3、鼠标双击左侧的工作表名称后弹出如下图所示的代码编辑窗口。

4、输入如下代码“Dim Rng As Range

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

On Error GoTo A

 

Rng.Interior.Pattern = xlNone

 

A:

 

Selection.Interior.ThemeColor = xlThemeColorLight2

 

Selection.Interior.TintAndShade = 0.4

 

Set Rng = Selection

 

End Sub”。

5、鼠标移动到上部工具栏，点击三角形的运行键。

6、鼠标继续移动到上部工具栏的左侧，点击如下图红框处所示的回到Excel表格页面。

7、回到表格编辑页面，点击要输入数据的单元格，单元格颜色随即改变，输入完毕换一个单元格继续输入，已经输入内容的单元格颜色恢复正常，要输入内容的单元格颜色也改变了。