- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-29 17:21 ½s¿è
¦^´_ 58# chaoyiho
¤T¡B 쥻¬O¦bµ²§ô«e³B¸Ì¡uÁ`ªí¡v¹ïÀ³ªí³æ³B²z¤¶±.ListBox ªº¿ï¶µ²M³æ¡C
קאּ¼W¦C¤§ Sav¡BJ.C.W¡B»P ¡uÁ`ªí¡v ¦P¨B¹ïÀ³ VSL¡A¦p ( ¤G¡B»¡©ú)¡F
¬G¥H¤U§ó§ï¬° "³Æµù"¡C- ' 2016/04/26 ¼W¥[»P "EXCELªí³æ³B²z¤¶±.ListBox" ªº³sµ²¡C
- ' ©Ò¦³¼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¡F
- ' ¥ç§Y¶È¶È¡uÁ`ªí¡v¹ïÀ³ªí³æ³B²z¤¶±.ListBox ªº¿ï¶µ²M³æ¡C
- ' «h±N "¥H¤U With ~ End With" ·s¼Wªº¡uµ{¦¡½X¡v¤º®e²¾¦Ü¦¹³B¡C
- ' Dim cts As Integer
-
- ' With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields(" VSL")
- ' For cts = 0 To EXCELªí³æ³B²z¤¶±.ListBox1.ListCount - 1
- ' .PivotItems(EXCELªí³æ³B²z¤¶±.ListBox1.List(cts)).Visible = IIf(EXCELªí³æ³B²z¤¶±.ListBox1.Selected(cts), True, False)
- ' §ó²¼ä¡B§ãnªº Assignment ªºªí¥Ü¦¡¡C
- ' .PivotItems(EXCELªí³æ³B²z¤¶±.ListBox1.List(cts)).Visible = EXCELªí³æ³B²z¤¶±.ListBox1.Selected(cts)
- ' Next cts
- ' End With
- ' -------------------------------------------------------------------------
- End Sub
½Æ»s¥N½X ¬°¦Ò¼{¾\ÄýªÌªº¤F¸Ñ«e¦]«áªG¡A¥H©úÁA«e«áקïì¦]¤Î¤º®e¡A¯S±N×¥¿«e¨Æ¶µ¯S§O
¤©¥H³Æµù¤è¦¡«O¯d¡A¥H«K»P×¥¿«á¤º®e§@¤ñ¹ï¡A´£¿ô¨Ã¼W¶i "×·~¥\¤O"¡C |
|