EXCEL中的宏使用实例VIP专享

1、 执行时，增加一个工作表，并且直接命名 Private Sub CommandButton1_Click() Dim n, nm As String nm = InputBox("请输入工作表名：") If nm <> "" Then n = MsgBox("要插入工作表请单击” 确定“ ，否则请单击” 取消“ ", vbOKCancel, "提示") If n = vbOK Then Sheets.Add.Name = nm End If End If End Sub 2、 获取工作表最后一行的行号 第一种方法：n = Sheets("历下 2010").Range("A65535").End(xlUp).Row：按 Al 列判断 第二种方法：n = Sheets("历下 2010").Cells.SpecialCells(xlCellTypeLastCell).Row 两种方法速度基本一致 3、 删除表中 A 列数值重复的行 、 4、 本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误，即将退出！" '此行与第 2 行共同设置密码 End If 5 、 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐？", vbYesNo) If X = vbYes Then Close 6 、 本示例为设置工作表密码 ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码 7 、 '本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。 For Each w In Workbooks If w.Name <> ThisWorkbook.Name Then w.Close SaveChanges:=True End If Next w '每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 Application.WindowState = xlMaximized 8 、 '本示例显示活动工作表的名称。 MsgBox "The name of the active sheet is " & ActiveSheet.Name 9 、 '本示例保存当前活动工作簿的副本。 ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS" '下述过程激活工作簿中的第四张工作表。 Sheets(4).Activate '下述过程激活工作簿中的第 1 张工作表。 Worksheets(1).Activate '本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改。 ThisWorkbook.Saved = True ThisWorkbook.Close 1 0 、 '本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表自动进行重新计算。 Worksheets(1).EnableCalculation = False 1 1 、 '下述过程...