資源描述：
《Excel VBA命令大全》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、本示例為設(shè)置密碼窗口(1)IfApplication.InputBox("請輸入密碼：")=1234Then[A1]=1'密碼正確時執(zhí)行Else:MsgBox"密碼錯誤，即將退出！"'此行與第2行共同設(shè)置密碼EndIf本示例為設(shè)置密碼窗口(1)X=MsgBox("是否真的要結(jié)帳？",vbYesNo)IfX=vbYesThenClose本示例為設(shè)置工作表密碼ActiveSheet.ProtectPassword:=641112'保護工作表并設(shè)置密碼ActiveSheet.UnprotectPassword:=641112'撤消工作表保護并取消密碼'本示例關(guān)閉除正在運行
2、本示例的工作簿以外的其他所有工作簿，并保存其更改內(nèi)容。ForEachwInWorkbooksIfw.NameThisWorkbook.NameThenw.CloseSaveChanges:=TrueEndIfNextw'每次打開工作簿時，本示例都最大化MicrosoftExcel窗口。Application.WindowState=xlMaximized'本示例顯示活動工作表的名稱。MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name'本示例保存當(dāng)前活動工作簿的副本。ActiveWorkbook.SaveCopyAs"
3、C:/TEMP/XXXX.XLS"'下述過程激活工作簿中的第四張工作表。Sheets(4).Activate'下述過程激活工作簿中的第1張工作表。Worksheets(1).Activate'本示例通過將Saved屬性設(shè)為True來關(guān)閉包含本段代碼的工作簿，并放棄對該工作簿的任何更改。ThisWorkbook.Saved=TrueThisWorkbook.Close'本示例對自動重新計算功能進行設(shè)置，使MicrosoftExcel不對第一張工作表自動進行重新計算。Worksheets(1).EnableCalculation=False'下述過程打開C盤上名為MyF
4、older的文件夾中的MyBook.xls工作簿。Workbooks.Open("C:/MyFolder/MyBook.xls")'本示例顯示活動工作簿中工作表sheet1上單元格A1中的值。MsgBoxWorksheets("Sheet1").Range("A1").Value本示例顯示活動工作簿中每個工作表的名稱ForEachwsInWorksheetsMsgBoxws.NameNextws本示例向活動工作簿添加新工作表,并設(shè)置該工作表的名稱?SetNewSheet=Worksheets.AddNewSheet.Name="currentBudget"本示例將新
5、建的工作表移到工作簿的末尾'PrivateSubWorkbook_NewSheet(ByValShAsObject)Sh.MoveAfter:=Sheets(Sheets.Count)EndSub本示例將新建工作表移到工作簿的末尾'PrivateSubApp_WorkbookNewSheet(ByValWbAsWorkbook,_ByValShAsObject)Sh.MoveAfter:=Wb.Sheets(Wb.Sheets.Count)EndSub本示例新建一張工作表，然后在第一列中列出活動工作簿中的所有工作表的名稱。SetNewSheet=Sheets.Add
6、(Type:=xlWorksheet)Fori=1ToSheets.CountNewSheet.Cells(i,1).Value=Sheets(i).NameNexti本示例將第十行移到窗口的最上面?Worksheets("Sheet1").ActivateActiveWindow.ScrollRow=10當(dāng)計算工作簿中的任何工作表時，本示例對第一張工作表的A1:A100區(qū)域進行排序。'PrivateSubWorkbook_SheetCalculate(ByValShAsObject)WithWorksheets(1).Range("a1:a100").SortKe
7、y1:=.Range("a1")EndWithEndSub本示例顯示工作表Sheet1的打印預(yù)覽。Worksheets("Sheet1").PrintPreview本示例保存當(dāng)前活動工作簿?ActiveWorkbook.Save本示例保存所有打開的工作簿，然后關(guān)閉MicrosoftExcel。ForEachwInApplication.Workbooksw.SaveNextwApplication.Quit下例在活動工作簿的第一張工作表前面添加兩張新的工作表?Worksheets.AddCount:=2,Before:=Sheets(1)本示例設(shè)置15秒后運行m
