将表格进行提升，想给表格增加一个搜索功能。。。表格完善后也会分享出来。

zzq657266102

您好：
       下面是想实现的一个查询功能。。。求各位大神帮助

zzq657266102

发现了一个类似的，改改看看希望能成功。

tanglf188

只用文本框局限性很大啊，要是名称过长或过多记忆也麻烦啊，建议考虑列表视图或树视图罗列名称

zzq657266102

tanglf188 发表于 2023-6-14 14:26
只用文本框局限性很大啊，要是名称过长或过多记忆也麻烦啊，建议考虑列表视图或树视图罗列名称

多谢您的帮助，目前这种简单搜索已经很够用了。太感谢了

suntao2000

`````````````````````

fanyoulin

没必要用窗体，我下载你这个附件就没办法装载控件。还是工作表好用，窗体会有很多意外的麻烦，数据处理也更难；

这个是用工作表做的，代码总共没几行。删除那部分没做，我不确定你是否喜欢？只是做个范例而已；

zzq657266102

suntao2000 发表于 2023-6-14 14:42
`````````````````````

感谢帮助，学习下

zzq657266102

fanyoulin 发表于 2023-6-14 14:44
没必要用窗体，我下载你这个附件就没办法装载控件。还是工作表好用，窗体会有很多意外的麻烦，数据处理也更 ...

简直太喜欢了，这个直接适用于我的财务的筛选表格。放到那上面上，直接爽歪歪

zzq657266102

suntao2000 发表于 2023-6-14 14:42
`````````````````````

点取消返回更改之前的数据，会报错

suntao2000

zzq657266102 发表于 2023-6-14 15:36
点取消返回更改之前的数据，会报错

要先点重新录入，再取消恢复之前的数据。那就改下如下：
Private Sub CommandButton3_Click()
        If n > 0 Then
            TextBox2.Text = d(TextBox1.Text)
            Sheet2.Cells(n, 3) = TextBox2.Text
        End If
End Sub