close
 

下圖 B 行的「NO」是只由數值構成的資料,

若欲對 NO 篩選出尾碼為 5 的資料,

 單靠 Excel 內建的自動篩選功能是作不到的。

 







由於 Excel 只把「NO」欄位的資料視為「數值」, 所以對於「尾碼為 5」這種文字搜尋、

篩選的方式, 不適用於「NO」欄位上；若要解決這種狀況, 可在數值資料的字首加上單引號「'」,

資料即被視為「字串」而可進行篩選如下面的範例：

範例 ●以 AutoFilter 方法篩選數值的尾碼
Sub AutoFilterSample3()
Dim myCell As Range
Dim myCode As Variant

myCode = Application.InputBox("請鍵入數字的尾碼")

If myCode = False Then Exit Sub

For Each myCell In Range("傳票").Offset(1).Resize(Range("傳票").Rows.Count - 1, 1)
myCell.Value = "'" & myCell.Value
Next

Selection.AutoFilter Field:=1, Criteria1:="=*" & myCode

End Sub



程序執行後, 可篩選出「NO」欄位中尾碼為「5」的資料：


Point:若欲回復範例 102 程序執行前的工作表(清除篩選條件, 顯示所有資料),

請使用 ShowAllData 方法來完成。

arrow
arrow
    全站熱搜

    Fong Mong Fe 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