EXCELVBA工作表操作全能方法小結(jié)

1、EXCEL VBA工作表操作全能方法小結(jié)示例04-01增加工作表(Add方法Sub AddWorksheet(MsgBox "在當前工作簿中添加一個工作表"Worksheets.AddMsgBox "在當前工作簿中的工作表sheet2之前添加一個工作表"Worksheets.Add before:=Worksheets("sheet2"MsgBox "在當前工作簿中的工作表sheet2之后添加一個工作表"Worksheets.Add after:=Worksheets("sheet2"MsgBo

2、x "在當前工作簿中添加3個工作表"Worksheets.Add Count:=3End Sub示例說明：Add方法帶有4個可選的參數(shù)，其中參數(shù)Before和參數(shù)After指定所增加的工作表的位置，但兩個參數(shù)只能選一；參數(shù)Count用來指定增加的工作表數(shù)目。-示例04-02復制工作表(Copy方法Sub CopyWorksheet(MsgBox "在當前工作簿中復制工作表sheet1并將所復制的工作表放在工作表sheet2之前"Worksheets("sheet1".Copy Before:=Worksheets("shee

3、t2"MsgBox "在當前工作簿中復制工作表sheet2并將所復制的工作表放在工作表sheet3之后"Worksheets("sheet2".Copy After:=Worksheets("sheet3"End Sub示例說明：Copy方法帶有2個可選的參數(shù)，即參數(shù)Before和參數(shù)After，在使用時兩個參數(shù)只參選一。-示例04-03移動工作表(Move方法Sub MoveWorksheet(MsgBox "在當前工作簿中將工作表sheet3移至工作表sheet2之前"Worksheets("

4、;sheet3".Move Before:=Worksheets("sheet2"MsgBox "在當前工作簿中將工作表sheet1移至最后"Worksheets("sheet1".Move After:=Worksheets(Worksheets.CountEnd Sub示例說明：Move方法與Copy方法的參數(shù)相同，作用也一樣。-示例04-04隱藏和顯示工作表(Visible屬性示例04-04-01Sub testHide(MsgBox "第一次隱藏工作表sheet1"Worksheets("

5、;sheet1".Visible = FalseMsgBox "顯示工作表sheet1"Worksheets("sheet1".Visible = TrueMsgBox "第二次隱藏工作表sheet1"Worksheets("sheet1".Visible = xlSheetHiddenMsgBox "顯示工作表sheet1"Worksheets("sheet1".Visible = TrueMsgBox "第三次隱藏工作表sheet1"Work

6、sheets("sheet1".Visible = xlSheetHiddenMsgBox "顯示工作表sheet1"Worksheets("sheet1".Visible = xlSheetVisibleMsgBox "第四隱藏工作表sheet1"Worksheets("sheet1".Visible = xlSheetVeryHiddenMsgBox "顯示工作表sheet1"Worksheets("sheet1".Visible = TrueMsgB

7、ox "第五隱藏工作表sheet1"Worksheets("sheet1".Visible = xlSheetVeryHiddenMsgBox "顯示工作表sheet1"Worksheets("sheet1".Visible = xlSheetVisibleEnd Sub示例說明：本示例演示了隱藏和顯示工作表的各種情形。其中，使用xlSheetVeryHidden常量來隱藏工作表，將不能通過選擇工作表菜單欄中的“格式”“工作表”“取消隱藏”命令來取消隱藏。-示例04-04-02Sub ShowAllSheets(M

8、sgBox "使當前工作簿中的所有工作表都顯示(即將隱藏的工作表也顯示"Dim ws As WorksheetFor Each ws In Sheetsws.Visible = TrueNext wsEnd Sub-示例04-05獲取工作表數(shù)(Count屬性示例04-05-01Sub WorksheetNum(Dim i As Longi = Worksheets.CountMsgBox "當前工作簿的工作表數(shù)為：" & Chr(10 & iEnd Sub-示例04-05-02Sub WorksheetNum(Dim i As Longi

9、 = Sheets.CountMsgBox "當前工作簿的工作表數(shù)為：" & Chr(10 & iEnd Sub示例說明：在一個包含圖表工作表的工作簿中運行上述兩段代碼，將會得出不同的結(jié)果，原因是對于Sheets集合來講，工作表包含圖表工作表。應注意Worksheets集合與Sheets集合的區(qū)別，下同。-示例04-06獲取或設(shè)置工作表名稱(Name屬性示例04-06-01Sub NameWorksheet(Dim sName As String, sChangeName As StringsName = Worksheets(2.NameMsgBox &q

10、uot;當前工作簿中第2個工作表的名字為：" & sNamesChangeName = "我的工作表"MsgBox "將當前工作簿中的第3個工作表名改為：" & sChangeNameWorksheets(3.Name = sChangeNameEnd Sub示例說明：使用Name屬性可以獲取指定工作表的名稱，也可以設(shè)置工作表的名稱。-示例04-06-02重命名工作表Sub ReNameSheet(Dim xStr As StringRetry:Err.ClearxStr = InputBox("請輸入工作表的新名稱:

11、" _, "重命名工作表", ActiveSheet.NameIf xStr = "" Then Exit SubOn Error Resume NextActiveSheet.Name = xStrIf Err.Number <> 0 ThenMsgBox Err.Number & " " & Err.DescriptionErr.ClearGoTo RetryEnd IfOn Error GoTo 0'.End Sub-NextPage示例04-07激活/選擇工作表(Activate方

12、法和Select方法示例04-07-01Sub SelectWorksheet(MsgBox "激活當前工作簿中的工作表sheet2"Worksheets("sheet2".ActivateMsgBox "激活當前工作簿中的工作表sheet3"Worksheets("sheet3".SelectMsgBox "同時選擇工作簿中的工作表sheet2和sheet3"Worksheets(Array("sheet2", "sheet3".SelectEnd Su

13、b示例說明：Activate方法只能激活一個工作表，而Select方法可以同時選擇多個工作表。-示例04-07-02Sub SelectManySheet(MsgBox "選取第一個和第三個工作表."Worksheets(1.SelectWorksheets(3.Select FalseEnd Sub-示例04-08獲取當前工作表的索引號(Index屬性Sub GetSheetIndex(Dim i As Longi = ActiveSheet.IndexMsgBox "您正使用的工作表索引號為" & iEnd Sub-示例04-09選取前一個工

14、作表(Previous屬性Sub PreviousSheet(If ActiveSheet.Index <> 1 ThenMsgBox "選取當前工作簿中當前工作表的前一個工作表"ElseMsgBox "已到第一個工作表"End IfEnd Sub示例說明：如果當前工作表是第一個工作表，則使用Previous屬性會出錯。-示例04-10選取下一個工作表(Next屬性Sub NextSheet(If ActiveSheet.Index <> Worksheets.Count ThenMsgBox "選取當前工作簿中當前工作

15、表的下一個工作表"ElseMsgBox “已到最后一個工作表”End IfEnd Sub示例說明：如果當前工作表是最后一個工作表，則使用Next屬性會出錯。-示例04-11工作表行和列的操作示例04-11-01隱藏行Sub HideRow(Dim iRow As LongMsgBox "隱藏當前單元格所在的行"iRow = ActiveCell.RowActiveSheet.Rows(iRow.Hidden = TrueMsgBox "取消隱藏"ActiveSheet.Rows(iRow.Hidden = FalseEnd Sub-示例04-1

16、1-02隱藏列Sub HideColumn(Dim iColumn As LongMsgBox "隱藏當前單元格所在列"iColumn = ActiveCell.ColumnActiveSheet.Columns(iColumn.Hidden = TrueMsgBox "取消隱藏"ActiveSheet.Columns(iColumn.Hidden = FalseEnd Sub-示例04-11-03插入行Sub InsertRow(Dim rRow As LongMsgBox "在當前單元格上方插入一行"rRow = Selectio

17、n.RowActiveSheet.Rows(rRow.InsertEnd Sub-示例04-11-04插入列Sub InsertColumn(Dim cColumn As LongMsgBox "在當前單元格所在行的左邊插入一行"cColumn = Selection.ColumnActiveSheet.Columns(cColumn.InsertEnd Sub-示例04-11-05插入多行Sub InsertManyRow(MsgBox "在當前單元格所在行上方插入三行"Dim rRow As Long, i As LongFor i = 1 To 3

18、rRow = Selection.RowActiveSheet.Rows(rRow.InsertNext iEnd Sub-示例04-11-06設(shè)置行高Sub SetRowHeight(MsgBox "將當前單元格所在的行高設(shè)置為25"Dim rRow As Long, iRow As LongrRow = ActiveCell.RowiRow = ActiveSheet.Rows(rRow.RowHeightActiveSheet.Rows(rRow.RowHeight = 25MsgBox "恢復到原來的行高"ActiveSheet.Rows(rRo

19、w.RowHeight = iRowEnd Sub-示例04-11-07設(shè)置列寬Sub SetColumnWidth(MsgBox "將當前單元格所在列的列寬設(shè)置為20"Dim cColumn As Long, iColumn As LongcColumn = ActiveCell.ColumniColumn = ActiveSheet.Columns(cColumn.ColumnWidthActiveSheet.Columns(cColumn.ColumnWidth = 20MsgBox "恢復至原來的列寬"ActiveSheet.Columns(cC

20、olumn.ColumnWidth = iColumnEnd Sub-示例04-11-08恢復行高列寬至標準值Sub ReSetRowHeightAndColumnWidth(MsgBox "將當前單元格所在的行高和列寬恢復為標準值"Selection.UseStandardHeight = TrueSelection.UseStandardWidth = TrueEnd Sub-示例04-12工作表標簽示例04-12-01 設(shè)置工作表標簽的顏色Sub SetSheetTabColor(MsgBox "設(shè)置當前工作表標簽的顏色"End Sub-示例04-

21、12-01恢復工作表標簽顏色Sub SetSheetTabColorDefault(MsgBox "將當前工作表標簽顏色設(shè)置為默認值"End Sub-示例04-12-03交替隱藏或顯示工作表標簽Sub HideOrShowSheetTab(MsgBox "隱藏/顯示工作表標簽"ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabsEnd Sub-NextPage示例04-13確定打印的頁數(shù)(HPageBreaks屬性與VPageBreaks屬性Sub PageCoun

22、t(Dim i As LongMsgBox "當前工作表共" & i & "頁."End Sub-示例04-14保護/撤銷保護工作表示例04-14-01Sub ProtectSheet(MsgBox "保護當前工作表并設(shè)定密碼"ActiveSheet.Protect Password:="fanjy"End Sub示例說明：運行代碼后，當前工作表中將不允許編輯，除非撤銷工作表保護。-示例04-14-02Sub UnprotectSheet(MsgBox "撤銷當前工作表保護"Ac

23、tiveSheet.UnprotectEnd Sub示例說明：運行代碼后，如果原保護的工作表設(shè)置有密碼，則要求輸入密碼。-示例04-14-03保護當前工作簿中的所有工作表Sub ProtectAllWorkSheets(On Error Resume NextDim ws As WorksheetDim myPassword As StringmyPassword = InputBox("請輸入您的密碼" & vbCrLf & _"(不輸入表明無密碼" & vbCrLf & vbCrLf & _"確保您沒有忘記密碼！", "輸入密碼"For Each ws In ThisWorkbook.Worksheetsws.Protect (myPasswordNext wsEnd Sub-