首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

鼠标点到表格任意位置,自动填充颜色

前两天,有一位粉丝朋友给我留言,提到了一个对账需求:他希望能够通过鼠标点击自动标记颜色,并在再次点击时取消标记。

在Excel中,我们可以通过两种方法来快速实现这个功能,一种是非VBA的方法,另一种是使用VBA编写代码来实现这一操作。

非VBA方法:

如果你觉得VBA编写代码过于复杂,除了使用VBA编写代码外,你还可以尝试使用非VBA方法来实现自动标记颜色的功能。一种简单的方法是利用Excel的F4快捷键功能。

首先,我们先给一个单元格标记颜色,可以通过选择该单元格并应用所需的颜色填充。然后,当你选中其他单元格时,只需按下F4快捷键,Excel会自动重复上一次操作,从而将选中的单元格标记相同的颜色。

这种方法仍然需要鼠标点击和键盘操作,但相比编写VBA代码,更为简单快捷。你可以先手动标记一个单元格,然后通过按下F4快捷键快速将其他单元格标记相同的颜色。

然而,需要注意的是,如果你在进行其他操作后按下F4快捷键,Excel可能会重复执行不同的操作而不是仅仅标记颜色。因此,确保在执行其他操作之前按下F4快捷键来重复标记颜色。

VBA方法:

我们需要在Excel中打开开发工具,可以按下ALT+F11键进入VBA编辑页面。选择对应的工作表,然后选择SelectionChange事件。在该事件中编写以下代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [A1] = 1 Then

If Selection.Interior.Color = 65535 Then

Selection.Interior.Pattern = xlNone

Else

Selection.Interior.Color = 65535

End If

End If

End Sub

在代码中,我们设置了一个开关按钮,当A1单元格的值为1时,才能实现点击变色。当然,你也可以将代码中的值更改为其他位置的单元格。

然后,我们对选中的数据区域的颜色进行判断,如果已经标记了我们指定的颜色,就将选中区域的填充颜色设为无颜色;否则,将其填充为我们指定的颜色。

由于使用了VBA代码,为了防止代码丢失,你需要将表格另存为XLSM格式。这样,在下次打开时,代码才能正常使用。

希望这个关于“鼠标点到表格任意位置,自动填充颜色”小技巧对你有所帮助!快亲自动手试一试吧!那么我们今天的excel小技巧分享到这里就结束咯,如果你有其他与众不同的想法,也可以在评论区进行分享。那我们下期再见!拜拜!

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20230627A038CJ00?refer=cp_1026
  • 腾讯「腾讯云开发者社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 cloudcommunity@tencent.com 删除。

相关快讯

扫码

添加站长 进交流群

领取专属 10元无门槛券

私享最新 技术干货

扫码加入开发者社群
领券