第十一章 選取、篩選資料

第十一章　選取、篩選資料
11-01　自動篩選

應用範例
Sub 自動篩選()
moji = “台北”
MsgBox “在使用中儲存格所屬的資料表中，將資料表中自左數起第三行欄位內，含有” & moji & “字樣的資料篩選出來”
Moji = “*” & moji & “*”
Selection.AutoFilter Field:=3, Criteria1:=moji
End Sub

11-02　解除自動篩選

應用範例1
Sub 解除自動篩選1()
MsgBox “解除自動篩選的狀態(保留資料篩選按鈕)”
ActiveSheet.ShowAllData
End Sub

應用範例2
Sub 解除自動篩選2()
MsgBox “解除自動篩選的狀態(清除資料篩選按鈕)”
Selection.AutoFilter
End Sub

11-03　Switch函數的應用

應用範例
Sub Switch函數的應用()
MsgBox “顯示今天的日期，並在其後以括號顯示相對應的星期”
hi = FormatDateTime(Now, vbLongDate)
youbi = Weekday(Now())
youbi2 = Switch(youbi = 1, “(Sun.)”, youbi = 2, “(Mon.)”, youbi = 3, “(Tue.)”, youbi = 4, “(Wed.)”, youbi = 5, “(Thu.)”, youbi = 6, “(Fri.)”, youbi = 7, “(Sat.)”)
MsgBox hi & youbi2
End Sub

11-04　Choose函數的應用

應用範例
Sub Choose函數的應用()
MsgBox “以1到6的範圍作為選擇的條件：2為「特獎」，3和5為「頭獎」，1、4、6為「銘謝惠顧」”
suu = Int(Rnd()*6) + 1
MsgBox Choose(suu, “銘謝惠顧”, “特獎”, “頭獎”, “銘謝惠顧”, “頭獎”, “銘謝惠顧”)
End Sub

11-05　篩選資料表中特定的資料

應用範例
Sub 進階篩選()
hanni = “A2:C12”
jhanni = “E2:G3”
thanni = “E6:G6”
ActiveSheet.Range(hanni).Select
henji = MsgBox (“在A2到C12中，以儲存格範圍E2到G3內的準則為篩選條件，將被篩選出來的資料放置在儲存格範圍E6到G6之下”, vbYesNo)
If henji = vbNo Then Exit Sub
Selection.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range(jhanni), CopyToRange:=Range(thanni)
End Sub