求：筛选全选的代码

枫丹白露 · 发表于 2023-2-4 13:35

这个代码，不能实现E列筛选全选的状态，不知哪里有错

Range("e5").AutoFilter Field:=1, Criteria1:="=全选" 'e列筛选全选择

准提部林 · 发表于 2023-2-4 13:46

1) 篩選區只有E列???
2) "全选"??? 是顯示全部吧!!! (即藍色三角變黑色)

上傳附檔吧!!

枫丹白露 · 发表于 2023-2-4 14:11

准提部林发表于 2023-2-4 13:46
1) 篩選區只有E列???
2) "全选"??? 是顯示全部吧!!! (即藍色三角變黑色)

是的，显示全部，筛选区只有E列

准提部林 · 发表于 2023-2-4 14:14

枫丹白露发表于 2023-2-4 14:11
是的，显示全部，筛选区只有E列

手動..下拉三角..顯示全部
用錄製宏試試!!

枫丹白露 · 发表于 2023-2-4 14:18

准提部林发表于 2023-2-4 14:14
手動..下拉三角..顯示全部
用錄製宏試試!!

录制宏得出代码：Range("e5").AutoFilter Field:=1

但放到文件中，不能用

准提部林 · 发表于 2023-2-4 15:36

枫丹白露发表于 2023-2-4 14:18
录制宏得出代码：Range("e5").AutoFilter Field:=1

但放到文件中，不能用

沒附件//猜不得

dailj · 发表于 2023-2-4 15:38

枫丹白露发表于 2023-2-4 14:18
录制宏得出代码：Range("e5").AutoFilter Field:=1

但放到文件中，不能用

Range("e5").AutoFilter Field:=1是可以的

如果不能用，是不是筛选区域有空行或别的？假设100行改成Range("e5:e100").AutoFilter Field:=1试试

枫丹白露 · 发表于 2023-2-5 10:16

dailj 发表于 2023-2-4 15:38
Range("e5").AutoFilter Field:=1是可以的

如果不能用，是不是筛选区域有空行或别的？假设100行改成Ra ...

谢谢，试了是可以的

枫丹白露 · 发表于 2023-2-5 10:17

dailj 发表于 2023-2-4 15:38
Range("e5").AutoFilter Field:=1是可以的

如果不能用，是不是筛选区域有空行或别的？假设100行改成Ra ...

如果有11列筛选列，要全部显示，可以用什么代码吗

准提部林 · 发表于 2023-2-5 10:51

枫丹白露发表于 2023-2-5 10:17
如果有11列筛选列，要全部显示，可以用什么代码吗

不管幾列...全顯示
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

		自动登录	找回密码
密码			免费注册

[求助] 求：筛选全选的代码