网站 › 『编程语言讨论求助区』 › excxel的即时筛选出错

wzs0777 发表于 2023-4-7 09:06

excxel的即时筛选出错

代码如下：
Private Sub TextBox1_Change()
For i = 1 To 6
ActiveSheet.UsedRange.AutoFilter Field:=i, Criteria1:="*" & TextBox1 & "*", Operator:=xlFilterValues
Next i
End Sub
报错

https://wzs07.lanzoue.com/iSOd50sai5xa

qidaiaiqing3202 发表于 2023-4-7 09:18

建议重装一下Excel。

放羊的狼 发表于 2023-4-7 09:20

参考官方文档https://learn.microsoft.com/zh-cn/office/vba/api/excel.autofilter?f1url=%3FappId%3DDev11IDEF1%26l%3Dzh-CN%26k%3Dk(vbaxl10.chm537072);k(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue
之前我就是遇到这个问题，读一遍demo再调试基本就懂了

ByCool1 发表于 2023-4-7 09:58

录制宏，然后对录制的宏编辑代码，一般会避免很多语法错误

kami23 发表于 2023-4-7 10:59

Dim ws As Worksheet
Dim rng As Range
Dim foundCell As Range

Set ws = ActiveSheet '获取当前激活的工作表

For Each rng In ws.Range("A1:F1")
    Set foundCell = rng.Find(searchString, LookIn:=xlValues, LookAt:=xlPart)
    If Not foundCell Is Nothing Then
      '找到匹配单元格的操作
    End If
Next rng

Arsage 发表于 2023-4-7 12:52

同一文本在六列中即时筛选，这样的话岂不是根据出不来结果 ？

放羊的狼 发表于 2023-4-7 15:18

楼主，但凡你有点耐心看看我的回复早搞定了

查看完整版本: excxel的即时筛选出错