c_c_lai

¦^´_ 1# kai6929

1. Private Sub myComboBox_Change()
   
2.      Call »s§@½Ð´Ú®Ñ(myForm.myComboBox.Text)
   
3. End Sub

½Æ»s¥N½X

¦pªG­×§ï¦¨.... ¡Aµøı·P¨ü·|¤ñ¸û¨Î¡I

1. Private Sub myComboBox_Change()
   
2.     myForm.Hide
   
3.     Call »s§@½Ð´Ú®Ñ(myForm.myComboBox.Text)
   
4. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 3# GBKEE
¦^´_ 1# kai6929
ªº½T¬O­ÓÆZ¤£¿ùªº½d¨Ò¤À¨É¡A¤×¨ä¬O AdvancedFilter ¶i¶¥¿z¿ïªº¹ê°ÈÀ³¥Î¡A
¨ä²Ó¿°¦a³B²z»Pªí¹F§¡¤Q¤Àºë´ï¡AÂÔ¦¹·PÁ GBKEE ªº½u¤W«ü¾É¡C
¥Ø«e¡A§Ú±N #3 ªºµ{¦¡²¤¬°­×§ï¦¨¡G¦pªG²M³æ (ComboBox) ¤º¤u§@ªí·~¤w¦s¦b¡A
«h¦A¦¸±N¥¦¶}±Ò¡A§_«h±N¤u§@ªí¡u½Ð´Ú®ÑÂú§Î¡v½Æ»s¨ì©Ò¦³¤u§@ªíªº³Ì«á¡C
¦p¦¹¡A¤~¤£­P¦]­«Âж}±Ò¦Ó¾É­Pªº¿ù»~¤¤Â_°õ¦æ (GBKEE ªº»yªk¬Oª½±µ¼g¤J¨ì¡u½Ð´Ú®ÑÂú§Î¡v)¡C
(#1 ªº­ì¥»¥Î·N¡A¥i¯à¬O·Q«O¯d­ì©l¥Àªí¡A¦Ó©ó¿ï³æ®É¦A¥t¦æ·s¼W¡u½Ð´Ú®Ñ¡v)

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

½Æ»s¥N½X

¾P°âºÞ²z­×¹¢ª©.rar (40.49 KB)

¤U¸ü¦¸¼Æ: 53

2012-11-20 07:35

c_c_lai

¦^´_ 25# GBKEE
§Ú¤w¸g±N Code ¦p±zªº»yªk­×¥¿¤F¡A§Úı±o¥Î myComboBox.Value ¨Ó¨ú¥N cts ·|§ó¶K¤Á¡AÁÂÁ±z«ü¾É¡I

1.     '  ±N¤u§@ªí¡u½Ð´Ú®ÑÂú§Î¡v½Æ»s¨ì©Ò¦³¤u§@ªíªº³Ì«á
   
2.     If existed = False Then Worksheets("½Ð´Ú®ÑÂú§Î").Copy After:= Worksheets
   
3.                             Worksheets.Count): [color=Red]ActiveSheet.Name = myComboBox[/color]
   
4.     With Sheets("¾P°â¸ê®Æ")
   
5.         .Range("A3").AutoFilter 2, myComboBox  ' ¦Û°Ê¿z¿ïBÄæmyComboBox(ÅU«È)
   
6.         .Columns(2).Hidden = True              '  ÁôÂÃBÄæ
   
7.         .Range("A3").CurrentRegion.Copy   ' ½Æ»s¿z¿ï¥Xªº¤é´Á,°Ó«~,³æ»ù,¼Æ¶q,ª÷ÃB
   
8.         .AutoFilterMode = False
   
9.          
   
10.         With Worksheets([color=Red]myComboBox.Value[/color])
    
11.            [color=Red] '  .Name = myComboBox  [/color]            '  ³]©w¤u§@ªí¦WºÙ

½Æ»s¥N½X