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

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

¥»©«³Ì«á¥Ñ 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
  1.     '  2016/04/26  ¼W¥[»P "EXCELªí³æ³B²z¤¶­±.ListBox" ªº³sµ²¡C
  2.     '  ©Ò¦³¼W¦C¤§ Sav¡BJ.C.W¡BP.C.O¡BPmax¡BStuffing Box¡BF.O.¡B
  3.     '  Exh¡BExh ¤u§@ªí³æ VSL ¤£»Ý»P ¡uÁ`ªí¡v¹ïÀ³¤§ VSL ¦P¨B¡F
  4.     '  ¥ç§Y¶È¶È¡uÁ`ªí¡v¹ïÀ³ªí³æ³B²z¤¶­±.ListBox ªº¿ï¶µ²M³æ¡C
  5.     '  «h±N "¥H¤U With ~ End With" ·s¼Wªº¡uµ{¦¡½X¡v¤º®e²¾¦Ü¦¹³B¡C
  6.     '  Dim cts As Integer
  7.    
  8.     '  With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields(" VSL")
  9.     '      For cts = 0 To EXCELªí³æ³B²z¤¶­±.ListBox1.ListCount - 1
  10.             '  .PivotItems(EXCELªí³æ³B²z¤¶­±.ListBox1.List(cts)).Visible = IIf(EXCELªí³æ³B²z¤¶­±.ListBox1.Selected(cts), True, False)
  11.             '  §ó²¼ä¡B§ã­nªº Assignment ªºªí¥Ü¦¡¡C
  12.     '          .PivotItems(EXCELªí³æ³B²z¤¶­±.ListBox1.List(cts)).Visible = EXCELªí³æ³B²z¤¶­±.ListBox1.Selected(cts)
  13.     '      Next cts
  14.     '  End With
  15.     '  -------------------------------------------------------------------------
  16. 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

TOP

¦b UserForm ¤º«Å§i "¤½¥Î¦r¨å" ª«¥ó¼Ò¦¡¡G
ªí³æ³B²z¨t²Î3.2 Ex2.rar (25.09 KB)
²Ä¤G¤ä¬O luhpro ¤j¤j«ü¾Éªº®×¨Ò¡F
¦b Module1 «Å§i "¤½¥Î¦r¨å" ª«¥ó¼Ò¦¡¡G
ªí³æ³B²z¨t²Î3.2 luhpro.rar (188.77 KB)
´£¨Ñ¦P¥\¯à²§³B²zªº¨â­ÓExcelÀɮסA
¨Ñ§@¾Ç²ß°Ñ¦Ò¡C

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD