1、执行时，增加一个工作表，并且直接命名
Private Sub CommandButton1_Click()
rows函数的使用方法及实例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
10、'本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表自动进行重新计算。
Worksheets(1).EnableCalculation = False
11、'下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿。
Workbooks.Open ("C:\MyFolder\MyBook.xls")
12、'本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值。
MsgBox Worksheets("Sheet1").Range("A1").Value
13、本示例显示活动工作簿中每个工作表的名称
For Each ws In Worksheets
MsgBox ws.Name
Next ws
14、本示例向活动工作簿添加新工作表 , 并设置该工作表的名称?
Set NewSheet = Worksheets.Add
NewSheet.Name = "current Budget"
15、本示例将新建的工作表移到工作簿的末尾
'Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move After:=Sheets(Sheets.Count)
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。