如何用Excel 制作即时搜索工具 总出错

chicheng8685

Yalishanda30 发表于 2024-8-9 12:41
不是当前页，

我的意思就是说现在这个不是当前页...不过那个动态图片是直接在当前页显示的,我按那个示例输入代码,运行就错误,代码9....

fanyoulin

chicheng8685 发表于 2024-8-9 09:10
大神这个稍微有一点点问题,比如我搜22就行,但搜23就不行了...

如果你检索的内容都是数字的话，可以直接利用内置的自动筛选来做。自动筛选可以对数值做范围限定，参考附件，代码只有3、4行，很容易理解；


但如果你检索的包含文本或数字的混合，这个方法不行，自动筛选不支持文本通配符的检索。替代的方法是自行定义检索代码，这个检索代码也很简单，但缺点是检索结果与源数据不能合并在一起，必须单独存放；

Yalishanda30

chicheng8685 发表于 2024-8-9 13:14
我的意思就是说现在这个不是当前页...不过那个动态图片是直接在当前页显示的,我按那个示例输入代码,运行 ...

当前页单一条件两列搜索不好搞

chicheng8685

Yalishanda30 发表于 2024-8-9 14:08
当前页单一条件两列搜索不好搞

Private Sub TextBox1_Change()
Dim descr_ As String
descr_ = "*" & TextBox1.Text & "*"
ActiveSheet.ListObjects("table1").Range.AutoFilter
    ActiveSheet.ListObjects("table1").Range.AutoFilter Field:=2, Criterial:=Array(descr_), Operator:=xlFilterValues
End Sub

Sub load_()
    Range("A2").Select
    On Error Resume Next
    ActiveSheet.List0bjects.Add(xlSrcRange, Range("$A$2:$B$19385"), , xlYes).Name = "table1"
ActiveSheet.TextBox1.SetFocus
End Sub

这个是原来那个教程的代码...我弄了几次,都是错误代码9

chicheng8685

Private Sub TextBox1_Change() Dim descr_ As String descr_ = "*" & TextBox1.Text & "*" ActiveSheet.ListObjects("table1").Range.AutoFilter     ActiveSheet.ListObjects("table1").Range.AutoFilter Field:=2, Criterial:=Array(descr_), Operator:=xlFilterValues End Sub  Sub load_()     Range("A2").Select     On Error Resume Next     ActiveSheet.List0bjects.Add(xlSrcRange, Range("$A$2:$B$19385"), , xlYes).Name = "table1"  ActiveSheet.TextBox1.SetFocus End Sub 这个是原来的代码,一运行就错误代码9

chicheng8685

fanyoulin 发表于 2024-8-9 14:01
如果你检索的内容都是数字的话，可以直接利用内置的自动筛选来做。自动筛选可以对数值做范围限定，参考附 ...

那个大神后来回复的已经弄好了...谢谢!只不过现在的问题是只能在新的页面运行,不能在原页面运行,不过问题不大了...

chicheng8685

Yalishanda30 发表于 2024-8-9 14:08
当前页单一条件两列搜索不好搞

GPT给修改和,但是只能筛选文字,不能筛选数字...
Private Sub TextBox1_Change()
    Dim descr_ As String
    descr_ = "*" & TextBox1.Text & "*"
   
    ' 确保table1表格存在，然后应用筛选
    If Not ActiveSheet.ListObjects("table1") Is Nothing Then
        ActiveSheet.ListObjects("table1").Range.AutoFilter Field:=2, Criteria1:=descr_, Operator:=xlAnd
    End If
End Sub

Sub load_()
    On Error Resume Next
   
    ' 检查表格是否已经存在，如果不存在则创建它
    If ActiveSheet.ListObjects.Count = 0 Then
        ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$2:$B$19385"), , xlYes).Name = "table1"
    End If
   
    ' 创建表格或验证后，将焦点设置到TextBox1
    ActiveSheet.Shapes("TextBox1").Select
    Selection.ShapeRange(1).OLEFormat.Object.Activate
End Sub