2003 如何使用VBA讀取Excel中自動篩選器下拉選單的資料

在下面的示例中，以及 filte 物件的屬性，無法遍歷篩選的專案。 我認為我們可以用另一種方式來做，比如生成乙個資料透視表，遍歷資料透視表中的值，然後刪除資料透視表。

dim w as worksheet

dim filterarray()

dim currentfiltrange as stringsub changefilters()

set w = worksheets("crew")with

currentfiltrange = .

with .filters

redim filterarray(1 to .count, 1 to 3)

for f = 1 to .count

with .item(f)

if .on then

filterarray(f, 1) = .criteria1if .operator then

filterarray(f, 2) = .operatorfilterarray(f, 3) = .criteria2end if

end if

end with

nextend with

end with

falsea1").autofilter field:=1, criteria1:="s"

end sub

如果您使用下拉框，您的運營商是什麼？

可以直接用乙個單元格實現，可以選擇這個單元格，點資料-資料有效性-改為序列-值為“男、女”（不帶引號，英文逗號）;

也可以用ActiveX控制項的下拉框實現，即組合框，需要用VBA**實現"雄"“女性”。

這是由系統設定的，不能單獨更改。

如果要更改資料有效性下拉列表中的字型大小，沒有直接的方法，可以將整個工作表的字型大小變小，然後增加顯示比例，使資料有效性下拉列表中的字型顯得更大。

那個字型大小就是Windows作業系統的系統字型大小，只有把Windows系統字型變大才能變大，但是這樣一來，你系統的字也會變大不好看。

有效性應該不起作用，您可以使用組合框控制項。

通過VBA中的功能表（！）將當前檔案指標指向所選工作簿中的指定工作表。

引數說明：工作簿是工作簿的名稱，即檔案的名稱。

Worksheet 是工作表的名稱。

設定檔案指標後，可以操作指定檔案的指定工作表。

我也學到了！

這是乙個巨集。 樓上謝謝！

在不知道VBA的情況下，將過濾後的資料複製貼上到新錶中，舊表可以在沒有VBA的情況下報廢。