求助关于查询界面的问题？

deepbox

最近自己碰到一个难题，为了提高查询效率，需要制作一个有查询界面的excel 文件，说明在文件里面，我自己简单画了一个界面，希望各位大神指教帮忙，谢谢了！

p.s 我用的2007版本  
装箱界面查询求助

装箱查询界面求助.part1.rar (1.39 MB, 下载次数: 10)

2017-7-28 17:37 上传

点击文件名下载附件

装箱查询界面求助.part2.rar (1.39 MB, 下载次数: 7)

2017-7-28 17:38 上传

点击文件名下载附件

装箱查询界面求助.part3.rar (1.19 MB, 下载次数: 7)

2017-7-28 17:38 上传

点击文件名下载附件

deepbox

自己顶一下，大家没看到这个帖子吗？

deepbox

求高手帮忙解决一下。

deepbox

没有帮助的吗？

deepbox

没有高手帮忙吗？

chxw68

1. Public d As Object
   
2. Private Sub cmd_exit_Click()
   
3.   Unload UserForm1
   
4. End Sub
   
5. 
   
6. Private Sub cmd_ok_Click()
   
7.   Dim r%, i%
   
8.   Dim rng As Range
   
9.   Dim ws As Worksheet
   
10.   With UserForm1
    
11.     If .TextBox1 = "" And .TextBox2 = "" Then
    
12.       MsgBox "住院号和姓名不能都为空！"
    
13.       Exit Sub
    
14.     End If
    
15.     If d.exists(.TextBox1.Text) Then
    
16.       MsgBox d(.TextBox1.Text)
    
17.     ElseIf d.exists(.TextBox2.Text) Then
    
18.       MsgBox d(.TextBox2.Text)
    
19.     End If
    
20.   End With
    
21. End Sub
    
22. 
    
23. Private Sub UserForm_Initialize()
    
24.   Dim r%, i%
    
25.   Dim arr, brr
    
26.   Dim ws As Worksheet
    
27.   Set d = CreateObject("scripting.dictionary")
    
28.   For Each ws In Worksheets
    
29.     If ws.Name Like "####-####" Then
    
30.       With ws
    
31.         r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
32.         arr = .Range("a2:i" & r)
    
33.         For i = 1 To UBound(arr)
    
34.           If Len(arr(i, 1)) <> 0 Then
    
35.             xm = arr(i, 1)
    
36.           End If
    
37.           For j = 2 To UBound(arr, 2) Step 2
    
38.             If IsNumeric(arr(i, j)) Then
    
39.               d(CStr(arr(i, j))) = xm
    
40.               d(arr(i, j + 1)) = xm
    
41.             End If
    
42.           Next
    
43.         Next
    
44.       End With
    
45.     End If
    
46.   Next
    
47. End Sub
    

复制代码

chxw68

详见附件。

deepbox

首先谢谢你的帮助，但是打开文件时候提示发现不可读取的内容，进去后提示“”已删除的部件: 有 XML 错误的 /xl/comments1.xml。 (批注) 加载错误。 行 2，列 179。“ 不知道是什么原因？

hzruziniu

楼主怎么不送花