《EXCEL 常用的宏代码大全》.pdfEXCEL 常用的宏代码大全本示例为设置密码窗口(1) If Application.InputBox(" 请输入密码: ") = 1234 Then [A1] = 1 ' 密码正确时执行 Else: MsgBox " 密码错误, 即将退出! " ' 此行与第2 行共同设置密码 End If 本示例为设置密码窗口(1) X = MsgBox(" 是否真的要结帐? ", vbYesNo) If X = vbYes Then Close 本示例为设置工作表密码 ActiveSheet.Protect P assword:=641112 ' 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 ' 撤消工作表保护并取消密码' 本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿, 并保存其更改内容。 For Each w In Workbooks If w.Name <> ThisWorkbook.Name Then w.Closehttp://zzdxjyzd.com SaveChanges:=True End If Next w ' 每次打开工作簿时,本示例都最大化Microso ft Excel 窗口。 Application.WindowState = xlMaximized ' 本示例显示活动工作表的名称。 MsgBox "The name of the active sheet is " & ActiveSheet.Name ' 本示例保存当前活动工作簿的副本。 ActiveWorkbook.SaveCopyAs "C:\TEMP\ XXXX.XLS" ' 下述过程激活工作簿中的第四张工作表。 Sheets(4).Activate '下述过程激活工作簿中的第1张工作表。 Worksheets(1).Activate ' 本示例通过将 Saved 属性设为True 来关闭包含本段代码的工作簿, 并放弃对该工作簿的任何更改。 ThisWorkbook.Saved = True ThisWorkbook.Close ' 本示例对自动重新计算功能进行设置,使 Microsoft Excel 不对第一张工作表自动进行重新计算。 Worksheets(1).EnableCalculation = False ' 下述过程打开C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿。 Workbooks.Open ("C:\ MyFolder\ MyBook.xls") ' 本示例显示活动工作簿中工作表 sheet1 上单元格A1 中的值。 MsgBox Worksheets("Sheet1").Range("A1").Value 本示例显示活动工作簿中每个工作表的名称 For Each ws In Worksheets MsgBox ws.Name Next ws 本示例向活动工作簿添加新工作表, 并设置该工作表的名称? Set New Sheet = Worksheets.Add NewSheet.Name = "current Budget" 本示例将新建的工作表移到工作簿的末尾'Private Sub Workbook_NewSheet(ByVal Sh As Object) Sh.Move After:=Sheets(Sheets.Count) End Sub 本示例将新建工作表移到工作簿的末尾'Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _ By Val Sh As Object) Sh.Move After:=Wb.Sheets(Wb.Sheets.Count) End Sub 本示例新建一张工作表, 然后在第一列中列出活动工作簿中的所有工作表的名称。 Set NewSheet = Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count NewSheet.Cells(i, 1).Value = Sheets(i).Name Next i 本示例将第十行移到窗口的最上面? Wo rksheets("Sheet1").Activate ActiveWindow.ScrollRow = 10 当计算工作簿中的任何工作表时, 本示例对第一张工作表的 A1:A100 区域进行排序。'Private Sub Workbook_SheetCalculate(ByVal Sh As Object) With Worksheets(1) .Range("a1:a100").Sort Key1:=.Range("a1") End With End Sub 本示例显示工作表 Sheet1 的打印预览。 Worksheets("Sheet1").PrintPreview 本示例保存当前活动工作簿? ActiveWorkbook.Save 本示例保存所有打开的工作簿, 然后关闭 Microsoft Excel。 For Each w In Application.Workbooks w.Save Next w Application.Quit 下例在活动工作簿的第一张工作表前面添加两张新的工作表? Worksheets.Add Count:=2, Before:=Sheet s(1) 本示例设置15 秒后运行 my_Procedure 过程, 从现在开始计时。 Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure" 本示例设置 my_Procedure 在下午5 点开始运行。 Application.OnTime TimeValue("17:00:00"), "my_Procedure" 本示例撤消前一个示例对 OnTime 的设置。 Application.OnTime EarliestTi me:=TimeValue("17:00:00"), _ Procedure:="my_Procedure", Schedule:=False 每当工作表重新计算时, 本示例就调整A 列到F 列的宽度。'Private Sub Worksheet_Calculate() Columns("A:F").AutoFit End Sub 本示例使活动工作簿中的计算仅使用显示的数字精度。 ActiveWorkbook.PrecisionAsDisplayed = True 本示例将工作表S heet1 上的A1:G37 区域剪下, 并放入剪贴板。