EXCEL 常用的宏代码大全.docx

EXCEL 常用的宏代码大全 本示例为设置密码窗口 (1)?If Application.InputBox(请输入密码：) = 1234 Then?[A1] = 1 密码正确时执行?Else: MsgBox 密码错误，即将退出！ 此行与第2行共同设置密码?End If?本示例为设置密码窗口 (1)?X = MsgBox(是否真的要结帐？, vbYesNo)?If X = vbYes Then?Close?本示例为设置工作表密码?ActiveSheet.Protect Password:=641112 保护工作表并设置密码?ActiveSheet.Unprotect Password:=641112 撤消工作表保护并取消密码?本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。?For Each w In Workbooks?If w.Name ThisWorkbook.Name Then?w.Close SaveChanges:=True?End If?Next w?每次打开工作簿时，本示例都最大化 Microsoft 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 NewSheet = 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, _?ByVal 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?本示例将第十行移到窗口的最上面??Worksheets(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