Vba对象事件，实现聚光灯、自动备份和密码验证后显示工作表

最新推荐文章于 2024-06-22 08:29:18 发布

职场老油条

最新推荐文章于 2024-06-22 08:29:18 发布

阅读量715

点赞数 1

分类专栏： VBA 数据分析文章标签： excel 数据分析 VBA

本文链接：https://blog.csdn.net/qq_42539251/article/details/107331909

版权

本文介绍了如何利用Excel VBA的事件对象，包括工作表的SelectionChange事件（实现聚光灯效果）、工作簿的BeforeSave事件（自动备份）和BeforeClose事件（密码验证）。通过实例代码讲解了这些功能的实现，帮助读者掌握VBA在数据分析中的应用。

摘要由CSDN通过智能技术生成

看了本文标题，什么叫事件？

excel将下面叫做“数据”的工作表根据分类条件拆分成多个sheet工作表，表名为分类条件。

我的理解是发生了什么就执行一些相应的操作

可能比较难理解。下面我们就通过三个案例随事件对象加以了解

案例1

题目：

聚光灯事件，点击任意或多个单元格，单元格所在行自动出现背景色。

结果如下图：

分析：

点击单元格就自动实现聚光灯效果，自动执行代码就要用到事件对象

操作：

1.点击Visual Basic,需要双击对应的表选择对象为worksheet,事件为selectionChange，如下图：

代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '每次操作执行前清除掉背景色    Cells.Interior.Pattern = xlNone '设置所选行的背景色    Selection.EntireRow.Interior.Color = 65535End Sub

如果你想把代码写到模板中。只需要在这里调用一下模板中的方法即可

'模板中sub jgd()'每次操作执行前清除掉背景色    Cells.Interior.Pattern = xlNone      '设置所选行的背景色      Selection.EntireRow.Interior.Color = 65535end sub
'工作表中Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '调用call方法   call jgdEnd Sub