SheetActivate事件
Excel表格VBA中Activate方法和Select方法的区别是什么
Excel表格VBA中Activate方法和Select方法的区别是什么
VBA中的Activate方法和Select方法看起来似乎相同，其实二者是有区别的。以下是店铺为您带来的关于VBA中Activate方法和Select方法的区别，希望对您有所帮助。
Excel表格VBA中Activate方法和Select方法的区别
VBA中的Activate方法和Select方法看起来似乎相同，其实二者是有区别的。Activate方法的作用是激活，而Select方法的作用是选择。其区别如下：
1.对于“Sheets”对象
Sheets.Select可以同时选择多个工作表，而Sheets.Active不能同时激活多个工作表。如下面的语句：
Sub Test1()
ActiveWorkbook.Sheets(Array(1, 2, 3)).Select '可以同时选择3个工作表
End Sub
Sub Test2()
ActiveWorkbook.Sheets(Array(1, 2, 3)).Activate '不能同时激活3个工作表，出现错误
End Sub
另外，对于隐藏的工作表，Sheets.Select方法不能选择隐藏的工作表，而Sheets.Activate方法可以激活隐藏的工作表。如下面的代码：Sub Test3()
ActiveWorkbook.Sheets(2).Visible = False '隐藏工作表
ActiveWorkbook.Sheets(2).Select '无法选择隐藏的工作表，产生错误
End Sub
ExcelVBA解读（80）：看看工作表会自动响应哪些操作——认识工作表事件
ExcelVBA解读（80）：看看工作表会自动响应哪些操作——
认识工作表事件
我们可以设置在工作表上进行操作时，工作表要做的事情，例如激活某工作表时弹出一个对话框、在单元格之间移动时高亮显示单元格所在的行列，等等。
这就要用到Worksheet对象的事件。
Worksheet对象的事件并不多，共9个，如图1所示。
图1
其中，各个事件发生条件为：
•Activate事件发生在工作表成为当前活动工作表时
•BeforeDoubleClick事件发生在工作表单元格中双击时发生且在默认的双击操作之前
•BeforeRightClick事件发生在工作表单元格中右击时发生且在默认的右击操作之前
•Calculate事件发生在重新计算工作表后
•Change事件发生在工作表单元格被修改后
•Deactivate事件发生在转移到并使其他工作表为活动工作表前•FollowHyperlink事件发生在单击工作表中的超链接时
•PivotTableUpdate事件发生在更新工作表中数据透视表后
•SelectionChange事件发生在改变工作表单元格选择时
下面分别详细介绍这些事件。
Activate事件
Worksheet_Activate()
在工作表成为活动工作表时触发该事件。
Deactivate事件
Worksheet_Deactivate()
当转移到其他工作表时触发该事件。
示例1：激活当前工作表与转移到其他工作表时的事件响应
以工作表Sheet2为例，当激活使工作表Sheet2成为活动工作表时，以及转移到其他工作表时，分别显示相应的消息框。
工作薄、工作表VBA事件程序一览表
在刷新现有的 XML 数据连接之前或将新
13
的 XML 数据导入 Microsoft Excel 工
BeforeXmlImport
作簿之前, 发生此事件
14 Deactivate
工作薄从活动状态转为非活动状态时
15 ModelChange
在 Excel 数据模型更改之后发生此事件
16 NewChart
工作表上的选定区域发生改变时
TalbeUpdate
当对工作表上的表进行更新时发生
在标注库的图标 (动态和静态) 已完成 工作表的呈现时发生。
在编辑或重新计算（对于包含公式的单
31
元格）数据透视表中的单元格或单元格
SheetPivotTableAfterValueChange 区域后发生。
32 SheetPivotTableBeforeAllocateChang在es将更改应用到数据透视表前发生。
33
在向数据透视表的 OLAP 数据源提交更 SheetPivotTableBeforeCommitChanges改之前发生。
34
在放弃对数据透视表所做的更改之前发 SheetPivotTableBeforeDiscardChange生s。
35 SheetPivotTableChangeSync
在更改了数据透视表之后发生。
LensGalleryRenderComplete 的呈现时发生
VBA选择和激活工作表的方法多表选定的技巧
VBA选择和激活工作表的方法多表选定的技巧本技巧的目的：掌握选择和激活工作表的方法
•
使用代码助手，可以大大提高输入代码效率，新增行号功能，方便读取。
•代码助手下载地址 /blog/archives/11297
•新增行号功能，方便读取，还可以实现快速跳转
•
•只要在代码窗口输入中文激活 + 空格即可弹出代码选项。还可
以收藏自己常用代码，建立自己的代码库。
•
选择和激活工作表的代码：
•一、Sheets("目录").Select
•使用 select 方法可以激活或者选中工作表
•注意：
•1. 需要同时选中多个工作表只能使用 Select 方法
•2. 当工作表隐藏时会报错
•二、Sheets("目录").Activate
•使用 Activate方法可以激活或者选中工作表
•注意：
•1. Activate方法只能对单表使用
•2. 当工作表隐藏时，会激活它的下一个表，处于最后表，会激活前个表
•使用 Sheets("目录") 或者使用 Worksheets("目录") 都是相同的•三、选中多个工作表：
•
•使用循环选中工作表
•
•利用数组选中所有工作表。
Excel VBA编程 窗体的事件
Excel VBA编程窗体的事件
事件是指在应用程序运行期间，在窗体（或其内的对象）上，由于用户的操作或系统内自身原因而产生的有效动作，例如单击鼠标（Click）、移动鼠标（MouseMove）等都是事件。
VBE中的对象可识别的事件是预先确定的，并不是所有对象都会具有相同事件。但每个事件都有一个事件过程的框架与之对应，当某一事件发生时，系统将立即执行对应的事件过程，因此，如果想利用这个过程去完成指定的任务，那么用户就必须在这个对应的事件过程中编写程序代码，以便响应发生的事件，否则，即使发生了可识别的事件，系统也不会做任何操作。下面介绍用户窗体中的一些常用事件。
1．Initialize事件
Initialize事件用来提供应用程序或用户窗体中的控件、变量等进行初始化。该事件的作用，于类模块中的该事件相同。
2．QueryClose事件
该事件发生在UserForm关闭之前。通常用这个事件确保在关闭应用程序之前，应用程序包含的用户窗体中没有未完成的任务。该事件的语法格式如下：
格式：Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
该事件括号内有两个参数。其中，参数Cancel是一个整数的值，用于指定是否在所有加载的用户窗体中停止QueryClose事件，当Cancel的值设置为0以外的任意值时，QueryClose 事件将停止执行，并防止关闭UserForm与应用程序；参数CloseMode为一个值或常数，用来指示引起QueryClose事件的原因。
VBA中的ActiveSheet与ActiveCell操作指南
VBA中的ActiveSheet与ActiveCell操作指
南
在VBA编程中，ActiveSheet和ActiveCell是两个非常常用的对象和方法。它们可以帮助开发者在Excel中进行动态的工作表和单元格操作。本文将介绍如何使用ActiveSheet和ActiveCell来实现一些常见的操作和技巧。
一、ActiveSheet对象的基本用法
ActiveSheet对象用于表示当前激活的工作表。在VBA中，我们可以使用该对象来引用和操作当前活动的工作表。以下是一些常见的使用示例：
1. 引用活动工作表
当我们编写VBA代码时，经常需要引用当前活动的工作表。通过使用ActiveSheet对象，我们可以轻松地实现这一目标：
```
Dim ws As Worksheet
Set ws = ActiveSheet
```
这样，ws变量将引用当前活动的工作表。
2. 修改活动工作表的名称
通过 VBA，我们可以在运行时修改活动工作表的名称。以下是一个修改活动工作表名称的示例代码：
```
= "新名称"
```
这个代码将把当前活动的工作表的名称修改为“新名称”。
3. 激活特定的工作表
ActiveSheet对象还可以用于激活特定的工作表。通过VBA，我们可以使用Activate方法来激活指定的工作表，示例如下：
```
Worksheets("Sheet1").Activate
```
这个代码将激活名为“Sheet1”的工作表。
二、ActiveCell对象的基本用法
ActiveCell是当前活动单元格的对象表示。使用ActiveCell对象和方法，我们可以在VBA中实现对活动单元格的各种操作和处理。以下是一些ActiveCell的常见应用示例：
VBA 中的工作表保护与隐藏应用技巧
VBA 中的工作表保护与隐藏应用技巧
工作表保护与隐藏的应用技巧在VBA（Visual Basic for Applications）中可以大大提高Excel的数据管理效率。在进行数据编辑和处理时，有时需要保护某些工作表，以防止他人进行误操作或者更改某些重要的数据。另外，有时又需要隐藏某些工作表，以保护敏感信息或者简化用户界面。本文将介绍几种常见的VBA中的工作表保护与隐藏的应用技巧。
首先是工作表保护的应用技巧。通过在VBA中使用工作表保护功能，我们可以限制对工作表的更改权限，并提高数据的安全性。以下是一些实用的工作表保护应用技巧：
1. 设置工作表保护密码：在VBA中可以使用`Protect`方法来设置工作表保护密码。例如，使用下面的代码将某个工作表设置为只允许选择和格式化，密码为"123456"：
```vba
Worksheets("Sheet1").Protect Password:="123456", UserInterfaceOnly:=True, AllowFormattingCells:=True
```
这样，其他人将无法对该工作表进行编辑和更改，只能选择和格式化单元格。
2. 解除工作表保护：如果需要对已经保护的工作表进行修改，可以使用`Unprotect`方法来解除保护。例如，使用下面的代码解除对某个工作表的保护：
```vba
Worksheets("Sheet1").Unprotect Password:="123456"
```
注意，解除保护时需要输入正确的密码。
3. 指定允许编辑的区域：有时候我们希望只允许某些区域进行编辑，而其他区域保持锁定。可以使用`EnableSelection`方法来实现这一功能。例如，使用下面的代码将某个工作表的A1:B5区域设置为允许编辑：
Excel开发者模式学习（1）——对象、属性、方法、事件
Excel开发者模式学习（1）——对象、属性、⽅法、事件
其实Excel就是触发和指定单元格
学习路线
⼀、理解⼯作簿、⼯作表、单元格等概念，弄清楚对象、属性
⼆、了解软件操作⽅式，⽐如怎么调出开发模式、如何试运⾏等
三、掌握常⽤的函数
四、触发事件
五、熟悉循环的使⽤
六、实例操作
⼀、概念
对象
Workbooks：⼯作簿
worksheets：⼯作表
Range：单元格区域
cell：单元格
对象就是存在的东西，是VBA处理的内容，包括⼯作薄、⼯作表、⼯作表上的单元格区域、图表等等。对象可以相互包含，就像⼀个⽂件夹⾥可以包含多个⽂件夹⼀样，⽽这个⽂件夹⼜可以被其他的⽂件夹包含，⼀个⼯作薄对象可以包含多个多个⼯作表对象，⼀个⼯作表对象⼜可以包含多个单元格(或图表,图形等)，这种对象的排列模式称为Excel的对象模型。
----------
集合这个概念经常遇到，我理解的集合是对相同类型的对象的统称。
某中学有5000个学⽣，名字各不相同，我们对他都统称为某中学的学⽣，⽽不和⼀⼀去叫他们的名字，"某中学的学⽣"在这⾥是集合。对象的引⽤，在Excel⾥，Workbooks集合包含在Application对象⾥，当我们要引⽤某⼯作薄的时候，要遵循从⼤到⼩的规则。跟表⽰硬盘⾥的某个⽂件的位置⼀样，⽐如我们想引⽤D盘“我的⽂档”⽂件夹下的名为“我的VBA课程.doc”⽂件时要输⼊的是：D：\我的⽂档\我的VBA课程.doc
同样，如果我们要引⽤名称为“mybook.xls”的⼯作薄时就是：
Application.Workbooks(“mybook.xls”)
VBA工作薄工作表事件一览表修订稿
V B A工作薄工作表事件
一览表
集团标准化工作小组 [Q8QX9QT-X8QQB8Q8-NQ8QJ8-M8QMN]
翻箱倒柜，无意中发现个好东东
放到这里，大家查着也方便
工作簿对象事件一览表
当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。
事件说明
Activate
激活工作薄时
AddinInstall
当工作簿作为加载宏安装时
AddinUninstall
工作簿作为加载宏卸载时
BeforeClose
关闭工作薄前
BeforePrint
打印工作薄(或其中任何内容)之前
BeforeSave
保存工作薄前
Deactivate
工作簿从活动状态转为非活动状态时
NewSheet
在工作簿中新建工作表时
Open
打开工作簿时
PivotTableCloseConnection
在数据透视表关闭与其数据源的连接之后
PivotTableOpenConnection
在数据透视表打开与其数据源的连接之后
SheetActivate
激活任何一张表时
SheetBeforeDoubleClick
双击任何工作表时
SheetBeforeRightClick
鼠标右键单击任一工作表时
SheetCalculate
工作表重新计算时
SheetChange
更改工作表中的单元格时
SheetDeactivate
任一工作表由活动状态转为非活动状态时
7.1 Excel VBA事件
6、鼠标点选文件菜单，单击保存文件。文件名 为【第一个事件程序.xls】。
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门wk.baidu.com
三、编写一个简单的事件
操作步骤：
7、返回到Excel工作界面，当你单击选中任一张 工作时，就会弹出如下的对话框。
这个事件响应与原先的点选工作表完全不同了！
浙江省普通高中选修课网络课程
简单，写一段事件过程代码即可。
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、编写一个简单的事件
操作步骤：
1、打开一个新的工作薄文件。 2、按快捷键F11，打开VBE编辑器。 3、在工程资源管理器中点选ThisWorkbook
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
三、编写一个简单的事件
EXCEL VBA
编程入门
第七章：Excel VBA 事件
7.1 Excel VBA事件
浙江省普通高中选修课网络课程
EXCEL VBA
编程入门
一、什么是Excel VBA事件？
事件简单来说，就是由用户或者系统触发的、
可以在代码中响应的一段代码。在Excel中，我们点
击单元格、点击窗体和按钮、选择工作表、保存工 作薄等等都会产生一系列的事件。我们可以通过编 写代码来响应这些事件，当发生此类事件时，例如 选择一个工作表，程序代码就会进行相应的操作。
Excel-事件（Workbook、Worksheet、Range、OnKeyOnTime）
Excel-事件（Workbook、Worksheet、Range、
OnKeyOnTime）
⼀、Excel事件介绍
Excel事件就是⼀个能被对象识别的操作。
当某个事件发⽣后⾃动运⾏的过程称为事件过程。事件过程也是Sub过程。
实践过程必须写在特定对象所在的模块中，⽽且只有过程所在的模块⾥的对象才能触发这个事件。
事件过程名由Excel⾃动设置，以“对象名称_事件名称”的形式存在，不能更改。
⼆、Worksheet事件
Worksheet事件是发⽣在Worksheet对象⾥的事件。事件过程必须写在对应的Worksheet对象⾥，只有过程所在的Worksheet对象⾥的操作才能触发该事件。
1、Worksheet_Change事件：⾃动提⽰更改的内容
Private Sub Worksheet_Change(ByVal Target As Range) '⼊参中Target代表被选中的单元格
Application.EnableEvents = False '禁⽤事件
If Target.Column = 1Then
MsgBox Target.Address & "单元格的值被修改为：" & Target.Value
End If
Application.EnableEvents = True '启⽤事件
End Sub
2、Worksheet_SelectionChange事件：你选中了谁
可以⽤此事件来记录Excel单元格修改前的旧值。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ExcelVBA解读（93）：工作簿对象的SheetActivate、SheetDeact。。。
ExcelVBA解读（93）：⼯作簿对象的SheetActivate、SheetDeact。。。本⽂详细讲解Workbook对象的3个事件：SheetActivate事件、SheetDeactivate事件和
SheetSelectionChange事件。
Workbook_SheetActivate事件
当激活任意⼯作表时发⽣Workbook_SheetActivate事件。其语法为：
Workbook_SheetActivate(ByVal Sh As Object)
说明：
参数Sh，必需，表⽰被激活的⼯作表，可以是图表⼯作表或标准⼯作表。
在ThisWorkbook代码模块中输⼊下⾯的代码，当激活⼯作表时弹出⼀个显⽰该⼯作表名字的消
息框：
Private SubWorkbook_SheetActivate(ByVal Sh As Object)
MsgBox '当前⼯作表是:' &
End Sub
Workbook_SheetDeactivate事件
当使⼯作表变为⾮活动⼯作表时发⽣Workbook_SheetDeactivate事件。其语法为：
Workbook_SheetDeactivate(ByVal Sh As Object)
说明：
参数Sh，必需，表⽰变为⾮活动⼯作表的⼯作表，可以是图表⼯作表或标准⼯作表。
在ThisWorkbook代码模块中输⼊下⾯的代码，当使⼯作表变为⾮活动⼯作表时弹出⼀个显⽰该
⼯作表名字的消息框：
Private SubWorkbook_SheetDeactivate(ByVal Sh As Object)
ExcelVBA（03）各种事件
ExcelVBA（03）各种事件
工作表事件
•vba 事件的概念和js 中的时间的概念是相似的，就是一定的操作会自动触发相应的代码逻辑
•工作表时间就是针对worksheet 的，对工作表进行一定的操作可以触发我们自己编写的逻辑代码，而不用手动运行
•下面的图片中第一个下拉框一定要选中worksheet ，这样我们就可以在后面的下拉框中选择相应的工作表事件，然后在自动生成的sub 中进行代码逻辑的编写
•
•常用工作表事件总结
•
工作簿事件
•工作簿事件基本也没啥可说的就是作用的对象不同而已
•
•
文件备份代码
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wb As Workbook
Set wb = ThisWorkbook
wb.SaveCopyAs wb.Path & "\" & Format(Now(), "yyyymmddhhmmss") & ".xlsm"
End Sub
程序事件
•程序事件的话对所有的工作簿都是有效的
•一个工作簿中程序事件的代码一般是放在工作簿对象下，而不是工作表
•一个工作簿中编写相应的excel 程序后，excel 打开的工作簿都会有相应的事件的响应
一、程序事件的编写
1、基本步骤
•备注的两条代码是程序事件编写的前提，很重要的
'这里的声明很重要
Public WithEvents app As Excel.Application
Private Sub app_NewWorkbook(ByVal Wb As Workbook)
VBA工作薄、工作表事件一览表
[VBA程序开发]工作薄、工作表事件一览表[复制链接]
翻箱倒柜，无意中发现个好东东
放到这里，大家查着也方便
工作簿对象事件一览表
当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。
事件 说明
Activate
激活工作薄时
AddinInstall
当工作簿作为加载宏安装时
AddinUninstall
工作簿作为加载宏卸载时
BeforeClose
关闭工作薄前
BeforePrint
打印工作薄(或其中任何内容)之前
BeforeSave
保存工作薄前
Deactivate
工作簿从活动状态转为非活动状态时
NewSheet
在工作簿中新建工作表时
Open
打开工作簿时
PivotTableCloseConnection
在数据透视表关闭与其数据源的连接之后PivotTableOpenConnection
在数据透视表打开与其数据源的连接之后
SheetActivate
激活任何一张表时
SheetBeforeDoubleClick
双击任何工作表时
SheetBeforeRightClick
鼠标右键单击任一工作表时
SheetCalculate
工作表重新计算时
SheetChange
更改工作表中的单元格时
SheetDeactivate
任一工作表由活动状态转为非活动状态时
SheetFollowHyperlink
VBA工作薄、工作表事件一览表
[VBA程序开发]工作薄、工作表事件一览表[复制链接]
翻箱倒柜，无意中发现个好东东
放到这里，大家查着也方便
工作簿对象事件一览表
当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。
事件 说明
Activate
激活工作薄时
AddinInstall
当工作簿作为加载宏安装时
AddinUninstall
工作簿作为加载宏卸载时
BeforeClose
关闭工作薄前
BeforePrint
打印工作薄(或其中任何内容)之前
BeforeSave
保存工作薄前
Deactivate
工作簿从活动状态转为非活动状态时
NewSheet
在工作簿中新建工作表时
Open
打开工作簿时
PivotTableCloseConnection
在数据透视表关闭与其数据源的连接之后PivotTableOpenConnection
在数据透视表打开与其数据源的连接之后
SheetActivate
激活任何一张表时
SheetBeforeDoubleClick
双击任何工作表时
SheetBeforeRightClick
鼠标右键单击任一工作表时
SheetCalculate
工作表重新计算时
SheetChange
更改工作表中的单元格时
SheetDeactivate
任一工作表由活动状态转为非活动状态时
SheetFollowHyperlink
VBA工作薄工作表事件一览表
[VBA程序开发]工作薄、工作表事件一览表[复制链接]
翻箱倒柜，无意中发现个好东东
放到这里，大家查着也方便
工作簿对象事件一览表
当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。
事件说明
Activate
激活工作薄时
AddinInstall
当工作簿作为加载宏安装时
AddinUninstall
工作簿作为加载宏卸载时
BeforeClose
关闭工作薄前
BeforePrint
打印工作薄(或其中任何内容)之前
BeforeSave
保存工作薄前
Deactivate
工作簿从活动状态转为非活动状态时
NewSheet
在工作簿中新建工作表时
Open
打开工作簿时
PivotTableCloseConnection
在数据透视表关闭与其数据源的连接之后
PivotTableOpenConnection
在数据透视表打开与其数据源的连接之后
SheetActivate
激活任何一张表时
SheetBeforeDoubleClick
双击任何工作表时
SheetBeforeRightClick
鼠标右键单击任一工作表时
SheetCalculate
工作表重新计算时
SheetChange
更改工作表中的单元格时
SheetDeactivate
任一工作表由活动状态转为非活动状态时
SheetFollowHyperlink
单击 Microsoft Excel 中的任意超链接时
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
当激活任何一张表时产生此事件。
Private Sub object_SheetActivate(ByVal Sh As Object) object Application对象或 Workbook对象。
Sh 激活的表。可以是一个 Chart对象或 Worksheet对象。Excel VBA教程：SheetActivate事件·示例
本示例显示每一张激活的表的名称。
Private Sub Workbook_SheetActivate(ByVal Sh As Object) MsgBox
End Sub