excel怎么让鼠标点击位置有颜色

在Excel中让鼠标点击位置有颜色，可以通过使用条件格式、VBA宏、插入形状等方法来实现。其中，使用VBA宏是最灵活和强大的方法。下面详细介绍如何通过VBA宏来实现这一功能。

一、通过VBA宏实现鼠标点击位置有颜色

1.1、打开VBA编辑器

要使用VBA宏，首先需要打开Excel的VBA编辑器。您可以按下快捷键 Alt + F11，或者在Excel的“开发工具”选项卡中点击“Visual Basic”按钮来打开VBA编辑器。如果“开发工具”选项卡没有显示，可以通过以下步骤启用：

点击“文件”菜单，然后选择“选项”。
在弹出的Excel选项对话框中，选择“自定义功能区”。
在右侧的主选项卡列表中，勾选“开发工具”复选框，然后点击“确定”。

1.2、创建一个新的模块

在VBA编辑器中，右键点击左侧的“VBAProject(您的文件名)”项目，选择“插入”->“模块”。这样会创建一个新的模块窗口，在这个模块中我们可以编写VBA代码。

1.3、编写VBA代码

在新建的模块窗口中，输入以下代码：

Dim LastCell As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next ' 清除上一个选中单元格的背景颜色 If Not LastCell Is Nothing Then LastCell.Interior.ColorIndex = xlNone End If ' 设置当前选中单元格的背景颜色 Target.Interior.Color = RGB(255, 255, 0) ' 黄色 ' 记录当前选中单元格 Set LastCell = Target End Sub

这段代码的作用是：

当选择一个单元格时，首先清除上一个选中单元格的背景颜色。
然后，将当前选中单元格的背景颜色设置为黄色。
最后，记录当前选中单元格，以便下一次选择时能够清除其背景颜色。

1.4、保存并运行代码

输入完代码后，点击“文件”->“保存”，然后关闭VBA编辑器。返回Excel工作表，点击任意单元格，您会发现所点击的单元格背景颜色变为黄色，而之前点击的单元格颜色被清除。

二、通过条件格式实现鼠标点击位置有颜色

虽然VBA宏是实现这一功能的最佳选择，但有时我们可能需要更简单的方法。通过条件格式和辅助列的组合也可以实现类似效果。

2.1、添加辅助列

首先，在工作表中添加一个辅助列，用于存储鼠标点击的单元格地址。例如，使用A列作为辅助列。

2.2、设置条件格式

选中需要应用条件格式的区域（例如B1:Z100），然后点击“开始”选项卡中的“条件格式”按钮，选择“新建规则”。在“新建格式规则”对话框中，选择“使用公式确定要设置格式的单元格”，并输入以下公式：

=INDIRECT("A"&ROW())=CELL("address",B1)

然后点击“格式”按钮，设置需要的背景颜色（例如黄色），最后点击“确定”。

2.3、编写辅助列公式

在A列中输入以下公式，用于记录鼠标点击单元格的地址：

=IF(ISNUMBER(MATCH(CELL("address",B1),$A$1:$A$100,0)),CELL("address",B1),"")

这样，当点击B1:Z100区域的任意单元格时，辅助列A会记录下鼠标点击的单元格地址，并通过条件格式将其背景颜色设置为黄色。

三、通过插入形状实现鼠标点击位置有颜色

另一种实现方法是通过插入形状来标记鼠标点击的位置。

3.1、插入形状

在Excel中，点击“插入”选项卡，然后选择“形状”，从下拉菜单中选择一个矩形。

3.2、设置形状格式

将插入的矩形形状调整为适合单元格大小，并设置其填充颜色为黄色。

3.3、编写VBA代码

在VBA编辑器中，输入以下代码：

Dim shp As Shape Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next ' 删除之前的形状 If Not shp Is Nothing Then shp.Delete End If ' 插入新的形状 Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, Target.Left, Target.Top, Target.Width, Target.Height) shp.Fill.ForeColor.RGB = RGB(255, 255, 0) ' 黄色 shp.Line.Visible = msoFalse End Sub