資源描述：
《excel-vba常用宏應(yīng)用技巧》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、Excel-VBA常用宏應(yīng)用技巧Excel-常用宏技巧本示例為設(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.U
2、nprotectPassword:=641112'撤消工作表保護并取消密碼'本示例關(guān)閉除正在運行本示例的工作簿以外的其他所有工作簿，并保存其更改內(nèi)容。ForEachwInWorkbooksIfw.Name<>ThisWorkbook.NameThenw.CloseSaveChanges:=TrueEndIfNextw'每次打開工作簿時，本示例都最大化MicrosoftExcel窗口。Application.WindowState=xlMaximizedbeconsistentwithinthesamedisk.Alterna
3、teunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchofficesshallbebindingonbothends,eachcore'本示例顯示活動工
4、作表的名稱。MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name'本示例保存當前活動工作簿的副本。ActiveWorkbook.SaveCopyAs"C:TEMPXXXX.XLS"'下述過程激活工作簿中的第四張工作表。Sheets(4).Activate'下述過程激活工作簿中的第1張工作表。Worksheets(1).Activate'本示例通過將Saved屬性設(shè)為True來關(guān)閉包含本段代碼的工作簿，并放棄對該工作簿的任何更改。ThisWorkbook.Saved=True
5、ThisWorkbook.Close'本示例對自動重新計算功能進行設(shè)置，使MicrosoftExcel不對第一張工作表自動進行重新計算。Worksheets(1).EnableCalculation=False'下述過程打開C盤上名為MyFolder的文件夾中的MyBook.xls工作簿。Workbooks.Open("C:MyFolderMyBook.xls")'本示例顯示活動工作簿中工作表sheet1上單元格A1中的值。MsgBoxWorksheets("Sheet1").Range("A1").Value本示例顯示
6、活動工作簿中每個工作表的名稱ForEachwsInWorksheetsbeconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedontheterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacing
7、isgenerally100mm;branchofficesshallbebindingonbothends,eachcoreMsgBoxws.NameNextws本示例向活動工作簿添加新工作表,并設(shè)置該工作表的名稱?SetNewSheet=Worksheets.AddNewSheet.Name="currentBudget"本示例將新建的工作表移到工作簿的末尾'PrivateSubWorkbook_NewSheet(ByValShAsObject)Sh.MoveAfter:=Sheets(Sheets.Count)EndS
8、ub本示例將新建工作表移到工作簿的末尾'PrivateSubApp_WorkbookNewSheet(ByValWbAsWorkbook,_ByValShAsObject)Sh.MoveAfter:=Wb.Sheets(Wb.Sheets.Count)EndSub本示例新建一張工作表，然后
