1、SheetChange更改工作表中的单元格时SheetDeactivate任一工作表由活动状态转为非活动状态时SheetFollowHyperlink单击 Microsoft Excel 中的任意超时SheetPivotTableUpdate数据透视表的工作表更新之后SheetSelectionChange工作簿中的数据透视表更新之后WindowActivate工作簿的窗口激活时WindowDeactivate工作簿的窗口变为非活动状态时WindowResize工作簿窗口调整大小时工作表事件一览表工作表上的事件在默认情况下是可用的。若要查看工作表的事件过程,请用鼠标右键单击工作表标签,再单击快
2、捷菜单上的“查看代码”。Activate 激活工作表时Deactivate工作表从活动状态转为非活动状态时BeforeDoubleClick 双击工作表前BeforeRightClick 右键单击工作表时Calculate 对工作表进行重新计算之后Change 更改工作表中的单元格,或外部引起单元格时FollowHyperlink 单击工作表上的任意超时PivotTableUpdate 在工作簿中的数据透视表更新之后SelectionChange工作表上的选定区域发生改变时再贴一堆代码例为设置密码窗口 (1) If Application.InputBox(请输入密码:) = 1234 The
3、n A1 = 1 密码正确时执行 Else: MsgBox 密码错误,即将退出! 此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBox(是否真的要结帐?, vbYesNo) If X = vbYes Then Close 本示例为设置工作表密码 ActiveSheet.Protect Password:=641112 保护工作表并设置密码 ActiveSheet.Unprotect Password:撤消工作表保护并取消密码 本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改容 。 For Each w In Workbooks If w
4、.Name ThisWorkbook.Name Then w.Close SaveChanges:=True Next w 每次打开工作簿时,本示例都最大化 Microsoft Excel 窗口。Application.WindowState = xlMaximized 本示例显示活动工作表的名称。MsgBox The name of the active sheet is & ActiveSheet.Name 本示例保存当前活动工作簿的副本。ActiveWorkbook.SaveCopyAs C:TEMPXXXX.XLS下述过程激活工作簿中的第四工作表。Sheets(4).Activate
5、下述过程激活工作簿中的第1工作表。Worksheets(1).Activate 本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿,并放弃对该 工作簿的任何更改。ThisWorkbook.Saved = True ThisWorkbook.Close 本示例对自动重新计算功能进行设置,使 Microsoft Excel 不对第一工作表自 动进行重新计算。Worksheets(1).EnableCalculation = False 下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿。Workbooks.Open (MyFolderMy
6、Book.xls) 本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值。MsgBox Worksheets(Sheet1).Range(A1).Value 本示例显示活动工作簿中每个工作表的名称 For Each ws In Worksheets MsgBox ws.Name Next ws 本示例向活动工作簿添加新工作表 , 并设置该工作表的名称?Set NewSheet = Worksheets.Add NewSheet.Name = current Budget本示例将新建的工作表移到工作簿的末尾 Private Sub Workbook_NewSheet(ByVal S
7、h As Object) Sh.Move After:=Sheets(Sheets.Count) End Sub 本示例将新建工作表移到工作簿的末尾 Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _ ByVal Sh As Object) =Wb.Sheets(Wb.Sheets.Count) 本示例新建一工作表,然后在第一列中列出活动工作簿中的所有工作表的名称。Set NewSheet = Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count NewSheet.Cells
8、(i, 1).Value = Sheets(i).Name Next i 本示例将第十行移到窗口的最上面?Worksheets().Activate ActiveWindow.ScrollRow = 10 当计算工作簿中的任何工作表时,本示例对第一工作表的 A1:A100 区域进行排序 Private Sub Workbook_SheetCalculate(ByVal Sh As Object) With Worksheets(1) .Range(a1:a100).Sort Key1:=.Range(a1End With 本示例显示工作表 Sheet1 的打印预览。).PrintPreview
9、 本示例保存当前活动工作簿?ActiveWorkbook.Save 本示例保存所有打开的工作簿,然后关闭 Microsoft Excel。For Each w In Application.Workbooks w.Save Application.Quit 下例在活动工作簿的第一工作表前面添加两新的工作表?Worksheets.Add Count:=2, Before:=Sheets(1) 本示例设置 15 秒后运行 my_Procedure 过程,从现在开始计时。Application.OnTime Now + TimeValue(00:15), my_Procedure本示例设置 my_P
10、rocedure 在下午 5 点开始运行。Application.OnTime TimeValue(17:00本示例撤消前一个示例对 OnTime 的设置。Application.OnTime EarliestTime:=TimeValue(), _ Procedure:=, Schedule:=False 每当工作表重新计算时,本示例就调整 A 列到 F 列的宽度。Private Sub Worksheet_Calculate() Columns(A:F).AutoFit 本示例使活动工作簿中的计算仅使用显示的数字精度。ActiveWorkbook.PrecisionAsDisplayed
11、= True 本示例将工作表 Sheet1 上的 A1:G37 区域剪下,并放入剪贴板。A1:G37).Cut Calculate 方法 计算所有打开的工作簿、工作簿中的一特定的工作表或者工作表中指定区域的单元 格,如下表所示:要计算 依照本示例 所有打开的工作簿 Application.Calculate (或只是 Calculate 指定工作表 计算指定工作表Sheet1 Worksheets ().Calculate 指定区域 Worksheets(1).Rows(2).Calculate 本示例对自动重新计算功能进行设置,使 Microsoft Excel 不对第一工作表自动 进行重新
12、计算。本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。).UsedRange.Columns(C本示例更新当前活动工作簿中的所有?ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 本示例设置第一工作表的滚动区域?Worksheets(1).ScrollArea = f10本示例新建一个工作簿,提示用户输入文件名,然后保存该工作簿。Set NewBook = Workbooks.Add Do fName = Application.GetSaveAsFilename Loop Until fName False NewBook.SaveAs Filename:=fName 本示例打开 Analysis.xls 工作簿,然后运行 Auto_Open 宏。Workbooks.Open ANALYSIS.XLSActiveWorkbook.RunAutoMacros xlAutoOpe
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1