[發問] UserForm內怎麼做查尋清單?

kkooo15

我想要在UserForm內做查尋清單。
在UserForm2查好資料"廠商編號"

下載 (37.2 KB)

2019-7-8 13:37

點二下後UserForm1"廠商編號"就會有那筆資料

廠商客戶資料-test.rar (42.35 KB)

下載次數: 3

2019-7-8 13:36

kkooo15

自己找到方法解開了

下載 (16.63 KB)

2019-7-11 10:30

UserForm 樣式先改成這樣

1. Dim Sh As Worksheet, d As Object, d2 As Object, d3 As Object
   
2. 
   
3. 公式如下
   
4. Private Sub CommandButton1_Click()
   
5. If TextBox1.Text <> "" Then
   
6.     '將 TextBox1 資料放入 TBox1
   
7.     UserForm2.TBox1.Text = TextBox1.Text
   
8.     '將 TextBox1 資料放入 TBox1
   
9.    
   
10.     Unload UserForm1
    
11.     '關閉表單
    
12.     Else
    
13.     End If
    
14. End Sub
    
15. 
    
16. Private Sub UserForm_Initialize()
    
17.     Dim i As Single, Rng As Range
    
18.     Set Sh = Sheets("合約資訊")
    
19.     '宣告 SH = Sheets("合約資訊")
    
20.     Set d = CreateObject("scripting.dictionary")
    
21.     '宣告 d = 建立並傳回 ActiveX 物件 建立一個 Dictionary物件
    
22.     Set Rng = Sh.Cells(5, "E")
    
23.     'SH = Sheets("客戶資料") Rng =儲存格 Cells(第5欄,C列)
    
24.     Do While Rng <> ""
    
25.     'Rng = 儲存格 Cells(第5欄,C列) 不等於  空白
    
26.         If d.exists(Rng.Value) = False Then
    
27.             '
    
28.             Set d(Rng.Value) = Rng
    
29.         Else
    
30.             Set d(Rng.Value) = Union(Rng, d(Rng.Value))
    
31.         End If
    
32.         Set Rng = Rng.Offset(1)
    
33.     Loop
    
34.     ComboBox1.List = d.KEYS
    
35.     'ComboBox1 等於 d KEYS
    
36.     TextBox1 = ""
    
37.     'TextBox1資料清除
    
38. End Sub
    
39. Private Sub ComboBox1_Change()
    
40.     Dim R As Range
    
41.     TextBox1 = ""
    
42.     Set d2 = CreateObject("scripting.dictionary")
    
43.     'd2 = 建立並傳回 ActiveX 物件 建立一個 Dictionary物件
    
44.     For Each R In d(ComboBox1.Value).Offset(, -1).Cells
    
45.         'ComboBox1的資料找到儲存格後值 -1列
    
46.         If d2.exists(R.Value) = False Then
    
47.         '如果 d2 的值是真就
    
48.             Set d2(R.Value) = R
    
49.             'Dictionary物件內的
    
50.         Else '否就
    
51.             Set d2(R.Value) = Union(R, d2(R.Value))
    
52.             'd2內的值 等於 Union內的值
    
53.         End If
    
54.     Next
    
55.     ComboBox2.Clear
    
56.     'ComboBox2資料清除
    
57.     ComboBox2.List = d2.KEYS
    
58.     'ComboBox2 等於 d2 KEYS
    
59. End Sub
    
60. 
    
61. Private Sub ComboBox2_Change()
    
62.     TextBox1 = ""
    
63.     If ComboBox2.ListIndex > -1 Then TextBox1.Text = Sh.Cells(d2(ComboBox2.Value).Row, "F")
    
64.     'F欄
    
65.     'ListIndex = -1 值不在List中
    
66. End Sub

複製代碼

jeffrey628litw

回復 1# kkooo15


    版主您好，這2個檔案(裡面有如下面2層以及5層的 Listbox 給您參考看看。

下載 (86.58 KB)

2019-7-12 18:57

  檔案下載： VBA - 實驗批專案管理.rar (322.18 KB)

下載次數: 10

2019-7-12 18:57

kkooo15

回復 3# jeffrey628litw
下來試看看,非常感謝。