《Excel_常用宏技巧》由会员分享，可在线阅读，更多相关《Excel_常用宏技巧（50页珍藏版）》请在金锄头文库上搜索。
1、Excel-常用宏技巧1、设置密码窗口12、本示例为设置提示窗口23、本示例为设置工作表保护密码24、本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容25、每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口26、本示例显示活动工作表的名称27、本示例保存当前活动工作簿的副本28、下述过程激活工作簿中的第四张工作表39、下述过程激活工作簿中的第1张工作表310、本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改311、本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表
2、自动进行重新计算312、下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿313、本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值314、本示例显示活动工作簿中每个工作表的名称315、本示例向活动工作簿添加新工作表 , 并设置该工作表的名称416、本示例将新建的工作表移到工作簿的末尾417、本示例将新建工作表移到工作簿的末尾418、本示例新建一张工作表，然后在第一列中列出活动工作簿中的所有工作表的名称419、本示例将第十行移到窗口的最上面?420、当计算工作簿中的任何工作表时，本示例对第一张工作表的 A1:A100 区域进行排序521、本
3、示例显示工作表 Sheet1 的打印预览522、本示例保存当前活动工作簿?523、本示例保存所有打开的工作簿，然后关闭 Microsoft Excel524、下例在活动工作簿的第一张工作表前面添加两张新的工作表525、本示例设置 15 秒后运行 my_Procedure 过程，从现在开始计时526、本示例设置 my_Procedure 在下午 5 点开始运行627、本示例撤消前一个示例对 OnTime 的设置628、每当工作表重新计算时，本示例就调整 A 列到 F 列的宽度629、本示例使活动工作簿中的计算仅使用显示的数字精度630、本示例将工作表 Sheet1 上的 A1:G37 区域剪下，
4、并放入剪贴板631、Calculate 方法632、本示例更新当前活动工作簿中的所有链接733、本示例设置第一张工作表的滚动区域71、 设置密码窗口If Application.InputBox(请输入密码：) = 1234 Then A1 = 1 密码正确时执行 Else: MsgBox 密码错误，即将退出！ 此行与第2行共同设置密码 End If 2、 本示例为设置提示窗口X = MsgBox(是否真的要结帐？, vbYesNo) If X = vbYes Then Close 3、 本示例为设置工作表保护密码ActiveSheet.Protect Password:=641112 保护工
5、作表并设置密码 ActiveSheet.Unprotect Password:=641112 撤消工作表保护并取消密码 4、 本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容For Each w In Workbooks If w.Name ThisWorkbook.Name Then w.Close SaveChanges:=True End If Next w 5、 每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口 Application.WindowState = xlMaximized 6、 本示例显示活动工作表的名称MsgBox The
6、name of the active sheet is & ActiveSheet.Name 7、 本示例保存当前活动工作簿的副本ActiveWorkbook.SaveCopyAs C:TEMPXXXX.XLS 8、 下述过程激活工作簿中的第四张工作表Sheets(4).Activate 9、 下述过程激活工作簿中的第1张工作表Worksheets(1).Activate 10、 本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改ThisWorkbook.Saved = True ThisWorkbook.Close 11、 本示例对自动重新计
7、算功能进行设置，使 Microsoft Excel 不对第一张工作表自动进行重新计算 Worksheets(1).EnableCalculation = False 12、 下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿 Workbooks.Open (C:MyFolderMyBook.xls) 13、 本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值 MsgBox Worksheets(Sheet1).Range(A1).Value 14、 本示例显示活动工作簿中每个工作表的名称 For Each ws In Worksheets
8、MsgBox ws.Name Next ws 15、 本示例向活动工作簿添加新工作表 , 并设置该工作表的名称 Set NewSheet = Worksheets.Add NewSheet.Name = current Budget 16、 本示例将新建的工作表移到工作簿的末尾 Private Sub Workbook_NewSheet(ByVal Sh As Object) Sh.Move After:=Sheets(Sheets.Count) End Sub 17、 本示例将新建工作表移到工作簿的末尾 Private Sub App_WorkbookNewSheet(ByVal Wb As
9、 Workbook, _ ByVal Sh As Object) Sh.Move After:=Wb.Sheets(Wb.Sheets.Count) End Sub 18、 本示例新建一张工作表，然后在第一列中列出活动工作簿中的所有工作表的名称Set NewSheet = Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count NewSheet.Cells(i, 1).Value = Sheets(i).Name Next i 19、 本示例将第十行移到窗口的最上面?Worksheets(Sheet1).Activate ActiveWi
10、ndow.ScrollRow = 10 20、 当计算工作簿中的任何工作表时，本示例对第一张工作表的 A1:A100 区域进行排序Private Sub Workbook_SheetCalculate(ByVal Sh As Object) With Worksheets(1) .Range(a1:a100).Sort Key1:=.Range(a1) End With End Sub 21、 本示例显示工作表 Sheet1 的打印预览Worksheets(Sheet1).PrintPreview 22、 本示例保存当前活动工作簿?ActiveWorkbook.Save 23、 本示例保存所有
11、打开的工作簿，然后关闭 Microsoft Excel For Each w In Application.Workbooks w.Save Next w Application.Quit 24、 下例在活动工作簿的第一张工作表前面添加两张新的工作表Worksheets.Add Count:=2, Before:=Sheets(1) 25、 本示例设置 15 秒后运行 my_Procedure 过程，从现在开始计时 Application.OnTime Now + TimeValue(00:00:15), my_Procedure 26、 本示例设置 my_Procedure 在下午 5 点开
12、始运行 Application.OnTime TimeValue(17:00:00), my_Procedure 27、 本示例撤消前一个示例对 OnTime 的设置Application.OnTime EarliestTime:=TimeValue(17:00:00), _ Procedure:=my_Procedure, Schedule:=False 28、 每当工作表重新计算时，本示例就调整 A 列到 F 列的宽度 Private Sub Worksheet_Calculate() Columns(A:F).AutoFit End Sub 29、 本示例使活动工作簿中的计算仅使用显示的
13、数字精度 ActiveWorkbook.PrecisionAsDisplayed = True 30、 本示例将工作表 Sheet1 上的 A1:G37 区域剪下，并放入剪贴板 Worksheets(Sheet1).Range(A1:G37).Cut 31、 Calculate 方法 计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示： 所有打开的工作簿 Application.Calculate （或只是 Calculate） 计算指定工作表Worksheets(Sheet1).Calculate 指定区域 Worksheets(1).Rows(2).C
14、alculate 本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表自动进行重新计算 Worksheets(1).EnableCalculation = False 本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式 Worksheets(Sheet1).UsedRange.Columns(A:C).Calculate 32、 本示例更新当前活动工作簿中的所有链接ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 33、 本示例设置第一张工作表的滚动区域Worksheets(
15、1).ScrollArea = a1:f10 34、 本示例新建一个工作簿，提示用户输入文件名，然后保存该工作簿Set NewBook = Workbooks.Add Do fName = Application.GetSaveAsFilename Loop Until fName False NewBook.SaveAs Filename:=fName 35、 本示例打开 Analysis.xls 工作簿，然后运行 Auto_Open 宏 Workbooks.Open ANALYSIS.XLS ActiveWorkbook.RunAutoMacrosxlAutoOpen 36、 本示例对活动工作簿运行 Auto_Close 宏，然后关闭该工作簿With ActiveWorkbook
