標題:
vba 關鍵字查詢在轉寫
[打印本頁]
作者:
man65boy
時間:
2015-9-8 18:40
標題:
vba 關鍵字查詢在轉寫
本帖最後由 man65boy 於 2015-9-8 18:43 編輯
可否在關鍵字查詢b欄後，把他編號的資料在Label3上呈現，例如:
ListBox1點選後(磨光鐵板9'*8)，Label2出現(磨光鐵板9'*8)，
Label3出現(1006)相對的資料，再按"轉寫"把Label2的資料轉寫到H1儲存格裏，Label3的資料轉寫到H2儲存格裏。有勞老師們解題!
這檔案是在這討論區一位老師的作品，小弟學藝不精，無法應用。
[attach]21929[/attach]
作者:
准提部林
時間:
2015-9-8 23:00
Private Sub CommandButton1_Click()
With Sheets("Sheet1")
.[H1].Value = Label2.Caption
.[H2].Value = Label3.Caption
End With
End Sub
Private Sub ListBox1_Change()
Label2.Caption = ListBox1.Column(0)
Label3.Caption = ListBox1.Column(1)
End Sub
Private Sub TextBox1_Change()
Dim i, Arr, xD, N&
If TextBox1 = "" Then GoTo 101
Arr = Sheet1.UsedRange.Columns("A:B").Cells
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
If InStr(Arr(i, 2), TextBox1) Then N = N + 1: xD(N) = Array(Arr(i, 1), Arr(i, 2))
Next i
If N = 0 Then GoTo 101
ListBox1.List = Application.Transpose(Application.Transpose(xD.items))
ListBox1.Visible = True
Exit Sub
101:
Label2.Caption = "": Label3.Caption = "": ListBox1.Visible = False
End Sub
Private Sub UserForm_Initialize()
ListBox1.Visible = False
End Sub
複製代碼
附件下載：
[attach]21930[/attach]
作者:
man65boy
時間:
2015-9-9 00:06
本帖最後由 man65boy 於 2015-9-9 00:08 編輯
回復
2#
准提部林
謝謝大師級的准大解題，完全符合，准大在知識+的知識貢獻，真是令小弟好佩服，之前都有在追蹤准大的知識，嘿嘿!
准大的名言:
＜准提部林＞知識+．點數有多有少．公仔換不了．慈善捐不了．門票抵不了多了富不了．少了死不了．機心追累何時了知識+．頭銜有高有低．名片印不了．招牌掛不了．墓誌刻不了高了傲不了．低了羞不了．苦心謀取何時了 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 滴水效應
謝謝老師!^^
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
