資源描述：
《excel中的宏使用實例》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。
1、1、執(zhí)行時，增加一個工作表，并且直接命名PrivateSubCommandButton1_Click()Dimn,nmAsStringnm=InputBox("請輸入工作表名：")Ifnm<>""Then??n=MsgBox("要插入工作表請單擊”確定“，否則請單擊”取消“",vbOKCancel,"提示")??Ifn=vbOKThen??????Sheets.Add.Name=nm??EndIfEndIfEndSub2、獲取工作表最后一行的行號第一種方法：n=Sheets("歷下2010").Range("A65535").End(xlU
2、p).Row：按Al列判斷第二種方法：n=Sheets("歷下2010").Cells.SpecialCells(xlCellTypeLastCell).Row兩種方法速度基本一致3、刪除表中A列數(shù)值重復的行、4、本示例為設(shè)置密碼窗口(1)IfApplication.InputBox("請輸入密碼：")=1234Then[A1]=1'密碼正確時執(zhí)行Else:MsgBox"密碼錯誤，即將退出！"'此行與第2行共同設(shè)置密碼EndIf1、本示例為設(shè)置密碼窗口(1)X=MsgBox("是否真的要結(jié)帳？",vbYesNo)IfX=vbYesThenC
3、lose2、本示例為設(shè)置工作表密碼ActiveSheet.ProtectPassword:=641112'保護工作表并設(shè)置密碼ActiveSheet.UnprotectPassword:=641112'撤消工作表保護并取消密碼3、'本示例關(guān)閉除正在運行本示例的工作簿以外的其他所有工作簿，并保存其更改內(nèi)容。ForEachwInWorkbooksIfw.Name<>ThisWorkbook.NameThenw.CloseSaveChanges:=TrueEndIfNextw'每次打開工作簿時，本示例都最大化MicrosoftExcel窗口。Ap
4、plication.WindowState=xlMaximized4、'本示例顯示活動工作表的名稱。MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name5、'本示例保存當前活動工作簿的副本。ActiveWorkbook.SaveCopyAs"C:TEMPXXXX.XLS"'下述過程激活工作簿中的第四張工作表。Sheets(4).Activate'下述過程激活工作簿中的第1張工作表。Worksheets(1).Activate'本示例通過將Saved屬性設(shè)為True來關(guān)閉包含本段代碼的工作簿
5、，并放棄對該工作簿的任何更改。ThisWorkbook.Saved=TrueThisWorkbook.Close6、'本示例對自動重新計算功能進行設(shè)置，使MicrosoftExcel不對第一張工作表自動進行重新計算。Worksheets(1).EnableCalculation=False7、'下述過程打開C盤上名為MyFolder的文件夾中的MyBook.xls工作簿。Workbooks.Open("C:MyFolderMyBook.xls")8、'本示例顯示活動工作簿中工作表sheet1上單元格A1中的值。MsgBoxWorkshe
6、ets("Sheet1").Range("A1").Value9、本示例顯示活動工作簿中每個工作表的名稱ForEachwsInWorksheetsMsgBoxws.NameNextws10、本示例向活動工作簿添加新工作表,并設(shè)置該工作表的名稱?SetNewSheet=Worksheets.AddNewSheet.Name="currentBudget"11、本示例將新建的工作表移到工作簿的末尾'PrivateSubWorkbook_NewSheet(ByValShAsObject)Sh.MoveAfter:=Sheets(Sheets.Co
7、unt)EndSub1、本示例將新建工作表移到工作簿的末尾'PrivateSubApp_WorkbookNewSheet(ByValWbAsWorkbook,_ByValShAsObject)Sh.MoveAfter:=Wb.Sheets(Wb.Sheets.Count)EndSub2、本示例新建一張工作表，然后在第一列中列出活動工作簿中的所有工作表的名稱。SetNewSheet=Sheets.Add(Type:=xlWorksheet)Fori=1ToSheets.CountNewSheet.Cells(i,1).Value=Sheets
8、(i).NameNexti3、本示例將第十行移到窗口的最上面?Worksheets("Sheet1").ActivateActiveWindow.ScrollRow=104、當計
