ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ¾P°âºÞ²z§¹¦¨ª©

¤À¨É(ªì¾Ç) «e´X¤Ñ¬Ý®Ñ¼gªº¾P°âºÞ²z¤pµ{¦¡

­è¾Çvba¤£¤[¡A§ä¤F¤@¨Ç®Ñ¨Ó½m²ß¡A¨ä¤¤¤@­Ó½d¨Ò¡AÆZ¹ê¥ÎªºªF¦è¡AÁöµM«Ü²³æ¡A¸Ì­±¦³¥´¸Ô²Óªºµù¸Ñ¡AÀ³¸Ó«Ü²M·¡¡C

Àɮצp¤U¡G
salesManagerVER2.rar (36.48 KB)

TOP

¾P°â¸ê®ÆªºÅU«ÈÄæ
¥L¬O¥i¤U©ÔÅܰʪº
¬O§_¸Ó¿ï§¹«á©T©w
§_«h·|¤£·|³Q¤H°Ê¨ì
´N§ä¤£¦^¨Ó¤F
jeason

TOP

[¤À¨É] ¾P°âºÞ²z§¹¦¨ª©

¦U¦ì¤j®v
                  ¤À¨É¤£¿ùªº¥¨¶°³]­p,¯Â¥æ¬y¦U¦ìÁ@Á@ ¾P°âºÞ²z§¹¦¨ª©.rar (34.01 KB)

¦^´_ 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

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-11-20 07:38 ½s¿è

¦^´_ 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)

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD