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

[µo°Ý] «ç»ò¦bUSERFORM¤¤¥[¤J¥i¿z¿ï½Æ¿ï¤§¾ðª¬¹Ï

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

TOP

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

TOP

¦^´_ 28# chaoyiho
  1.     '  2016/04/26  ¼W¥[»P "EXCELªí³æ³B²z¤¶­±.ListBox" ªº³sµ²¡C
  2.     Dim cts As Integer
  3.    
  4.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields(" VSL")
  5.         For cts = 0 To EXCELªí³æ³B²z¤¶­±.ListBox1.ListCount - 1
  6.             '  .PivotItems(EXCELªí³æ³B²z¤¶­±.ListBox1.List(cts)).Visible = IIf(EXCELªí³æ³B²z¤¶­±.ListBox1.Selected(cts), True, False)
  7.             '  §ó²¼ä¡B§ã­nª½±µªº Assignment ªºªí¥Ü¦¡¡C
  8.             .PivotItems(EXCELªí³æ³B²z¤¶­±.ListBox1.List(cts)).Visible = EXCELªí³æ³B²z¤¶­±.ListBox1.Selected(cts)
  9.         Next cts
  10.     End With
½Æ»s¥N½X
±µ¤U¬Ý§A¦Û¤v¦p¦ó¥hÅܤƥ¦¤F¡C

TOP



TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/4/27 09:50): ªþÀɤW¨Ó,¤~²M·¡.

¦^´_ 34# c_c_lai

«e½ú±z¦n ·PÁ±z³o»òºë²Óªº¦^µª ¯uªºÅý§ÚÀò¯q¨}¦h
¦­¤W¹Á¸Õ¤F±zªº°µªk©óµ{¦¡¤¤
µo²{¤F¨â­Ó°ÝÃD
1.¦pªG¹³34#¼Óªº¨º¼Ë§â¨â­Ó¤@¼Ëªºµ{¦¡½X³£¶K¦b CommandButton3_Click() ¤W ´N·|¥X²{Integer­«½Æ©w¸qªº°ÝÃD
2.¦pªG¥u¶K¨ä¤¤¤@­Ó«h¬O·|¥X²{¿ù»~¥N½X91 ¨S¦³³]©wª«¥ó©Î©w¸q°Ï¶ô
²{¦bÁÙ¦b§V¤O¬d¸ß°ÝÃDÂI¦b­þÃä
¦ý¬O²{¦b¬Ý°_¨Ó¨Ã¤£¬O¶}±ÒÀɮ׶¶§Ç©ÎÂI¿ï¶¶§Ç¤Wªº°ÝÃD
¤£ª¾¹D³o¬O¿ù»~¦b­þÃä©O?

TOP

¦^´_ 34# c_c_lai

¸É¤W°ÆÀÉ
ÀÉ®×.rar (321.19 KB)

³o¬O§Ú¶K¤Wµ{¦¡½X¤§«áªº¼Ë¤l


·|¥X²{¿ù»~¥N½X91
¨Ã¥B¥kÃ䪺²î²í¿z¿ïÄ椣·|Åã¥Ü¥ô¦ó¸ê°T

§Ú²{¦b¥¿¦b·Q¿ìªk
¤]¦A¦¸³Â·Ð«e½ú
À°§Ú¬Ý¬Ý
¤ÀªRÀɮצb¤§«eªº°T®§¸Ì­±

TOP

¦^´_ 36# chaoyiho
½Ð¥ý¬ÝÀ´ #32 ªº¸ÔºÉ¹Ï¸Ñ»¡©ú¡A
±q§Aµ{¦¡ªºµe­±»P¤º®e¤ô·Ç¡A
¬OÀ³¸Ó·|²z¸Ñªº¡C
§A³ºµM¬O¥þ¦Y¤U¨Ó¡H

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-27 13:17 ½s¿è

¦^´_ 36# chaoyiho

³o©M§Ú·íªì¤Þ¾É§Aªº¤è¦¡¦³©Ò¥X¤J¡C
½Ð¦^·¹¨ì #12 ªº³B¸Ì¡C
§Y«K§A¥¼¥[¤J #34 ªºµ{¦¡½X¡A
³o­Ó¿ù»~°T®§·~¤w¦s¦b¡C

TOP

¥»©«³Ì«á¥Ñ chaoyiho ©ó 2016-4-27 16:29 ½s¿è

¦^´_ 38# c_c_lai

«e½ú¥i¯à¹ï§Úªº³B²z¤è¦¡»~·|¤F
§Ú¦³·ÓµÛ±zªº¨BÆJ¤U¥h°µ³B²z
¦p¤U¤è¹Ï¦¡:
1.
2.
3.
4.
5.
6.

¦ý¬O¹ê»Ú°õ¦æ¤§«á´N·|¥X²{


GOOGLE¤§«áÁÙ¬O¤£ª¾¹DActiveX¨ì©³«ç»ò³B²z
¦³¤U¸üªþ¥ó ¦ý¬O¨ÌµM°õ¦æ¥X²{¿ù»~
©Ò¥H§Ú¤~¨Ï¥ÎLU¤j©Ò«Øijªº¤è¦¡°µ³B²z
LU¤jªº¤è¦¡ÁöµM¥i¥H¶]¥XÅã¥Ü ¦ý¬O´N·|¦³¿ù»~91ªº¥X²{
¨Ã¥BµLªk°µ¿z¿ï

³o¤@­±Àð§Ú·Q§Ú¬O·í§½ªÌ°g ¦U¦ì¬Ý©x«e½úÀ³¸Ó¤]¬O¾K¤F
¦³°÷µh­W...
¦ý¬O§Ú¤@©w­n§â¥L¼²¯}!
¦A¦¸³Â·Ð«e½ú¤F!!!

±NCELLS­×§ï.PNG (22.04 KB)

±NCELLS­×§ï.PNG

TOP

¦^´_ 39# chaoyiho
«Ü³æ¯Â¦a¡A±qÀY¨ì§À§A¥u»Ý­×§ï¡G
¤@¡B

¤G¡B

¤T¡B

¥|¡B

´N¥þ³¡§ó·s¤F¡C¦p·Ó³o¼Ë­×¥¿¤´ÁÙ¦³¿ù»~
±N¥¦¤W¶Ç§Ú·|¨ÓÀˬd¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD