Chapter-06 工作表.

第六章　工作表

06-01　建立新的工作表

應用範例
Sub 新增工作表()
MsgBox “在最後一個工作表(最右邊的工作表)的後面新增一個工作表”
maisuu = Worksheets.Count
Worksheets.Add After:=Worksheets(maisuu)
End Sub

06-02　選取工作表

應用範例
Sub 選取工作表()
MsgBox “在使用中活頁簿內選取索引編號為2的工作表”
Worksheets(2).Activate
End Sub

06-03　選取多個工作表

應用範例
Sub 選取多個工作表()
MsgBox “選取第一及第三個工作表”
Worksheets(1).Select
Worksheets(3).Select False
End Sub

06-04　選取前面(後面)的工作表

應用範例
Sub 選取後一個工作表()
MsgBox “選取使用中工作表的後一個工作表”
ActiveSheet.Next.Activate
End Sub

06-05　取得工作表的數量

應用範例
Sub 取得工作表的數量()
MsgBox “顯示活頁簿中工作表的數量”
MsgBox ActiveWorkbook.Worksheets.Count
End Sub

06-06　取得工作表的索引編號

應用範例
Sub 取得工作表的索引編號()
MsgBox “顯示使用中工作表的索引編號”
MsgBox ActiveSheet.Index
End Sub

06-07　隱藏工作表

應用範例1
Sub 隱藏工作表()
MsgBox “隱藏使用中的工作表”
n = ActiveSheet.Index
Worksheets(n).Visible = False
MsgBox “回復原來的狀態”
Worksheets(n).Visible = True
End Sub

應用範例2
Sub 顯示所有的工作表()
MsgBox “在使用中活頁簿內，將包含隱藏中的所有工作表都顯示出來”
For Each youso In Sheets
youso.Visible = True
Next youso
End Sub

06-08　刪除工作表

應用範例
Sub 刪除工作表()
MsgBox “刪除使用中的工作表”
ActiveSheet.Delete
End Sub

06-09　複製工作表

應用範例
Sub 複製工作表()
MsgBox “複製使用中的工作表，並貼到使用中工作表的後方”
ActiveSheet.Copy After:=ActiveSheet
End Sub

06-10　使用VBA的工作表函數

應用範例
Sub 使用工作表函數()
MsgBox “計算儲存格範圍B3到B6的平均值”
MsgBox Application.Average(Range(“B3:B6”))
End Sub

06-11　保護工作表/取消保護工作表

應用範例1
Sub 保護工作表()
MsgBox “保護使用中工作表，並設定取消保護工作表的密碼”
ActiveSheet.Protect password:=“excel2003”
End Sub

應用範例2
Sub 取消保護工作表
MsgBox “取消保護使用中的工作表”
ActiveSheet.Unprotect
End Sub

06-12　移動工作表的位置

應用範例
Sub 移動工作表的位置()
MsgBox “將使用中工作表移動到最後面”
suu = Sheets.Count
ActiveSheet.Move After:=Worksheets(suu)
End Sub

06-13　變更工作表索引標籤的名稱

應用範例
Sub 變更工作表的索引標籤名稱()
MsgBox “將使用中工作表的索引標籤名稱變更為「資料」”
namae = ActiveSheet.name
ActiveSheet.Name = “資料”
MsgBox “回復原來的狀態”
ActiveSheet.Name = namae
End Sub

06-14　變更工作表索引標籤的顏色

應用範例1
Sub 設定工作表索引標籤的顏色()
MsgBox “變更使用中工作表的索引標籤顏色”
ActiveSheet.Tab.ColorIndex = 7
End Sub

應用範例2
Sub 將工作表索引標籤的顏色設為預設值()
MsgBox “將使用中工作表的索引標籤顏色設為預設值”
ActiveSheet.Tab.ColorIndex = -4142
End Sub

06-15　隱藏工作表的索引標籤

應用範例
Sub 隱藏工作表的索引標籤()
MsgBox “交替工作表索引標籤的狀態”
ActiveWindow.DisplayWorkbookTabs = Not (ActiveWindow.DisplayWorkbookTabs)
End Sub

06-16　捲動到最後面的工作表索引標籤

應用範例
Sub 捲動工作表的索引標籤()
MsgBox “捲動到最後面的工作表索引標籤”
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
MsgBox “捲動到最前面的工作索引標籤”
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End Sub

06-17　隱藏列與行

應用範例1
Sub 隱藏列()
MsgBox “隱藏使用中儲存格所屬的列”
gyou = ActiveCell.Row……1
ActiveSheet.Rows(gyou).Hidden = True
MsgBox “回復原來的狀態”
ActiveSheet.Rows(gyou).Hidden = False
End Sub

應用範例2
Sub 隱藏行()
MsgBox “隱藏使用中儲存格所屬的行”
retu = ActiveCell.Column
ActiveSheet.Columns(retu).Hidden = True
MsgBox “回復原來的狀態”
ActiveSheet.Columns(retu).Hidden = False
End Sub
06-18　隱藏列、行的標題

應用範例
Sub 隱藏列與行的標題()
MsgBox “切換列、行標題的顯示狀態”
ActiveWindow.DisplayHeadings = Not (ActiveWindow.DisplayHeadings)
End Sub

06-19　插入列、行

應用範例1
Sub 插入一列()
MsgBox “在使用中儲存格所屬列的上方插入一列”
gyou = Selection.Row
ActiveSheet.Rows(gyou).Insert
End Sub

應用範例2
Sub 插入一行()
MsgBox “在使用中儲存格所屬行的左方插入一行”
retu = Selection.Column……1
ActiveSheet.Columns(retu).Insert
End Sub

應用範例3
Sub 插入多個列()
MsgBox “在使用中儲存格所屬列的上方插入三列”
For i = 1 To 3
gyou = Selection.Row
ActiveSheet.Rows(gyou).Insert
Next i
End Sub

06-20　刪除列及行

應用範例
Sub 刪除工作表中的列或行()
MsgBox “刪除使用中工作表內所選取的列或行”
Selection.Delete
End Sub

06-21　變更列高與行寬

應用範例1
Sub 設定列高()
MsgBox “將使用中儲存格所屬列的高度設為30點”
gyou = ActiveCell.Row
takasa = ActiveSheet.Rows(gyou).RowHeight
ActiveSheet.Rows(gyou).RowHeight = 30
MsgBox “回復原來的狀態”
ActiveSheet.Rows(gyou).RowHeight = takasa
End Sub

應用範例2
Sub 設定行寬()
MsgBox “將使用中儲存格所屬行的寬度設為14個字元”
retu = ActiveCell.Column
haba = ActiveSheet.Columns(retu).ColumnWidth
ActiveSheet.Columns(retu).ColumnWidth = 14
MsgBox “回復原來的狀態”
ActiveSheet.Columns(retu).ColumnWidth = haba
End Sub

06-22　設定標準列高及標準行寬

應用範例
Sub 將列高與行寬還原回標準值()
MsgBox “將使用中儲存格範圍所屬的列高及行寬還原回標準值”
Selection.UseStandardHeight = True
Selection.UseStandardWidth = True
End Sub