Chapter-10 小計- 排序

第十章　小計‧排序
10-01　工作表中資料的小計

應用範例
Sub 建立小計清單()
MsgBox “在被選取儲存格所屬的資料表中，以月份作為小計的分類依據來建立小計清單”
Selection.SubTotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3)
End Sub

10-02　移除小計清單

應用範例
Sub 移除小計清單()
MsgBox “移除被選取儲存格所屬的小計清單”
Selection.RemoveSubtotal
End Sub

10-03　變更小計清單中的大綱層次

應用範例
Sub 小計清單的大綱()
MsgBox “變更小計清單中大綱的層次”
ActiveSheet.Outline.ShowLevels 3
MsgBox “現在的層次設定為3”
ActiveSheet.Outline.ShowLevels 2
MsgBox “現在的層次設定為2”
ActiveSheet.Outline.ShowLevels 1
MsgBox “現在的層次設定為1”
End Sub

10-04　隱藏小計清單的大綱

應用範例
Sub 隱藏小計清單的大綱()
MsgBox “隱藏小計清單的大綱”
Selection.ClearOutline
End Sub

10-05　資料排序

應用範例
Sub 資料排序()
hanni = “A2:C12”
kii = “B2”
ActiveSheet.Range(hanni).Select
retu = Range(kii).Value
henji = MsgBox (“以” & retu & “為依據對資料表進行排序”, vbYesNo)
If henji = vbNo Then Exit Sub
Selection.Sort Key1:=Range(kii), header:=xlYes
End Sub