c_c_lai

¦^´_ 76# v03586
§ä¨ì­ì¦]¤F¡C

1. Sub Main()       '  ¨Ï¥Î Main µ{¦¡«e¡A »Ý¥ý«ü©w ¡yxDay¡z ªº¤é´Á
   
2.     Dim e As Variant, Rng As Range, cts As Integer      '  , loc As String
   
3.    
   
4.     Set ¦^³ø¯Z§O = CreateObject("SCRIPTING.DICTIONARY")
   
5.     Set ¤H­û¦^³ø = CreateObject("SCRIPTING.DICTIONARY")
   
6.    
   
7.     ¤H¤O¸ê®ÆŪ¨ú
   
8.     Main_¦^³ø²M°£
   
9.    
   
10.    
    
11.     For cts = 1 To 2   '  ²Ä¤@¶¥¬q(cts=1)¥H¥¿±`¯Z§O¬°§PÂ_°ò·Ç¡F²Ä¤G¶¥¬q(2)«h¯Â¥H¥[¯Z¯Z§O¬°§PÂ_°ò·Ç¡C
    
12.         Main_¦^³ø¸ê®Æ (cts)                     '  2016/09/01 Modied by C. C. Lai
    
13.         
    
14.         If ¦^³ø¯Z§O.Count = 0 Then
    
15.             Msg = True
    
16.             MsgBox Format(xDay, "YYYY¤ëMM¥÷ !") & " ¨S¦³¥X¶Ô¤H­û"
    
17.             Exit Sub
    
18.         End If

½Æ»s¥N½X

¦b²Ä¤G¶¥¬q¡A¦³¥i¯à¥þµL "©µªø¥[¯Z"¡A ¬GÀ³ÀH§Y¸õÂ÷¥»°õ¦æ¤¤¼Ò²Õ¡C
­×¥¿¬°¡G

1. Sub Main()       '  ¨Ï¥Î Main µ{¦¡«e¡A »Ý¥ý«ü©w ¡yxDay¡z ªº¤é´Á
   
2.     Dim e As Variant, Rng As Range, cts As Integer      '  , loc As String
   
3.    
   
4.     Set ¦^³ø¯Z§O = CreateObject("SCRIPTING.DICTIONARY")
   
5.     Set ¤H­û¦^³ø = CreateObject("SCRIPTING.DICTIONARY")
   
6.    
   
7.     ¤H¤O¸ê®ÆŪ¨ú
   
8.     Main_¦^³ø²M°£
   
9.    
   
10.    
    
11.     For cts = 1 To 2   '  ²Ä¤@¶¥¬q(cts=1)¥H¥¿±`¯Z§O¬°§PÂ_°ò·Ç¡F²Ä¤G¶¥¬q(2)«h¯Â¥H¥[¯Z¯Z§O¬°§PÂ_°ò·Ç¡C
    
12.         Main_¦^³ø¸ê®Æ (cts)                     '  2016/09/01 Modied by C. C. Lai
    
13.         
    
14.         If ¦^³ø¯Z§O.Count = 0 Then
    
15.             Msg = True
    
16.             [color=Red]If cts = 1 Then[/color]
    
17.                 MsgBox Format(xDay, "YYYY¤ëMM¥÷ !") & " ¨S¦³¥X¶Ô¤H­û"
    
18.             [color=Red]ElseIf cts = 2 Then[/color]   '  ¦b²Ä¤G¶¥¬q¡A¦³¥i¯à¥þµL "©µªø¥[¯Z"¡A ¬GÀH§Y¸õÂ÷¥»°õ¦æ¤¤¼Ò²Õ¡C
    
19.                 [color=Red]Msg = False
    
20.             End If[/color]
    
21.             Exit Sub
    
22.         End If

½Æ»s¥N½X

c_c_lai

