c_c_lai

¦^´_ 5# chaoyiho

¤U¸ü (26.09 KB)

2016-4-22 10:16

c_c_lai

¦^´_ 9# chaoyiho

¤U¸ü (42.78 KB)

2016-4-22 16:00

§A¦b¼Ò²Õ1 (Module1) ¥[¤J¤F Public vD
ªº«Å§i«á¡A¨Ã©ó Workbook_Open() ¸Ì
³]©w¤F  vD ªºÄÝ©Ê¡A°ò¥»¤W«K OK ¤F¡C
©¹«áµ{¦¡½X¤§°õ¦æ§¡¯à¦Û°Ê¿ë»{¥¦¤F¡C

c_c_lai

¦^´_ 9# chaoyiho
§Ú¨Ï¥Î DEBUG MODE Æ[¹î¡A·|²£¥Í§ä¤£¨ìª«¥óªº¨Æ¹ê¡A
¬G­×§ï¦¨¦p¤U¡G

¤U¸ü (49.05 KB)

2016-4-22 17:05

¸Õ¸Õ¬Ý¡I

c_c_lai

¦^´_ 20# chaoyiho
§A§âÀÉ®×À£ÁY¤W¶Ç¡A¥H«K½T»{§Aªº°ÝÃD©Ò¦b¡C
¦]¬°§A´£¥Xªº°T®§»P­×¥¿¤º®eµLÃö¡C

c_c_lai

¦^´_ 23# chaoyiho

¤U¸ü (89.65 KB)

2016-4-26 11:20

c_c_lai

¦^´_ 26# chaoyiho
ÂIÀ»¤§«á¹ï­n¤ÀªRªí³æ¤¤ªºVSL(²î²í)°µ¿z¿ï°Ê§@¡H
¤£¬Æ¤F¸Ñ¡A³B²z¹Lµ{¯à§_¸Ô¤@¤@²ÓÁ|¨Ò»¡©ú¡H

c_c_lai

¦^´_ 28# chaoyiho
¨º¬°¦ó¤£ª½±µ¨Ï¥Î "¤â°Ê¿z¿ï"¡H¤S¥i­«½Æ¨Ï¥Î¡C

c_c_lai

¦^´_ 28# chaoyiho

¤U¸ü (94.58 KB)

2016-4-26 19:50

c_c_lai

¦^´_ 28# chaoyiho

1.     Dim cts As Integer
   
2.    
   
3.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields(" VSL")
   
4.         For cts = 0 To EXCELªí³æ³B²z¤¶­±.ListBox1.ListCount - 1
   
5.             .PivotItems(EXCELªí³æ³B²z¤¶­±.ListBox1.List(cts)).Visible = IIf(EXCELªí³æ³B²z¤¶­±.ListBox1.Selected(cts), True, False)
   
6.         Next cts
   
7.     End With

½Æ»s¥N½X

c_c_lai

¦^´_ 28# chaoyiho
¦pªG§A·Q­n¦b©óÂI¿ï¡y°õ¦æ¤ÀªR¡z«á¡A©Ò¦³¼W¦C¤§
Sav¡BJ.C.W¡BP.C.O¡BPmax¡BStuffing Box¡BF.O.¡B
Exh¡BExh ¤u§@ªí³æ VSL §¡»P ¡uÁ`ªí¡v¹ïÀ³¤§
VSL ¦P¨B¡A«h±N "#¼Ó¤W" ¼W¦Cªº·s¼W¡uµ{¦¡½X¡v
¤º®e²¾¦Ü

1.     Sheets("¤u§@ªí1").Select
   
2.     Sheets("¤u§@ªí1").Copy Before:=Sheets(1)
   
3.     Sheets("¤u§@ªí1 (2)").Select
   
4.     Sheets("¤u§@ªí1 (2)").Copy Before:=Sheets(1)
   
5.     Sheets("¤u§@ªí1 (3)").Select
   
6.     Sheets("¤u§@ªí1 (3)").Copy Before:=Sheets(1)
   
7.     Sheets("¤u§@ªí1 (4)").Select
   
8.     Sheets("¤u§@ªí1 (4)").Copy Before:=Sheets(1)

½Æ»s¥N½X

¤§«e¤@¦C¡C¦p¦¹¤W¦C¤u§@ªí³æ«K¯à¦P¨B³B²z¦P¨B¸ê®Æ¤F¡C
¤Ï¤§¡A¦pªG§A¶È¶È·Q¡uÁ`ªí¡v¤u§@ªí³æ³æ¿W¹ïÀ³
"EXCELªí³æ³B²z¤¶­±.ListBox" ªº³sµ²´N OK ¤F¡A
¨º´N«O«ù¦b CommandButton3_Click() µ²§ô«e³B²z¡C