本帖最后由 chicheng8685 于 2024-8-9 15:28 编辑
今天遇到一个问题,正好也在网上找到了解决方案,可是我按这个方案弄,总是出错,无法达到其演示的效果,求高手相助,感谢!
[color=rgba(0, 0, 0, 0.9)]以下是原文内容:
左侧是搜索的结果，右边是搜索栏、加载按钮、搜索结果统计。
我们来看下设计步骤： 设计部分：添加加载按钮：插入-形状工具。搜索栏：开发工具-插入-ActiveX 文本框。统计结果：SUBTOTAL()函数。 功能部分：分别在D1、E1、F1输入：“共搜索到：”、=SUBTOTAL(3,B:B)-1、“条记录”按ALT+F11编写 load 代码、搜索框代码。
我已以按上面的做了,可以一运行就出错,说超出范围...
实时搜例子 1.zip
(74.18 KB, 下载次数: 18)
刚开始那个附件上传错了,居然没有代码...重新上传了....
附上原来的代码
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
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2024-8-9 08:30
楼主
