c_c_lai

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

c_c_lai

¤U¸ü (18.96 KB)

2016-4-27 08:00

¤U¸ü (17.22 KB)

2016-4-27 08:00

c_c_lai

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

c_c_lai

¦^´_ 36# chaoyiho

¤U¸ü (30.08 KB)

2016-4-27 13:07

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

c_c_lai

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

¤U¸ü (34.72 KB)

2016-4-27 16:53

¤G¡B

¤U¸ü (9.29 KB)

2016-4-27 16:54

¤T¡B

¤U¸ü (89.87 KB)

2016-4-27 16:55

¥|¡B

¤U¸ü (94.79 KB)

2016-4-27 16:55

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

c_c_lai

¦^´_ 39# chaoyiho
#40 ¬O§Ú¤ñ¸û±`¥Îªº³B²z¤è¦¡ (±q¦­´Á¶Ç²Î¨t²Î¨ì¥Ø«e)¡A
¦]¬° ListBox ¬O¦b "EXCELªí³æ³B²z¤¶­±"  ¸Ì°õ¦æ³B²z¡A
²ßºD¤W§Ú·|±N¦r¨åªº§@·~ª½±µ©ñ¸m¦b UserForm ¸Ì«Å§i
»P³B¸Ì¡A¦Ó¨Ã¤£±N¥¦¸m©ó UserForm ¥~«Å§i¡A°£«D¥¦¦b
UserForm °Ï¶ô¥~¥ç³Q¨ä¥¦µ{¦¡¼Ò²Õ¨Ï¥Î¡B¹B¥Î¨ì°£¥~¡C

¦pªG§Aı±o¦p¦ó«Å§i§¡µL§«¡A¥u­n¨t²Î¯à°Ê«K OK ªº¸Ü
(§Ú¬O¤£ÃÙ¦¨§A¥H¦¹ºØ¤è¦¡¨Ó¾Ç²ß½s¼¶µ{¦¡)¡F¨º§Ú´N¥H
§A¶Ç¨Óªº "¿ù»~°T®§" ¨Ó°µ¸Ñµª§a (ÀÉ®×.rar)¡I

¤U¸ü (42.79 KB)

2016-4-27 19:37

¥ç§Y¦b§A¥Ø«e¤§ Module1 ¤WÀY¥[¤W¡G

1. Private Sub Auto_Open()
   
2.     Set vD = CreateObject("Scripting.Dictionary")      '  «Ø¥ßª«¥ó¡C
   
3. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 39# chaoyiho
¹ïÀ³ EXCELªí³æ³B²z¤¶­±.ListBox ªº³¡¤À¡A
»P #40 ¬O¤@­Pªº¡C

¤U¸ü (50.51 KB)

2016-4-27 19:44

¾Ü¤@¿ï¾Ü¥[¤J (½Ð¬Ý³Æµù»¡©ú)¡A
AB ¤£¯à¥þ³¡³q¦Y (³o«K¬O§A¬Ý¨ìªº
­«½Æ Integer ªº¿ù»~°T®§)¡C

±µ¤U¨Ó¥þ¥æµ¹¤F¡C

c_c_lai

¦^´_ 44# chaoyiho
²Ä¤@­Ó°ÝÃD¡G Åܼƫŧi«e«á¤£¤@

1. Private Sub CommandButton1_Click()
   
2.     If Application.FindFile = False Then
   
3.         MsgBox "±z¨S¦³¶}±Ò¥ÀÀÉ"
   
4.     End If
   
5.     Dim lRow&        '  Dim lRrow&  (¿ù»~ªºÅܼƫŧi)
   
6.     lRow = 3         '  lRrow = 3   (¿ù»~ªºÅܼƫŧi)
   
7.    
   
8.     EXCELªí³æ³B²z¤¶­±.ListBox1.Clear    '  ÁקK­«½Æ¶K»s¡A³y¦¨»P "¤â°Ê¿z¿ï" ¶µ¥Ø¤£²Å
   
9.    
   
10.     vD.RemoveAll
    
11.     While Cells(lRow, 5) <> ""
    
12.       If Not vD.Exists(CStr(Cells(lRow, 5))) Then
    
13.         EXCELªí³æ³B²z¤¶­±.ListBox1.AddItem CStr(Cells(lRow, 5))
    
14.         vD(CStr(Cells(lRow, 5))) = lRow
    
15.       End If
    
16.       lRow = lRow + 1
    
17.     Wend             '  ¤W¦³ While ¦ÓµLµ²§ô³B¸Ì (Wend)
    
18. End Sub

½Æ»s¥N½X

²Ä¤@­Ó°ÝÃD¡G ²£¥Í ActiveX ªº­ì¦]

1. Private Sub UserForm_Initialize()
   
2.     Dim hWndForm As Long        '  LongPtr ¬O 64 ¦ì¤¸ªºªø¾ã¼Æ«ü¼Ð«Å§i
   
3.     Dim IStyle As Long
   
4.    
   
5.     '  Set vD = CreateObject("scripting.dictonary")    '  ¤Ö¤@­Ó i
   
6.     Set vD = CreateObject("Scripting.Dictionary")
   
7.    
   
8.     hWndForm = FindWindow("ThunderDFrame", Me.Caption)
   
9.     IStyle = GetWindowLong(hWndForm, GWL_STYLE)
   
10.     IStyle = IStyle Or WS_THICKFRAME '(ÁÙ­ì)
    
11.     IStyle = IStyle Or WS_MINIMIZEBOX '(³Ì¤p¤Æ)
    
12.     IStyle = IStyle Or WS_MAXIMIZEBOX '(³Ì¤j¤Æ)
    
13.     SetWindowLong hWndForm, GWL_STYLE, IStyle
    
14. End Sub

½Æ»s¥N½X

jackyq ¤j¤j«üÃÒ¥X§A  ActiveX ªº¿ù»~ÂI¤F¡A­ì¦]¬O§A¿é¿ù¦r¤F
Set vD = CreateObject("scripting.dictonary") ¡A¤Ö¤@­Ó i  ¡A
»P¤j¤p¼gµLÃö¡A¦~¬ö¤j¤F²¦³ºµø¤O°h«Ü¦h¤F¡A¤£¥J²ÓÁÙ¯u¨S¬Ý¨ì©O¡I
ÁÂÁÂ jackyq ¤j¤j¡C

c_c_lai

¦^´_ 52# chaoyiho
³o¬O§A¨ÃµL¥ô¦ó¿ï¶µ¡A±µµÛª½±µÂI¿ï "°õ¦æ¤ÀªR" ©Ò²£¥Íªº¡A
¬O»ò¡H

c_c_lai

¦^´_ 52# chaoyiho
³o¬O§A¨ÃµL¥ô¦ó¿ï¶µ¡A±µµÛª½±µÂI¿ï "°õ¦æ¤ÀªR" ©Ò²£¥Íªº¡A
¬O»ò¡H
§Ú¤w E-Mail ¶Ç ªí³æ³B²z¨t²Î3.2µ¥«Ý­×§ï.xlsm¡A ¥H¤Î­ì¥ýªº
ÀÉ®×.rar ¤F¡A§A°õ¦æ¬Ý¬Ý¡C