excel宏的编程实例？

1、 执行时，增加一个工作表，并且直接命名

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

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