VBA操作Excel中常用對象Worksheet的方法筆記，所有內(nèi)容均來源于別怕，Excel VBA其實很簡單。
WorkSheet操作
屬性匯總
| 屬性名稱 | 屬性內(nèi)容 | 例子 |
|---|---|---|
| CodeName | 代碼名稱 | ActiveSheet.CodeName |
| Count | 工作表總數(shù)量 | Worksheets.Count |
| Name | 標簽名稱 | ActiveSheet.Name |
| Visible | 顯示 | Worksheets.Visible = xlSheetHidden |
| Index | 索引號 | |
| UsedRange | 所用單元格（無視空行、空列） | ActiveSheet.UsedRange.Select |
方法匯總
| 方法名稱 | 方法內(nèi)容 | 例子 |
|---|---|---|
| Item | 索引工作表 | Worksheets.Item(1) |
| Add | 新建工作表 | Worksheets.Add |
| Delete | 刪除工作表 | Worksheets("Sheet1").Delete |
| Activate | 激活工作表 | Worksheets(1).Activate |
| Select | 選中工作表 | Worksheets(1).Select |
| Copy | 復(fù)制工作表 | Worksheets("工資表").Copy |
| Move | 移動工作表 | Worksheets("工資表").Move |
| Paste | 黏貼剪切板內(nèi)容 | ActiveSheet.Paste |
引用工作表
Worksheets.Item(1) '引用工作簿中的第1張工作表
Worksheets(1) '引用工作簿中的第1張工作表
Worksheets("Sheet1") '引用工作簿中標簽名稱為"Sheet1"的工作表
Sheet1 '用代碼名稱直接引用工作表
ActiveSheet.CodeName '查看活動工作表的代碼名稱
新建工作表Add
Worksheets.Add before:= Worksheets(1) '在第一張工作表前插入1張新工作表
Worksheets.Add after:= Worksheets(Worksheets.Count) '在最后一張工作表后插入1張新工作表
Worksheets.Add before:= Worksheets(1), Count:=3 '在第一張工作表前插入3張新工作表
Worksheets.Add(after:= Worksheets(1)).Name) = "工資表" '在新建工作表時指定標簽名稱
刪除工作表Delete
Worksheets("Sheet1").Delete '刪除標簽名為Sheet1的工作表
Application.DisplayAlerts = False '刪除工作表時不顯示警告對話框
激活工作表Select/Activate
Worksheets(1).Activate '激活第一張工作表
Worksheets(1).Select '選中表
Worksheets.Select '選中所有的工作表
當工作表隱藏時，Select會出錯；Activate不能同時選中多張工作表。
復(fù)制工作表Copy
帶參數(shù)的Copy將復(fù)制到同一工作簿，不帶參數(shù)的Copy將復(fù)制到新工作簿。
Worksheets("工資表").Copy after:=Worksheets("職工檔案") '將工資表復(fù)制到職工檔案后
Worksheets("工資表").Copy '將工資表復(fù)制到新工作簿中
Sub ShtCopy() '將工資表復(fù)制到新建工作簿中，并且另存為。
Worksheets("工資表").Copy
ActiveSheet.Name = "工資表備份"
ActiveWorkbook.SaveCopyAs "D:\工資表備份.xls"
ActiveWorkbook.Close False
END Sub
移動工作表Move
Worksheets("工資表").Move before := Worksheets("出勤表")
Worksheets("工資表").Move '不指定參數(shù)將移動到新工作簿中
隱藏或顯示工作表
'以上三句代碼等同于從【格式】菜單隱藏工作表
Worksheets('工資表').Visible = False
Worksheets('工資表').Visible = xlSheetHidden
Worksheets('工資表').Visible = 0
'超級隱藏工作表
Worksheets('工資表').Visible = xlSheetVeryHidden
Worksheets('工資表').Visible = 2
'顯示工作表
Worksheets('工資表').Visible = xlSheetVisible
Worksheets('工資表').Visible = 1
Worksheets('工資表').Visible = True
Worksheets('工資表').Visible = -1
Sheets分類
Worksheets是Sheets的一個子類。
- 工作表Worksheet
- 圖表
- MS Excel 4.0宏表
- MS Excel 5.0對話框
