GBKEE

¦^´_ 1# kai6929
¤£¿ùªº¤À¨É,¦ý¦P ¤@ÅU«È¿ï²Ä¤G¦¸®É,¦b·s¼W¤u§@ªíªº©R¦W·|¿ù»~
¯Â°Ñ¦Ò;ªí³æªºµ{¦¡½X

1. Private Sub myComboBox_Change()
   
2.    ' Call »s§@½Ð´Ú®Ñ(myComboBox.Text)
   
3.      »s§@½Ð´Ú®Ñ '(myComboBox.Text)
   
4. End Sub
   
5. Private Sub UserForm_Initialize()
   
6.     'myForm.myComboBox.List = Array("A¤½¥q", "B«Ø³]¤½¥q", "C¹q¾¹¤½¥q", "D¤£°Ê²£¤½¥q") '
   
7.     '¤U¦Cµ{¦¡½X ¥i®Ú¾Ú "¾P°â¸ê®Æ" BÄ檺ÅU«È «Ø¥ß myComboBox ªº List
   
8.     With Sheets("¾P°â¸ê®Æ")
   
9.         .Range("B3", .[B3].End(xlDown)).AdvancedFilter xlFilterCopy, , .Cells(1, Columns.Count), True
   
10.         'AdvancedFilter ¶i¶¥¿z¿ï ¤£­«½ÆªºÅU«È¦W³æ¨ì.Cells(1, Columns.Count)³Ì«á¤@Äæ
    
11.         With .Range(.Cells(2, Columns.Count), .Cells(2, Columns.Count).End(xlDown)) '²Ä2¦C¨ì³Ì«á¦³¸ê®Æªº¦C
    
12.             myComboBox.List = .Value
    
13.             .EntireColumn.Clear
    
14.         End With
    
15.     End With
    
16. End Sub
    
17. Private Sub »s§@½Ð´Ú®Ñ()
    
18.      Application.ScreenUpdating = False
    
19.      With Sheets("¾P°â¸ê®Æ")
    
20.         .Range("A3").AutoFilter 2, myComboBox                           '¦Û°Ê¿z¿ï BÄæ myComboBox(ÅU«È)
    
21.         .Columns(2).Hidden = True                                       'ÁôÂÃBÄæ
    
22.         .Range("A3").CurrentRegion.Copy                                 '½Æ»s¿z¿ï¥Xªº ¤é´Á,°Ó«~,³æ»ù,¼Æ¶q,ª÷ÃB
    
23.         .AutoFilterMode = False
    
24.         With Sheets("½Ð´Ú®ÑÂú§Î")
    
25.             .Range("A6") = myComboBox
    
26.             .Range("A11").CurrentRegion = ""                            '²M°£Â¦³¸ê®Æ
    
27.             .Range("A11").PasteSpecial xlPasteValuesAndNumberFormats    '¶K¤W ­È¤Î¤½¦¡
    
28.         End With
    
29.         Application.CutCopyMode = False                                 '¨ú®ø½Æ»sªºµê½u
    
30.         .Columns(2).Hidden = False                                      '¨ú®øÁôÂÃBÄæ
    
31.      End With
    
32.      Application.ScreenUpdating = True
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 22# c_c_lai
¤u§@ªí[¾P°â¸ê®Æ][½Ð´Ú®ÑÂú§Î]¦p¦³²¾°Ê¨ì²Ä2¤u§@ªí¥H«á·|¦³¿ù»~µo¥Í
«Øij­×§ï¦p¤U:

1. Private Sub »s§@½Ð´Ú®Ñ()
   
2.     Dim cts As Integer, existed As Boolean
   
3.     Application.ScreenUpdating = False
   
4.     existed = False
   
5.     For cts = 1 To Worksheets.Count
   
6.         If Sheets(cts).Name = myComboBox Then existed = True: Exit For
   
7.     Next cts
   
8.     '  ±N¤u§@ªí¡u½Ð´Ú®ÑÂú§Î¡v½Æ»s¨ì©Ò¦³¤u§@ªíªº³Ì«á
   
9.     If existed = False Then
   
10.         Worksheets("½Ð´Ú®ÑÂú§Î").Copy After:=Worksheets(Worksheets.Count)
    
11.         ActiveSheet.Name = myComboBox
    
12.     End If
    
13.     With Sheets("¾P°â¸ê®Æ")
    
14.         .Range("A3").AutoFilter 2, myComboBox                           '  ¦Û°Ê¿z¿ï B Äæ myComboBox(ÅU«È)
    
15.         .Columns(2).Hidden = True                                       '  ÁôÂÃBÄæ
    
16.         .Range("A3").CurrentRegion.Copy                                 '  ½Æ»s¿z¿ï¥Xªº ¤é´Á,°Ó«~,³æ»ù,¼Æ¶q,ª÷ÃB
    
17.         .AutoFilterMode = False
    
18.         With Worksheets(myComboBox.Value)
    
19.            ' .Name = myComboBox                                          '  ³]©w¤u§@ªí¦WºÙ
    
20.             .Range("A6") = myComboBox
    
21.             .Range("A11").CurrentRegion = ""                            '  ²M°£Â¦³¸ê®Æ
    
22.             .Range("A11").PasteSpecial xlPasteValuesAndNumberFormats    '  ¶K¤W ­È¤Î¤½¦¡
    
23.         End With
    
24.         Application.CutCopyMode = False                                 '  ¨ú®ø½Æ»sªºµê½u
    
25.         .Columns(2).Hidden = False                                      '  ¨ú®øÁôÂÃBÄæ
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28. End Sub

½Æ»s¥N½X