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的情况下报废。