代碼1 - Worksheets與Sheets區別

?????Worksheets表示普通工作表;Sheets即可表示普通工作表也可表示圖標工作表。

' 下面模塊中代碼結果是一樣的,大家理解時可結合上面區別說明進行了解
Sub Test()Worksheets("Sheet1").Range("A1").Value = 100Sheets("Sheet1").Range("A1").Value = 200
End Sub

?

代碼2 - 使用工作表代碼對單元格賦值

' 對工作表"Sheet2"的C4單元格設置內容為100
Sub SheetTest()'方式一：通過指定工作表名稱找到工作表Worksheets("Sheet2").Range("C4").Value = 100'方式二：通過工作表索引找到工作表Worksheets(2).Range("C4").Value = 100'方式二：通過選定工作表后再進行賦值(選擇工作表后execl會切換道對應工作表界面)Worksheets("Sheet2").SelectRange("C4").Value = 100
End Sub

?

代碼3 - 工作表添加、修改名稱

Sub SheetTest()' 添加一個默認工作表,創建在當前工作表左側'Sheets.Delete' 創建工作表在Sheet2工作表左側' Sheets.Add before:=Sheets("Sheet2")' 創建工作表在Sheet2工作表右側' Sheets.Add after:=Sheets("Sheet2")' 創建名為"測試工作表"工作表在Sheet13工作表左側Sheets("Sheet13").SelectSheets.Add.Name = "測試工作表"End Sub

?

代碼4 - 工作表移動

Sub SheetTest()' 將"臨時表"工作表移動至"測試工作表"工作表左側'Sheets("臨時表").Move before:=Sheets("測試工作表")' 將"臨時表"工作表移動至"Sheet16"工作表右側Sheets("臨時表").Move after:=Sheets("Sheet16")End Sub

?

代碼5 - 工作表復制

Sub SheetTest()' 將"臨時表"工作表移動至"測試工作表"工作表左側'Sheets("臨時表").Copy before:=Sheets("測試工作表")' 將"臨時表"工作表移動至"Sheet16"工作表右側Sheets("臨時表").Copy after:=Sheets("Sheet16")End Sub

?

代碼6 - 工作表刪除

Sub SheetTest()' 對"Sheet6"工作表進行隱藏或顯示'Sheets("Sheet6").Visible = False'Sheets("Sheet6").Visible = True' 刪除"Sheet18"工作表(默認刪除會有彈窗提醒)' Sheets("Sheet18").Delete' 刪除"測試工作表"工作表(禁用系統彈窗提醒)Application.DisplayAlerts = FalseSheets("測試工作表").DeleteApplication.DisplayAlerts = TrueEnd Sub

?

代碼7 - 使用ForEach遍歷工作表

Sub WorkbooksTest()Dim sheet As WorksheetFor Each sheet In WorksheetsMsgBox sheet.NameNext sheetEnd Sub

?

關注

筆者 - jxd