求帮忙将03版转换为07版以上的功能

财赋

请查看附件，这个是VBA程序写的一个模糊查询，当我把03版XLS直接另存为07版以上XLSX文件后，里面的查询功能都不能用了，麻烦高手把这个03版的改成07版以上的，同样实现03版里的功能，另外帮实现一个功能：当输入任意字值后，只要表格里没有的内容就让不显示出来，现在的这个如果输入没有在表格里的任意字后，表格是不变化的。

aman1516

试试：

1. Private Sub TextBox1_Change()
   
2.     If TextBox1.Text = "" Then
   
3.         Me.UsedRange.Offset(4).EntireRow.Hidden = False
   
4.         Exit Sub
   
5.     Else
   
6.         Me.UsedRange.Offset(4).EntireRow.Hidden = True
   
7.     End If
   
8.     Dim arr, rng As Range, i&, j&, m&, t$
   
9.     arr = Me.UsedRange
   
10.     t = TextBox1.Text
    
11.     For i = 5 To UBound(arr)
    
12.         For j = 1 To UBound(arr, 2)
    
13.             If InStr(arr(i, j), t) Then
    
14.                 m = m + 1
    
15.                 If m = 1 Then Set rng = Cells(i, 1) Else Set rng = Union(rng, Cells(i, 1))
    
16.                 Exit For
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     If m > 0 Then
    
21.         Me.UsedRange.Offset(4).EntireRow.Hidden = True
    
22.         rng.EntireRow.EntireRow.Hidden = False
    
23.     End If
    
24. End Sub

复制代码

aman1516

看下是否你所需要的 供应商信息.rar (19.41 KB, 下载次数: 2)

2018-1-22 20:22 上传

点击文件名下载附件

财赋

aman1516 发表于 2018-1-22 20:20
试试：

太感谢了，高手啊，厉害

财赋

aman1516 发表于 2018-1-22 20:20
试试：

厉害了我的哥

财赋

aman1516 发表于 2018-1-22 20:22
看下是否你所需要的

打开后是xlsm格式，打不开啊，我把扩展名改成XLSX也打不开

aman1516

财赋 发表于 2018-1-22 22:27
打开后是xlsm格式，打不开啊，我把扩展名改成XLSX也打不开

不能直接改文件名后缀的，03版打开07版需下载兼容包，或直接卸掉装07以上版本吧

财赋

aman1516 发表于 2018-1-22 22:42
不能直接改文件名后缀的，03版打开07版需下载兼容包，或直接卸掉装07以上版本吧

我用2016版的也打不开

财赋

aman1516 发表于 2018-1-22 22:42
不能直接改文件名后缀的，03版打开07版需下载兼容包，或直接卸掉装07以上版本吧

您好，上次帮我把问题解决了，但是现在我想把工作表设置个密码后进入，那个文本框里就输不了字了是什么情况啊，求答