当激活任意工作表时发生Workbook_SheetActivate事件。其语法为: Workbook_SheetActivate(ByVal Sh As Object) 说明: 参数Sh,必需,表示被激活的工作表,可以是图表工作表或标准工作表。 在ThisWorkbook代码模块中输入下面的代码,当激活工作表时...
2、Open事件：当工作簿被打开时触发，执行相应代码。Private Sub Workbook_Open() MsgBox "欢迎打开：" & Chr(10) & ThisWorkbook.NameEnd Sub 四、总结 对象的属性、方法、事件，是非常重要的，建议想学习VBA的朋友多多了解并运用。另外，为了更好地理解WorkBook对象的有关内容，我写了一段大杂烩代码，基本包...
1、Activate：工作表激活事件。Private Sub Worksheet_Activate() ...End Sub 2、BeforeDoubleClick：鼠标双击之前事件。正常我们双击单元格会进入编辑状态，有了这个双击之前事件，就执行这个过程内的代码，比如，双击A1单元格，启动用户窗体，可以用来选择输入：Private Sub Worksheet_BeforeDoubleClick(ByVal Target ...
Private Sub Workbook_Open() MsgBox "欢迎打开:" & Chr(10) & ThisWorkbook.Name End Sub 四、总结 对象的属性、方法、事件,是非常重要的,建议想学习VBA的朋友多多了解并运用。 另外,为了更好地理解WorkBook对象的有关内容,我写了一段大杂烩代码,基本包括了上述内容,由于篇幅的关系,我放到第二条文章。 好,今...
Workbook_SheetActivate(ByVal Sh As Object) 说明: 参数Sh,必需,表示被激活的工作表,可以是图表工作表或标准工作表。 在ThisWorkbook代码模块中输入下面的代码,当激活工作表时弹出一个显示该工作表名字的消息框: Private SubWorkbook_SheetActivate(ByVal Sh As Object) ...
(11) Workbooks(“book1.xls”).Activate ‘激活名为book1的工作簿 (12) ThisWorkbook.Save ‘保存工作簿 (13) ThisWorkbook.close ‘关闭当前工作簿 (14) ActiveWorkbook.Sheets.Count ‘获取活动工作薄中工作表数 (15) ActiveWorkbook.name ‘返回活动工作薄的名称 ...
(1)通过工作表的名称(Name)引用工作表 Set ws = ThisWorkbook.Sheets("明细表") Set ws = ThisWorkbook.Worksheets("明细表") 这种方法的好处是比较直观,我们可以清楚地看到引用的工作表的名称; 不好(也不应该说是不好吧?)的地方就是如果工作表的名称被改了,那么代码就得修改,否则肯定会出错; 当然,我们在写...
如果要在活动工作表是标准工作表时启用全部三个控件,在活动工作表不是标准工作表时禁用这三个控件,只需在ThisWorkbook模块中包括下面的事件处理代码: PrivateSub Workbook_SheetActivate(ByVal ShAsObject)IfTypeName(Sh) ="Worksheet"ThenC...
Workbook_SheetActivate事件 当激活任意⼯作表时发⽣Workbook_SheetActivate事件。其语法为：Workbook_SheetActivate(ByVal Sh As Object)说明：参数Sh，必需，表⽰被激活的⼯作表，可以是图表⼯作表或标准⼯作表。在ThisWorkbook代码模块中输⼊下⾯的代码，当激活⼯作表时弹出⼀个显⽰该⼯作表名字...
Workbook对象是一个Microsoft Excel 工作簿。有Name、Path等属性。有SaveAs等方法。有Open、Activate等事件。 ThisWorkbook属性返回运行Visual Basic代码的工作簿。当Visual Basic代码是加载宏的组成部分时,返回加载宏的工作簿,而非调用该加载宏的工作簿。 ActiveWorkbook属性返回当前处于活动状态的工作簿。