【求教】-某列是筛选状态判断？

xdwy81129 · 发表于 2023-2-12 08:46

本帖最后由 xdwy81129 于 2023-2-12 10:44 编辑

表格的:M列，N列，O列的第一行，分别有（筛选状态）的标志（下拉标志）

求解：
请求用vba语句判断A列-Z列的每1列的第一行是否有筛选的下拉标志。

捕获1.JPG

【求教】-某列是筛选状态判断.rar (32.1 KB, 下载次数: 4)

tanglf188 · 发表于 2023-2-12 08:59

AutoFilterMode，工作表属性，用于判断是否存在下拉箭头
FilterMode，工作表属性，筛选模式，用于判断是否存在列进行了筛选
实例：
If Sheet1.FilterMode = True Then Sheet1.ShowAllData
If Sheet1.AutoFilterMode = True Then Sheet1.Range("A1").AutoFilter

shenjianrong163 · 发表于 2023-2-12 09:30

Sub test()
Dim i%, c%
Dim rng As Range
On Error Resume Next
With ActiveSheet
c = .Rows.Find("*", , , , 2, 2).Column '获取有数据的最大列
Set rng = .AutoFilter.Range
For i = 1 To c
If Not Application.Intersect(rng, .Cells(1, i)) Is Nothing Then
MsgBox "第" & i & "列第一行筛选"
End If
Next
End With
End Sub

复制代码

xdwy81129 · 发表于 2023-2-12 09:33

tanglf188 发表于 2023-2-12 08:59
AutoFilterMode，工作表属性，用于判断是否存在下拉箭头
FilterMode，工作表属性，筛选模式，用于 ...

表属性知道

求教的是某列的筛选状态可以判断不？

tanglf188 · 发表于 2023-2-12 09:58

xdwy81129 发表于 2023-2-12 09:33
表属性知道

知道还问？

xdwy81129 · 发表于 2023-2-12 10:42

shenjianrong163 发表于 2023-2-12 09:30

感谢感谢
太感谢老师赐教了。

老师的代码太厉害了，佩服佩服佩服

xdwy81129 · 发表于 2023-2-12 10:43

tanglf188 发表于 2023-2-12 09:58
知道还问？

感谢回复。

只是大侠没有看懂题意了。

感谢回帖。

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

[已解决] 【求教】-某列是筛选状态判断？

评分