[µo°Ý] UserForm¤º«ç»ò°µ¬d´M²M³æ?

kkooo15

§Ú·Q­n¦bUserForm¤º°µ¬d´M²M³æ¡C
¦bUserForm2¬d¦n¸ê®Æ"¼t°Ó½s¸¹"

¤U¸ü (37.2 KB)

2019-7-8 13:37

ÂI¤G¤U«áUserForm1"¼t°Ó½s¸¹"´N·|¦³¨ºµ§¸ê®Æ

¼t°Ó«È¤á¸ê®Æ-test.rar (42.35 KB)

¤U¸ü¦¸¼Æ: 2

2019-7-8 13:36

kkooo15

¦Û¤v§ä¨ì¤èªk¸Ñ¶}¤F

¤U¸ü (16.63 KB)

2019-7-11 10:30

UserForm ¼Ë¦¡¥ý§ï¦¨³o¼Ë

1. Dim Sh As Worksheet, d As Object, d2 As Object, d3 As Object
   
2. 
   
3. ¤½¦¡¦p¤U
   
4. Private Sub CommandButton1_Click()
   
5. If TextBox1.Text <> "" Then
   
6.     '±N TextBox1 ¸ê®Æ©ñ¤J TBox1
   
7.     UserForm2.TBox1.Text = TextBox1.Text
   
8.     '±N TextBox1 ¸ê®Æ©ñ¤J 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("¦X¬ù¸ê°T")
    
19.     '«Å§i SH = Sheets("¦X¬ù¸ê°T")
    
20.     Set d = CreateObject("scripting.dictionary")
    
21.     '«Å§i d = «Ø¥ß¨Ã¶Ç¦^ ActiveX ª«¥ó «Ø¥ß¤@­Ó Dictionaryª«¥ó
    
22.     Set Rng = Sh.Cells(5, "E")
    
23.     'SH = Sheets("«È¤á¸ê®Æ") Rng =Àx¦s®æ Cells(²Ä5Äæ,C¦C)
    
24.     Do While Rng <> ""
    
25.     'Rng = Àx¦s®æ Cells(²Ä5Äæ,C¦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¸ê®Æ²M°£
    
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ªº¸ê®Æ§ä¨ìÀx¦s®æ«á­È -1¦C
    
46.         If d2.exists(R.Value) = False Then
    
47.         '¦pªG d2 ªº­È¬O¯u´N
    
48.             Set d2(R.Value) = R
    
49.             'Dictionaryª«¥ó¤ºªº
    
50.         Else '§_´N
    
51.             Set d2(R.Value) = Union(R, d2(R.Value))
    
52.             'd2¤ºªº­È µ¥©ó Union¤ºªº­È
    
53.         End If
    
54.     Next
    
55.     ComboBox2.Clear
    
56.     'ComboBox2¸ê®Æ²M°£
    
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 ­È¤£¦bList¤¤
    
66. End Sub

½Æ»s¥N½X

jeffrey628litw

¦^´_ 1# kkooo15


    ª©¥D±z¦n¡A³o2­ÓÀÉ®×(¸Ì­±¦³¦p¤U­±2¼h¥H¤Î5¼hªº Listbox µ¹±z°Ñ¦Ò¬Ý¬Ý¡C

¤U¸ü (86.58 KB)

2019-7-12 18:57

  ÀɮפU¸ü¡G VBA - ¹êÅç§å±M®×ºÞ²z.rar (322.18 KB)

¤U¸ü¦¸¼Æ: 9

2019-7-12 18:57

kkooo15

¦^´_ 3# jeffrey628litw
¤U¨Ó¸Õ¬Ý¬Ý,«D±`·PÁ¡C