vba 關鍵字查詢在轉寫

man65boy

可否在關鍵字查詢b欄後，把他編號的資料在Label3上呈現，例如:
ListBox1點選後(磨光鐵板9'*8)，Label2出現(磨光鐵板9'*8)，
Label3出現(1006)相對的資料，再按"轉寫"把Label2的資料轉寫到H1儲存格裏，Label3的資料轉寫到H2儲存格裏。有勞老師們解題!
這檔案是在這討論區一位老師的作品，小弟學藝不精，無法應用。
明細查詢.rar (51.08 KB)

下載次數: 5

2015-9-8 18:39

准提部林

1. Private Sub CommandButton1_Click()
   
2. With Sheets("Sheet1")
   
3.     .[H1].Value = Label2.Caption
   
4.     .[H2].Value = Label3.Caption
   
5. End With
   
6. End Sub
   
7. 　
   
8. Private Sub ListBox1_Change()
   
9. Label2.Caption = ListBox1.Column(0)
   
10. Label3.Caption = ListBox1.Column(1)
    
11. End Sub
    
12. 　
    
13. Private Sub TextBox1_Change()
    
14. Dim i, Arr, xD, N&
    
15. If TextBox1 = "" Then GoTo 101
    
16. Arr = Sheet1.UsedRange.Columns("A:B").Cells
    
17. Set xD = CreateObject("Scripting.Dictionary")
    
18. For i = 2 To UBound(Arr)
    
19. 　　If InStr(Arr(i, 2), TextBox1) Then N = N + 1: xD(N) = Array(Arr(i, 1), Arr(i, 2))
    
20. Next i
    
21. If N = 0 Then GoTo 101
    
22. ListBox1.List = Application.Transpose(Application.Transpose(xD.items))
    
23. ListBox1.Visible = True
    
24. Exit Sub
    
25. 101:
    
26. Label2.Caption = "": Label3.Caption = "": ListBox1.Visible = False
    
27. End Sub
    
28. 　
    
29. Private Sub UserForm_Initialize()
    
30. ListBox1.Visible = False
    
31. End Sub

複製代碼

附件下載：
明細查詢v01.rar (53.28 KB)

下載次數: 11

2015-9-8 23:00

　

man65boy

回復 2# 准提部林

謝謝大師級的准大解題，完全符合，准大在知識+的知識貢獻，真是令小弟好佩服，之前都有在追蹤准大的知識，嘿嘿!
准大的名言:
＜准提部林＞知識+．點數有多有少．公仔換不了．慈善捐不了．門票抵不了多了富不了．少了死不了．機心追累何時了知識+．頭銜有高有低．名片印不了．招牌掛不了．墓誌刻不了高了傲不了．低了羞不了．苦心謀取何時了 　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 滴水效應

謝謝老師!^^