EXCEL中的宏使用实例.docVIP

执行时，增加一个工作表，并且直接命名 Private Sub CommandButton1_Click()Dim n, nm As Stringnm = InputBox(请输入工作表名：)If nm Then? ? n = MsgBox(要插入工作表请单击”确定“，否则请单击”取消“, vbOKCancel, 提示)? ? If n = vbOK Then? ?? ???Sheets.Add.Name = nm? ? End IfEnd IfEnd Sub 两种方法速度基本一致 删除表中A列数值重复的行 、 本示例为设置密码窗口 (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(Shee