c_c_lai

¦^´_ 59# v03586
­×¥¿ªº³¡¤À¡G

¤U¸ü (20.56 KB)

2016-9-2 18:04

¤U¸ü (27.12 KB)

2016-9-2 18:04

¤U¸ü (20.54 KB)

2016-9-2 18:04

GBKEE

¦^´_ 61# c_c_lai

°Ñ¦Ò¬Ý¬Ý

    Ex.zip (430.82 KB)

¤U¸ü¦¸¼Æ: 7

2016-9-3 14:43

c_c_lai

¦^´_ 62# GBKEE
¨â­Ó·sª©¥» (¥ª¥b³¡¬O±zªº¡B¥k¥b³¡¬O§Úªº¡F¨Ï¥Î¦@¦P¤§¥X¶Ô¤º®e) ¡A
§Ú´ú¤F¤@¤U¡C±N¥¦¶K¦¨¹Ïªí¥H¤è«K¤ñ¹ï¡A±z¬Ý¬Ý¥¿½Tµ²ªGÀ³¬°¡H
³Ìªñ²´·úÁÙ¦b½Õ¾i¤¤¡A¤ñ¹ï¤è­±´N¦³³Ò±z¤F¡I

¤U¸ü (72.02 KB)

2016-9-3 15:44

¤U¸ü (38.92 KB)

2016-9-3 15:45

v03586

¦^´_ 63# c_c_lai
¦^´_ 62# GBKEE


    ·PÁ¨â¦ì¤j¤j³o¨Ç¤é¤l(1­Ó¤ë) ¨Óªº¨ó§U !! ­è¹ê´ú, ¥\¯à¬Ò§¹¦¨ !!! BUG¤]­×¥¿§¹²¦...·PÁ¤£ºÉ
     
     ³Ì«á·Q½Ð°Ý...¦pªG§Ú¥¼¨Ó·Q§ó§ï¤H¾÷¤ñ , ¬O­n§ó§ï­þÃ䪺§PÂ_©O???

GBKEE

¦^´_ 63# c_c_lai
§ÚªþÀÉ ¤H­û¤H¤O¦^³øªí0903V1.xls  
¤H­û¦^³ø¥[¯Z¤£¥¿½T,³o¸Ì»Ý­×§ï

1. '  ***********************************
   
2.             If R.Range("J1") <> "" And R.Range("J1") <> E Then         '  **¥X¶Ô¸ê®Æ®w , ©µªø¥[¯Z ¸ê®Æ   **
   
3.                 i = Application.Match(UCase(R.Range("j1")), Ar1, 0)
   
4.                 ¯¸§Oªí(i, ¤é¼Æ) = ¯¸§Oªí(i, ¤é¼Æ) + 1       '  ** Day(Rng(1)); ¥[¯Z§Oªº¥[Á`
   
5.             End If

½Æ»s¥N½X

¦^´_ 64# v03586
§ó§ï¤H¾÷¤ñ , ¥i¨Ì¤H­û¦^­¶¦ì¸m­×§ï.¥i¦Û¤v½m²ß­×§ï.

c_c_lai

¦^´_ 65# GBKEE
ÁÂÁ±z¡I
©ú¦­§Ú¦A¬ã¨s¬ã¨s¡A±ß¤Wµø¤O¸û®t¡I

v03586

¦^´_ 63# c_c_lai


    c_c_lai ¤j¤j !! §Ú¬Ý¤£¨ì§A #67~70 ¼Óªº¹Ï¤ù
   ¦ý¬O¨Ì·Ó§A³o½gªº¦^ÂÐ !! ¥ª¹Ï¬O§Ú³W¹º¤¤ªºµª®×¼ËªO!!!

    ¥t¥~....­ì¥»¥u­nÂI¿ïÂ÷¾, ¤H­û¦^³ø¥\¯à°õ¦æ«á, ¤H­û¦^³ø¸ê®Æªí , ´N·|¦Û°Ê¦©°£¤wÂ÷¾ªº¤H¼Æ
    0903ª©¥»¤¤ , ¤£·|¦©°£­C

     ex: ­ì¥» 1ST Á`¤H¤O  75¤H , V²Õ 25¤H
            ¤wÂ÷¾¤@¦W  1ST  V²Õ   , ¤H¤O¨S¦³Åܦ¨  74 ,  V²Õ 24,

c_c_lai

¦^´_ 64# v03586
§A¬O»¡¤U¦C¹Ï¤ùªº¼Æ¾Ú¬O¥¿½Tªº¶Ü¡H

¤U¸ü (44.66 KB)

2016-9-6 08:08

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

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