Autofilter 问题

cyrilmagic · 发表于 2023-1-1 22:02

设置了一段自动筛选，但就是一直显示 autofilter无效，求教大神，就是想筛选出E列大于0.3的所有行，最后停留在筛选状态

VBA 语句就是
Sub FilterRows()
Worksheet.Range("A1").AutoFilter Field:=5, Criteria1:=">0.7"
End sub

tmplinshi · 发表于 2023-1-1 22:23

本帖最后由 tmplinshi 于 2023-1-1 22:26 编辑

把开头的 Worksheet. 去掉，或者换成 ActiveSheet 或 Sheet1。

看来开头加上 Option Explicit 还是很有好处的。
（工具 - 选项，勾选“要求变量声明”，会自动添加 Option Explicit）

添加了 Option Explicit 选项，提示“变量未定义”：
Option Explicit.png

没有 Option Explicit 选项，则提示“要求对象”：
未添加Option Explicit.png

3190496160 · 发表于 2023-1-2 10:29

Sub 筛选()
w = InputBox("请输入筛选值", "筛选值", "0.3")
If w = "" Then End
With ActiveSheet
.AutoFilterMode = False
.Rows(1).AutoFilter
.Range("A1").CurrentRegion.AutoFilter Field:=5, Criteria1:=">" & Val(w)
End With
End Sub
Sub 全显()
If ActiveSheet.FilterMode = True Then ''如果是处于筛选状态
ActiveSheet.ShowAllData ''取消筛选状态
End If
End Sub

3190496160 · 发表于 2023-1-2 10:29

Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "筛选" Then
      Call 筛选
      .Caption = "全显"
Else
      Call 全显
      .Caption = "筛选"
End If
End With
End Sub

3190496160 · 发表于 2023-1-2 10:30

一个按钮，两个功能：筛选，全显，
可以自由输入筛选值

Book1.rar (20.45 KB, 下载次数: 2)

3190496160 · 发表于 2023-1-2 10:31

Book1.rar (20.45 KB, 下载次数: 1)

Learner2022 · 发表于 2023-1-2 11:12

tmplinshi 发表于 2023-1-1 22:23
把开头的 Worksheet. 去掉，或者换成 ActiveSheet 或 Sheet1。

看来开头加上 Option Explicit 还是很有 ...

学到了啊没想到强制声明还有这种好处

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

[求助] Autofilter 问题