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
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
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
兩種方法速度基本一致
、
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