GBKEE

¦^´_ 2# jeffrey628litw
¸Õ¸Õ¬Ý

1. Private Const Sh = "Sheet1"    '¸ê®Æ®w                   '¼Ò²Õªº¨p¥Î±`¼Æ
   
2. Dim d As Object                                          '¼Ò²Õªº¨p¥ÎÅܼÆ
   
3. Private Sub UserForm_Initialize()
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets(Sh)
   
6.         K = 2
   
7.         Do While .Cells(K, "A") <> ""
   
8.             d(.Cells(K, "A").Value) = ""
   
9.             K = K + 1
   
10.         Loop
    
11.     End With
    
12.     ListBox_1.List = d.KEYS
    
13. End Sub
    
14. Private Sub ListBox_1_Change()  '»Ý­×§ï ºò«æ«× ListBox±±¨î¶µ¦WºÙ
    
15.      ¸ê®Æ¨î©w 1                 '©I¥sµ{¦¡ ¶Ç»¼°Ñ¼Æ : 1
    
16. End Sub
    
17. Private Sub ListBox_2_Change()  '»Ý­×§ï »sµ{ ListBox±±¨î¶µ¦WºÙ
    
18.      ¸ê®Æ¨î©w 2                 '©I¥sµ{¦¡ ¶Ç»¼°Ñ¼Æ : 2
    
19. End Sub
    
20. Private Sub ListBox_3_Change()  '»Ý­×§ï ³¡ªù ListBox±±¨î¶µ¦WºÙ
    
21.      ¸ê®Æ¨î©w 3                 '©I¥sµ{¦¡ ¶Ç»¼°Ñ¼Æ : 3
    
22. End Sub
    
23. Private Sub ListBox_4_Change()  '»Ý­×§ï «ù¦³ªÌ ListBox±±¨î¶µ¦WºÙ
    
24.      ¸ê®Æ¨î©w 4                 '©I¥sµ{¦¡ ¶Ç»¼°Ñ¼Æ : 2
    
25. End Sub
    
26. Private Sub ListBox_5_Change()  '»Ý­×§ï ®×¥ó  ListBox±±¨î¶µ¦WºÙ
    
27.      ¸ê®Æ¨î©w 5                 '©I¥sµ{¦¡ ¶Ç»¼°Ñ¼Æ : 2
    
28. End Sub
    
29. Private Sub ¸ê®Æ¨î©w(OB As Integer)
    
30.     Dim xValue As String, i As Integer, xCellValue As String
    
31.     '***®×¥ó°ò¥»¸ê®ÆªºTextBox ½Ð­×§ï TextBox1-TextBox9
    
32.     For i = 1 To 9
    
33.          Controls("TextBox" & i) = ""                                       '®×¥ó°ò¥»¸ê®ÆªºTextBox±±¨î¶µ.²MªÅ
    
34.     Next
    
35.     Set d = CreateObject("Scripting.Dictionary")                            '­«³]ª«¥ó
    
36.       For i = 1 To 5
    
37.        If i <= OB Then
    
38.             xValue = xValue & Controls("ListBox_" & i).Value                'µ²¦XListBoxªº­È
    
39.         Else
    
40.             Controls("ListBox_" & i).Clear                                   'ListBox²M³æ²M°£
    
41.         End If
    
42.       Next
    
43.       With Sheets(Sh)
    
44.         K = 2
    
45.         Do While .Cells(K, "A") <> ""
    
46.             xCellValue = Application.Phonetic(.Cells(K, "A").Resize(1, OB)) 'µ²¦XÀx¦s®æªº­È
    
47.             If OB = 5 And xValue = xCellValue Then
    
48.                 For i = 1 To 9
    
49.                     Controls("TextBox" & i) = .Cells(K, OB).Offset(, i)     '®×¥ó°ò¥»¸ê®ÆªºTextBox±±¨î¶µ.¿é¤J¸ê®Æ
    
50.                 Next
    
51.                 Exit Sub
    
52.             ElseIf OB < 5 And xValue = xCellValue Then
    
53.                 d(.Cells(K, OB + 1).Value) = ""
    
54.             End If
    
55.             K = K + 1
    
56.         Loop
    
57.         If OB < 5 Then Controls("ListBox_" & OB + 1).List = d.KEYS
    
58.     End With
    
59. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# jeffrey628litw

1. 3# ³o¨â¦æ¶·¸m©ó¼Ò²Õªº³»ºÝ
   
2. 01.Private Const Sh = "Sheet1"    '¸ê®Æ®w                   '¼Ò²Õªº¨p¥Î±`¼Æ
   
3. 02.Dim d As Object                                          '¼Ò²Õªº¨p¥ÎÅܼÆ

½Æ»s¥N½X

½Ð±NUserForm2 ¤ºªºµ{¦¡½X²MªÅ,¶K¤W3#ªºµ{¦¡½X,¸Õ¸Õ¬Ý
¥i¦æ«á¦A¥[¤W­ì¥»ªº, §R°£ºò«æ«×,·s¼Wºò«æ«×......ªºµ{¦¡½X

GBKEE

¦^´_ 6# jeffrey628litw
ªþÀɪºªí³æ±±¨î¶µ¦WºÙ »P§A­ì¥»ªþÀɤ£¤@¼Ë(»Ý­×§ï)


Book2.zip (19.89 KB)

¤U¸ü¦¸¼Æ: 13

2013-7-16 11:25

GBKEE

¦^´_ 8# jeffrey628litw

1. Private Const Sh = "Sheet1"                              '¼Ò²Õªº¨p¥Î±`¼Æ
   
2. Dim d As Object                                          '¼Ò²Õªº¨p¥ÎÅܼÆ
   
3. Private Sub UserForm_Initialize()    'ªí³æªì¨Ï¤Æ®Éªº¨Æ¥ó
   
4.     Set d1 = CreateObject("Scripting.Dictionary")  '§A¨S¦³³]¸mÅܼÆ
   
5.     Set d2 = CreateObject("Scripting.Dictionary")
   
6.     ' µ{¦¡½X
   
7.     '
   
8.    
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# jeffrey628litw
¦bª«¥ó¼Ò²Õ¤¤(ªí³æ¤]¬Oª«¥ó¼Ò²Õ)  With UserForm2 => With Me  ©Î¥i¥H¤£¥Î  With

1.   r = d2(myname & "-" & mycase)  'r=µL -> Cells(r, i + 1)©Ò¥H¿ù»~        
   
2.         For i = 1 To 9
   
3.             Sheets("Sheet1").Cells(r, i + 1).Value = .Controls("TextBox" & i).Value

½Æ»s¥N½X

¸Õ¸Õ³oªþÀÉ

Tset.rar (31.91 KB)

¤U¸ü¦¸¼Æ: 16

2013-7-17 16:04