vba窗体查询系统

233933266

我想要的效果是：在数据库输入相应的文本内容后，在查询的表格里按一下版号查询跳出一个整体的框然后输入编号就会调出相关的文本内容跟对应的图片文件的编号的图片。华为网盘附件：
【华为网盘】 查询系统.zip
(5.29M)

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target = "" Then Exit Sub
   
4. If Target.Address <> "$D$3" Then Exit Sub
   
5. Dim d, Arr, i&, pth$, ML, MT, MW, MH, shp, fnm$
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. Arr = Sheet2.[a1].CurrentRegion
   
8. For i = 4 To UBound(Arr)
   
9.     d(Arr(i, 1)) = i
   
10. Next
    
11. pth = ThisWorkbook.Path & "\图片"
    
12.     For Each shp In ActiveSheet.Shapes
    
13.         If shp.Type = 1 Then
    
14.             shp.Delete
    
15.         End If
    
16.     Next
    
17. If d.exists(UCase(Target.Value)) Then
    
18.     fnm = pth & UCase(Target.Value) & ".jpg"
    
19.     With Range("d4:k23")
    
20.         ML = .Left
    
21.         MT = .Top
    
22.         MW = .Width
    
23.         MH = .Height
    
24.     End With
    
25.     ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    
26.     Selection.ShapeRange.Fill.UserPicture fnm
    
27.     [d3].Resize(1, 8) = Application.Index(Arr, d(UCase(Target.Value)), 0)
    
28.     [d3].Select
    
29. Else
    
30.     MsgBox "没有此数据。"
    
31.     [d3].Resize(1, 8).ClearContents
    
32. End If
    
33. End Sub
    

复制代码

蓝桥玄霜

请见附件。

233933266

蓝桥玄霜 发表于 2013-9-6 16:56
请见附件。

谢谢老师，这是我想要的效果。

虎啸glq

蓝桥玄霜 发表于 2013-9-6 16:56
请见附件。

这个在EXCEL中怎么用？可以简要说明下吗？