¦^´_ 76# v03586
·|¥X²{¡y¨S¦³¥X¶Ô¤H­û¡z¡A¬O¦]¬°§A¥Ø«eªº
¡y¥X¶Ô¸ê®Æ®w¡zµL¤Q¤ë¥÷ªº¥X¶Ô¬ö¿ý¡C
§A¥i¥HÀˬd¤@¤U§Aªº¡y¥X¶Ô¸ê®Æ®w¡z¡C

v03586

¦^´_ 75# c_c_lai


    ·PÁÂc_c_lai ªº¨ó§U
  ¤µ¤Ñ´ú¸Õ¤j³¡¤À¥\¯à¬Ò§¹¦¨, °ß¤@¤@­Ó¤p°ÝÃD¤£ª¾¹D¬O§_¬O§PÂ_¿ù»~
    °²³]§Ú¤é´Á¿ï§Oªº¤ë¥÷(¹w±Æ¥X¶Ô) ¿ï¾Ü¦^³ø®É, ·|¥X²{¡y¨S¦³¥X¶Ô¤H­û¡z
   ¦ý¹ê»Ú¤W¬O¦³§ó·s¥X¶Ôªº!!! , ¥u¦³¸ó¤ë¥÷¥X²{³o¼Ë°ÝÃD

¤U¸ü (38.61 KB)

2016-9-8 13:00

c_c_lai

¦^´_ 74# v03586
³o¬O§Ú³Ìªñ­×¥¿«áªº (Relaese) ª©¥» ¡G
¤H­û¤H¤O¦^³øªí0907R1.rar (393.32 KB)

¤U¸ü¦¸¼Æ: 7

2016-9-7 14:59

v03586

¦^´_ 73# c_c_lai


    c_c_lai ¤j¤j, §¹¥þ¥¿½T!!! ½Ð°Ý³o¼Ë­n¦p¦ó½Õ¾ã©O?

c_c_lai

¦^´_ 72# v03586
¬O³o¼Ë¶Ü¡H ³o´N¬O§Ú·Pı§x´bªºÆ[©ÀÂI¡G

¤U¸ü (31.48 KB)

2016-9-7 07:15

v03586

¦^´_ 71# GBKEE
¦^´_ 68# c_c_lai


    ©µªø¥[¯Z³¡¤À¦³¨Ç³\°ÝÃD, §Ú³o¦¸¾ã²z¦¨¥ÎÃC¦â¨Ó°Ï§O, ¤£ª¾¹D«ç¼Ëªº¸ÑÄÀ, ¬O§_¤ñ¸û®e©ö¿ë§O

¤U¸ü (28.5 KB)

2016-9-6 21:07

GBKEE

¦^´_ 67# v03586


§ó·sª©¥»

    Ex.zip (417.46 KB)

¤U¸ü¦¸¼Æ: 7

2016-9-6 14:31

c_c_lai

¦^´_ 67# v03586
§A´£¤Îªº "¤H¤O¸ê®Æ®w" ±Æ§Ç°ÝÃD¡G

1. Private Sub ½T»{_Click()
   
2.     Dim Rng As Range, sh As Range, i As Integer
   
3.    
   
4.     With Worksheets("¤H¤O¸ê®Æ®w")
   
5.         Set Rng = .Range("C:C").Find(¤H­û¤u¸¹.Value, LookIn:=xlValues, LookAt:=xlWhole)
   
6.         If Not Rng Is Nothing Then                 '  ¤H­û¤u¸¹¤w¦s¦b
   
7.         '
   
8.         '
   
9.         '
   
10.         '
    
11.         '
    
12.         End If
    
13.         
    
14.         '  ¨Ì¯Z§O¡B»â¯Z¡B²Õ§O ±Æ§Ç
    
15.         With Range(.Range("A1"), .Range("J" & .Range("A" & Rows.Count).End(xlUp).Row))
    
16.             .Sort key1:=.Cells(1, 1), key2:=.Cells(1, 2), Order1:=xlAscending, key3:=.Cells(1, 5), Order3:=xlDescending, Header:=xlYes
    
17.         End With
    
18.     End With
    
19.    
    
20.     Call ²MªÅ_Click
    
21.     MsgBox "¸ê®Æ²§°Ê§¹¦¨"
    
22. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 67# v03586
EX:  ­×¥¿´£®× by  2016/9/5   v03586
°²³] 1ST Á`¤H¤O 75¤H V ²Õ 25¤H , P ²Õ 23¤H  , K²Õ 26¤H¡C
¤µ¤ÑÂ÷¾¤@¦ì 1ST K ²Õ¤H­û, ÂI¿ï¤H­û¦^³ø¥\¯àÁä«á¡F
Á`¤H¤OÀ³¸Ó¥Ñ 75¤HÅÜ§ó¬° 74,  K ²ÕÀ³¦P®É½Õ¾ã²§°Ê¬° 25¤H¡C

ªí³æ (DA½s¿è¤H­û):

1. Option Explicit
   
2. 
   
3. Dim ´_¾ºX¼Ð As Boolean        '  ¦p¸Ó­û·~¤wÂ÷¾¡A¦Ó©ó¨Æ«á¤S¥Ó½Ð´_¾
   
4. 
   
5. Private Sub ²§°Ê¯Z§O_Click()
   
6.     If ²§°Ê¯Z§O.Value = True Then
   
7.         ²§°Ê_¯Z§O.Enabled = True
   
8.     Else
   
9.         ²§°Ê_¯Z§O.Enabled = False
   
10.     End If
    
11. End Sub
    
12. 
    
13. Private Sub ²§°Ê©ÒÄÝ»â¯Z_Click()
    
14.     If ²§°Ê©ÒÄÝ»â¯Z.Value = True Then
    
15.         ²§°Ê»â¯Z.Enabled = True
    
16.     Else
    
17.         ²§°Ê»â¯Z.Enabled = False
    
18.     End If
    
19. End Sub
    
20. 
    
21. Private Sub ±Mªø_Change()
    
22.     Dim ar As Variant, sp As Variant
    
23.    
    
24.     ar = Array("DA", "Sub", "EC", "PL", "MH", "PT", "¥N²z¤H")
    
25. 
    
26.     ±Mªø1.Clear
    
27.     ±Mªø2.Clear
    
28.    
    
29.     For Each sp In ar
    
30.         If sp <> ±Mªø Then ±Mªø1.AddItem sp
    
31.     Next
    
32. End Sub
    
33. 
    
34. Private Sub ¯Z§O_Change()
    
35.     »â¯Z.Clear
    
36.    
    
37.     If ¯Z§O = "1ST" Then                         '  1ST »â¯Z
    
38.         »â¯Z.AddItem "§º¤p¤p"
    
39.         »â¯Z.AddItem "ªL¤p¤p"
    
40.     End If
    
41.    
    
42.     If ¯Z§O = "2ND" Then                         '  2ND »â¯Z
    
43.         »â¯Z.AddItem "½²¤p¤p"
    
44.         »â¯Z.AddItem "¬x¤p¤p"
    
45.     End If
    
46.    
    
47.     If ¯Z§O = "3RD" Then                         '  3RD »â¯Z
    
48.         »â¯Z.AddItem "ÃC¤p¤p"
    
49.         »â¯Z.AddItem "ªL¤¤¤p"
    
50.     End If
    
51. End Sub
    
52. 
    
53. Private Sub ±Mªø1_Change()
    
54.     Dim ar As Variant, sp As Variant
    
55.    
    
56.     ar = Array("DA", "Sub", "EC", "PL", "MH", "PT", "¥N²z¤H")
    
57. 
    
58.     ±Mªø2.Clear
    
59.    
    
60.     For Each sp In ar
    
61.         If sp <> ±Mªø And sp <> ±Mªø1 Then ±Mªø2.AddItem sp
    
62.     Next
    
63. End Sub
    
64. 
    
65. Private Sub ²§°Ê_¯Z§O_Change()
    
66.     ²§°Ê»â¯Z.Clear
    
67.    
    
68.     If ²§°Ê_¯Z§O = "1ST" Then                    '  ²§°Ê 1ST »â¯Z
    
69.         ²§°Ê»â¯Z.AddItem "§º¤p¤p"
    
70.         ²§°Ê»â¯Z.AddItem "ªL¤p¤p"
    
71.     End If
    
72.    
    
73.     If ²§°Ê_¯Z§O = "2ND" Then                    '  ²§°Ê 2ND »â¯Z
    
74.         ²§°Ê»â¯Z.AddItem "½²¤p¤p"
    
75.         ²§°Ê»â¯Z.AddItem "¬x¤p¤p"
    
76.     End If
    
77.    
    
78.     If ²§°Ê_¯Z§O = "3RD" Then                    '  ²§°Ê 3RD »â¯Z
    
79.         ²§°Ê»â¯Z.AddItem "ÃC¤p¤p"
    
80.         ²§°Ê»â¯Z.AddItem "ªL¤¤¤p"
    
81.     End If
    
82. End Sub
    
83. 
    
84. Private Sub ´_¾_Click()
    
85.     If Len(¤H­û¤u¸¹.Text) = 4 And ´_¾ Then ¶ñ¤J¸ê®Æ
    
86. End Sub
    
87. 
    
88. Private Sub ½T»{_Click()
    
89.     Dim Rng As Range, sh As Range, i As Integer
    
90.    
    
91.     With Worksheets("¤H¤O¸ê®Æ®w")
    
92.         Set Rng = .Range("C:C").Find(¤H­û¤u¸¹.Value, LookIn:=xlValues, LookAt:=xlWhole)
    
93.         If Not Rng Is Nothing Then                 '  ¤H­û¤u¸¹¤w¦s¦b
    
94.             If ²§°Ê¯Z§O.Value = True And (²§°Ê_¯Z§O.Value = "" Or ²§°Ê_¯Z§O.Value = "½Ð¿ï¾Ü") Then
    
95.                 MsgBox "¤Ä¿ï²§°Ê¯Z§O¡A½Ð¿ï¾Ü­n²§°Êªº¯Z§O!"
    
96.                 Exit Sub
    
97.             ElseIf ²§°Ê¯Z§O.Value = True Then
    
98.                 .Cells(Rng.Row, 1) = ²§°Ê_¯Z§O.Value
    
99.             ElseIf ²§°Ê¯Z§O.Value = False Then
    
100.                 .Cells(Rng.Row, 1) = ¯Z§O.Value
     
101.             End If
     
102.                
     
103.             If ²§°Ê©ÒÄÝ»â¯Z.Value = True And (²§°Ê_¯Z§O.Value = "" Or ²§°Ê_¯Z§O.Value = "½Ð¿ï¾Ü") Then
     
104.                 MsgBox "¤Ä¿ï²§°Ê²§°Ê©ÒÄÝ»â¯Z¡A½Ð¿ï¾Ü­n²§°Êªº»â¯Z!"
     
105.                 Exit Sub
     
106.             ElseIf ²§°Ê©ÒÄÝ»â¯Z.Value = True Then
     
107.                 .Cells(Rng.Row, 2) = ²§°Ê»â¯Z.Value
     
108.             ElseIf ²§°Ê©ÒÄÝ»â¯Z.Value = False Then
     
109.                 .Cells(Rng.Row, 2) = »â¯Z.Value
     
110.             End If
     
111.             
     
112.             .Cells(Rng.Row, 3) = ¤H­û¤u¸¹.Value    '  ¤u¸¹
     
113.             .Cells(Rng.Row, 4) = ©m¦W.Value        '  ©m¦W
     
114.             
     
115.             If V.Value = True Then
     
116.                 .Cells(Rng.Row, 5) = "V"
     
117.             ElseIf P.Value = True Then
     
118.                 .Cells(Rng.Row, 5) = "P"
     
119.             ElseIf K.Value = True Then
     
120.                 .Cells(Rng.Row, 5) = "K"
     
121.             End If
     
122.             
     
123.             .Cells(Rng.Row, 6) = ¨ì¾¤é.Value      '  ¨ì¾¤é
     
124.             .Cells(Rng.Row, 7) = ±Mªø.Value        '  ¥D­n±Mªø
     
125.             .Cells(Rng.Row, 8) = ±Mªø1.Value       '  ±Mªø1
     
126.             .Cells(Rng.Row, 9) = ±Mªø2.Value       '  ±Mªø2
     
127.             
     
128.             Set sh = Worksheets("¤H­û¦^³ø").[D4]
     
129.             If .Cells(Rng.Row, 1) = "2ND" Then     '  ¯Z§O
     
130.                 Set sh = sh.Offset(23)             '  = [D27]
     
131.             ElseIf .Cells(Rng.Row, 1) = "3RD" Then
     
132.                 Set sh = sh.Offset(46)             '  = [D50]
     
133.             End If
     
134. 
     
135.             If Â÷¾ = True Then
     
136.                 '  Rows(rng.Row & ":" & rng.Row).Select
     
137.                 '  Selection.Delete Shift:=xlUp
     
138.                 '  Sheets("¾Þ§@¤¶­±").Select
     
139.                 '  ­û¤u½ÐÃã«á¡A¨ä­û¤u¸ê®Æ¼È¤£¤©¥H§R°£¡F¥u¦b¡u³ÆµùÄæ¡v¤º°O¸ü¡uÂ÷¾¡v¨Æ¹ê¡C
     
140.                 .Cells(Rng.Row, 10) = "¸Ó­û¤w©ó " & Format(Date, "YY/MM/DD") & " Â÷¾"
     
141. 
     
142.                 sh.Offset(1, 1) = sh.Offset(1, 1) - 1
     
143.                 i = Application.Match(UCase(.Cells(Rng.Row, 5)), Array("V", "P", "K"), 0) '  **Âk¯Ç²Õ§O
     
144.                 sh.Offset(i) = sh.Offset(i) - 1
     
145.             Else
     
146.                 If ´_¾ºX¼Ð = True Then
     
147.                     sh.Offset(1, 1) = sh.Offset(1, 1) + 1
     
148.                     i = Application.Match(UCase(.Cells(Rng.Row, 5)), Array("V", "P", "K"), 0) '  **Âk¯Ç²Õ§O
     
149.                     sh.Offset(i) = sh.Offset(i) + 1
     
150.                     ´_¾ºX¼Ð = False
     
151.                 End If
     
152.                
     
153.                 .Cells(Rng.Row, 10) = ³Æµù.Value       '  Remark
     
154.             End If
     
155.         End If
     
156.     End With
     
157.    
     
158.     Call ²MªÅ_Click
     
159.     MsgBox "¸ê®Æ²§°Ê§¹¦¨"
     
160. End Sub
     
161. 
     
162. Private Sub ²MªÅ_Click()
     
163.     ¨ì¾¤é.Value = ""
     
164.     ³Æµù.Value = ""
     
165.     ¤H­û¤u¸¹.Value = ""
     
166.     ©m¦W.Value = ""
     
167.     ¯Z§O.Value = ""
     
168.     »â¯Z.Value = ""
     
169.     ±Mªø.Value = ""
     
170.     ±Mªø1.Value = ""
     
171.     ±Mªø2.Value = ""
     
172.     Â÷¾.Value = False
     
173.     ¤H­û¤u¸¹.Enabled = True
     
174.     ½T»{.Enabled = False
     
175. End Sub
     
176. 
     
177. Private Sub ¨ú®ø_Click()
     
178.     Unload Me
     
179. End Sub
     
180. 
     
181. Private Sub ¶ñ¤J¸ê®Æ()
     
182.     Dim Rng As Range
     
183.    
     
184.     ´_¾ºX¼Ð = False
     
185.    
     
186.     With Worksheets("¤H¤O¸ê®Æ®w")
     
187.         Set Rng = .Range("C:C").Find(¤H­û¤u¸¹.Value, LookIn:=xlValues, LookAt:=xlWhole)
     
188.         If Not Rng Is Nothing Then                 '  ¤H­û¤u¸¹¤w¦s¦b
     
189.             If InStr(.Cells(Rng.Row, 10), "Â÷¾") > 0 And ´_¾ = False Then    '  Remark
     
190.                 ©m¦W.Value = .Cells(Rng.Row, 4)    '  ©m¦W
     
191.                 MsgBox .Cells(Rng.Row, 10)
     
192.                 ´_¾.Enabled = True
     
193.                 ©m¦W.Value = ""
     
194.                 Exit Sub
     
195.             End If
     
196. 
     
197.             If ´_¾ Then .Cells(Rng.Row, 10) = "¸Ó­û¤w©ó " & Format(Date, "YY/MM/DD") & " ´_¾": ´_¾ºX¼Ð = True
     
198.             ³Æµù.Value = .Cells(Rng.Row, 10)             '  Remark
     
199.             
     
200.             ´_¾ = False
     
201.             ´_¾.Enabled = False
     
202.             Â÷¾ = False
     
203.                      
     
204.             ¯Z§O.Value = .Cells(Rng.Row, 1)        '  ¯Z§O
     
205.             »â¯Z.Value = .Cells(Rng.Row, 2)        '  »â¯Z
     
206.             ¤H­û¤u¸¹.Value = .Cells(Rng.Row, 3)    '  ¤u¸¹
     
207.             ©m¦W.Value = .Cells(Rng.Row, 4)        '  ©m¦W
     
208.             
     
209.             If .Cells(Rng.Row, 5) = "V" Then
     
210.                 V.Value = True
     
211.             ElseIf .Cells(Rng.Row, 5) = "P" Then
     
212.                 P.Value = True
     
213.             ElseIf .Cells(Rng.Row, 5) = "K" Then
     
214.                 K.Value = True
     
215.             End If
     
216.             
     
217.             ¨ì¾¤é.Value = .Cells(Rng.Row, 6)      '  ¨ì¾¤é
     
218.             ±Mªø.Value = .Cells(Rng.Row, 7)        '  ¥D­n±Mªø
     
219.             ±Mªø1.Value = .Cells(Rng.Row, 8)       '  ±Mªø1
     
220.             ±Mªø2.Value = .Cells(Rng.Row, 9)       '  ±Mªø2
     
221.             ¤H­û¤u¸¹.Enabled = False
     
222.             ½T»{.Enabled = True
     
223.             '  MsgBox "¸ê®Æ¬d¸ß§¹¦¨"
     
224.         Else
     
225.             ´_¾ = False
     
226.             ´_¾.Enabled = False
     
227.             MsgBox "¬dµL¸Ó­û¤u¸ê®Æ"
     
228.         End If
     
229.     End With
     
230. End Sub
     
231. 
     
232. Private Sub ¤H­û¤u¸¹_Change()
     
233.     ¤H­û¤u¸¹.Text = UCase(¤H­û¤u¸¹.Text)
     
234.     If Len(¤H­û¤u¸¹.Text) = 4 Then ¶ñ¤J¸ê®Æ
     
235. End Sub
     
236. 
     
237. Private Sub UserForm_Initialize()
     
238.     ¯Z§O.AddItem "1ST"
     
239.     ¯Z§O.AddItem "2ND"
     
240.     ¯Z§O.AddItem "3RD"
     
241.    
     
242.     ²§°Ê_¯Z§O.AddItem "1ST"
     
243.     ²§°Ê_¯Z§O.AddItem "2ND"
     
244.     ²§°Ê_¯Z§O.AddItem "3RD"
     
245.    
     
246.     ±Mªø.AddItem "DA"
     
247.     ±Mªø.AddItem "Sub"
     
248.     ±Mªø.AddItem "EC"
     
249.     ±Mªø.AddItem "PL"
     
250.     ±Mªø.AddItem "MH"
     
251.     ±Mªø.AddItem "PT"
     
252.     ±Mªø.AddItem "¥N²z¤H"
     
253.     ´_¾.Enabled = False
     
254.     ´_¾ºX¼Ð = False
     
255. End Sub

½Æ»s¥N½X