工作表(Worksheet)相關的屬性和基本操作應用示例
2024-07-15 01:55:04
供稿：網友
在編寫代碼時，經常要引用工作表的名字、知道工作表在工作簿中的位置、增加工作表、刪除工作表、復制工作表、移動工作表、重命名工作表，等等。下面介紹與此有關及相關的一些屬性和方法示例。
--------------------------------------------------------------------------------
[示例04-01]增加工作表(Add方法)
Sub AddWorksheet()
MsgBox "在當前工作簿中添加一個工作表"
Worksheets.Add
MsgBox "在當前工作簿中的工作表sheet2之前添加一個工作表"
Worksheets.Add before:=Worksheets("sheet2")
MsgBox "在當前工作簿中的工作表sheet2之后添加一個工作表"
Worksheets.Add after:=Worksheets("sheet2")
MsgBox "在當前工作簿中添加3個工作表"
Worksheets.Add Count:=3
End Sub
示例說明：Add方法帶有4個可選的參數，其中參數Before和參數After指定所增加的工作表的位置，但兩個參數只能選一；參數Count用來指定增加的工作表數目。
--------------------------------------------------------------------------------
[示例04-02]復制工作表(Copy方法)
Sub CopyWorksheet()
MsgBox "在當前工作簿中復制工作表sheet1并將所復制的工作表放在工作表sheet2之前"
Worksheets("sheet1").Copy Before:=Worksheets("sheet2")
MsgBox "在當前工作簿中復制工作表sheet2并將所復制的工作表放在工作表sheet3之后"
Worksheets("sheet2").Copy After:=Worksheets("sheet3")
End Sub
示例說明：Copy方法帶有2個可選的參數，即參數Before和參數After，在使用時兩個參數只參選一。
--------------------------------------------------------------------------------
[示例04-03]移動工作表(Move方法)
Sub MoveWorksheet()
MsgBox "在當前工作簿中將工作表sheet3移至工作表sheet2之前"
Worksheets("sheet3").Move Before:=Worksheets("sheet2")
MsgBox "在當前工作簿中將工作表sheet1移至最后"
Worksheets("sheet1").Move After:=Worksheets(Worksheets.Count)
End Sub
示例說明：Move方法與Copy方法的參數相同，作用也一樣。
--------------------------------------------------------------------------------
[示例04-04]隱藏和顯示工作表(Visible屬性)
[示例04-04-01]
Sub testHide()
MsgBox "第一次隱藏工作表sheet1"
Worksheets("sheet1").Visible = False
MsgBox "顯示工作表sheet1"
Worksheets("sheet1").Visible = True
MsgBox "第二次隱藏工作表sheet1"
Worksheets("sheet1").Visible = xlSheetHidden
MsgBox "顯示工作表sheet1"
