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

[µo°Ý] ½Ð°Ý¥X¶Ô¨t²Î³]­p

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-18 15:55 ½s¿è

¦^´_ 43# v03586
¦^´_ 35# GBKEE
§ÚÀ³¥Î GBKEE ª©¤j³Ì«áªºªºª©¥»µy¥[¾ã²z¡A
¥ç¿Ä¦X¤F jeffrey628litw ¤j¤jªº(·s¼W¡B­×§ïªí³æ)¡F
¶¶«K±N§Aªº´£°Ý¤@¨Ö¤©¥H³B²z¡A¨Ã¥[´î­×¹¢ª©­±¡C
(·s¼W¡B­×§ïªí³æ¤º¤§¤º®e¤Îª©­±µy¤©½Õ¾ã)
ªñ´Á (¦]­Ó¤H¨p¤H¦]¯À) ¤º¦pÁÙ¤´¦³°ÝÃD¡A
§A´N¦A½Ð¯q GBKEE ª©¤j §a¡I
¤H­û¤H¤O¦^³øªí(GBKEE).rar (468.92 KB)

TOP

¦^´_ 45# v03586
½Ð°Ý§A¨º¡y¥X¶Ô¸ê®Æ®w¡z¤ºªº©Ò¦³¸ê®Æ¬O³z¹L
¦óºØ¤è¦¡²£¥Í (·s¼W) ¥X¨Óªº¡H ¤H¤u§@·~¤@¤@¿é¤J¡H
¤@¯ë¦b­û¤uÂ÷¾«e©Ò¦³¤w¦s¦b¤§¡y¥X¶Ô¸ê®Æ®w¡z
¤º¸ê®Æ¬O¤£¤¹³\¦A¤©¥H²§°Êªº¡A¥B¨ä¤§«e¤w¥X¶Ô
¤§¨Æ¹ê¬O¤£¥i¤©¥H§_©w¡B§R°£ªº¡C
°ò¥»¤W¡A½u¤W´£°Ý®É¦^ÂЪ̥u¬OºÉ¤O¨Ì§Aªº»Ý¨D­±
µ¹¤©¸û¥¿­± (¤Þ¾É¦¡) ªº¦^À³¡A¦Ó«D¥þµMÀ°§A³Ð«Ø·sªº§½­±¡C
´£°Ý¤WÀ³¦³ªº§G§½»PÅ޿訫¦V¬O´£°Ý¤H­n¨ã³Æ´£¥Xªº¡A
¦^ÂЪ̥u¬O§U§A¸Ñ´b¡B¾É¤J¡B¥H¤Î¨Ç³\¦³·Nªº¹ê½è´£¥Ü¡C

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-8-30 07:00 ½s¿è

¦^´_ 55# v03586
  1. Sub Main()
  2.         .
  3.         .
  4.         .
  5.         Main_¥X¶Ô²v Rng.Offset(-1), e & ""
  6.     Next
  7.    
  8.     With Sheets("¤H­û¦^³ø")      '  ¨Ì¯Z§O¡B»â¯Z¡B²Õ§O ±Æ§Ç
  9.         With Range(.Range("A84"), .Range("AL" & .Range("A" & Rows.Count).End(xlUp).Row))
  10.             .Sort key1:=.Cells(1, 1), key2:=.Cells(1, 2), Order1:=xlAscending, key3:=.Cells(1, 7), Order3:=xlDescending, Header:=xlYes
  11.         End With
  12.     End With
  13. End Sub
½Æ»s¥N½X
#55 Q2 ¥H¤Î #56 ªº´£°Ý©|½Ð GBKEE ¤j¤j«ü¾É (¹Ï¥Ü¤Ó¤p¡A¥Ø«e¬Ý°_¨ÓÁÙÆZ¦Y¤Oªº)¡C

TOP

¦^´_ 59# v03586
¸Õ¸Õ¬Ý¡I
¤H­û¤H¤O¦^³øªí0902V1.rar (393.85 KB)

TOP

¦^´_ 59# v03586
­×¥¿ªº³¡¤À¡G
E1.png
2016-9-2 18:04

E2.png
2016-9-2 18:04

E3.png
2016-9-2 18:04

TOP

¦^´_ 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
E1.png
2016-9-3 15:44

E3.png
2016-9-3 15:45

TOP

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

TOP

¦^´_ 64# v03586
§A¬O»¡¤U¦C¹Ï¤ùªº¼Æ¾Ú¬O¥¿½Tªº¶Ü¡H
T5.png
2016-9-6 08:08

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-9-6 16:47 ½s¿è

¦^´_ 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. Dim ´_¾ºX¼Ð As Boolean        '  ¦p¸Ó­û·~¤wÂ÷¾¡A¦Ó©ó¨Æ«á¤S¥Ó½Ð´_¾

  3. Private Sub ²§°Ê¯Z§O_Click()
  4.     If ²§°Ê¯Z§O.Value = True Then
  5.         ²§°Ê_¯Z§O.Enabled = True
  6.     Else
  7.         ²§°Ê_¯Z§O.Enabled = False
  8.     End If
  9. End Sub

  10. Private Sub ²§°Ê©ÒÄÝ»â¯Z_Click()
  11.     If ²§°Ê©ÒÄÝ»â¯Z.Value = True Then
  12.         ²§°Ê»â¯Z.Enabled = True
  13.     Else
  14.         ²§°Ê»â¯Z.Enabled = False
  15.     End If
  16. End Sub

  17. Private Sub ±Mªø_Change()
  18.     Dim ar As Variant, sp As Variant
  19.    
  20.     ar = Array("DA", "Sub", "EC", "PL", "MH", "PT", "¥N²z¤H")

  21.     ±Mªø1.Clear
  22.     ±Mªø2.Clear
  23.    
  24.     For Each sp In ar
  25.         If sp <> ±Mªø Then ±Mªø1.AddItem sp
  26.     Next
  27. End Sub

  28. Private Sub ¯Z§O_Change()
  29.     »â¯Z.Clear
  30.    
  31.     If ¯Z§O = "1ST" Then                         '  1ST »â¯Z
  32.         »â¯Z.AddItem "§º¤p¤p"
  33.         »â¯Z.AddItem "ªL¤p¤p"
  34.     End If
  35.    
  36.     If ¯Z§O = "2ND" Then                         '  2ND »â¯Z
  37.         »â¯Z.AddItem "½²¤p¤p"
  38.         »â¯Z.AddItem "¬x¤p¤p"
  39.     End If
  40.    
  41.     If ¯Z§O = "3RD" Then                         '  3RD »â¯Z
  42.         »â¯Z.AddItem "ÃC¤p¤p"
  43.         »â¯Z.AddItem "ªL¤¤¤p"
  44.     End If
  45. End Sub

  46. Private Sub ±Mªø1_Change()
  47.     Dim ar As Variant, sp As Variant
  48.    
  49.     ar = Array("DA", "Sub", "EC", "PL", "MH", "PT", "¥N²z¤H")

  50.     ±Mªø2.Clear
  51.    
  52.     For Each sp In ar
  53.         If sp <> ±Mªø And sp <> ±Mªø1 Then ±Mªø2.AddItem sp
  54.     Next
  55. End Sub

  56. Private Sub ²§°Ê_¯Z§O_Change()
  57.     ²§°Ê»â¯Z.Clear
  58.    
  59.     If ²§°Ê_¯Z§O = "1ST" Then                    '  ²§°Ê 1ST »â¯Z
  60.         ²§°Ê»â¯Z.AddItem "§º¤p¤p"
  61.         ²§°Ê»â¯Z.AddItem "ªL¤p¤p"
  62.     End If
  63.    
  64.     If ²§°Ê_¯Z§O = "2ND" Then                    '  ²§°Ê 2ND »â¯Z
  65.         ²§°Ê»â¯Z.AddItem "½²¤p¤p"
  66.         ²§°Ê»â¯Z.AddItem "¬x¤p¤p"
  67.     End If
  68.    
  69.     If ²§°Ê_¯Z§O = "3RD" Then                    '  ²§°Ê 3RD »â¯Z
  70.         ²§°Ê»â¯Z.AddItem "ÃC¤p¤p"
  71.         ²§°Ê»â¯Z.AddItem "ªL¤¤¤p"
  72.     End If
  73. End Sub

  74. Private Sub ´_¾_Click()
  75.     If Len(¤H­û¤u¸¹.Text) = 4 And ´_¾ Then ¶ñ¤J¸ê®Æ
  76. End Sub

  77. Private Sub ½T»{_Click()
  78.     Dim Rng As Range, sh As Range, i As Integer
  79.    
  80.     With Worksheets("¤H¤O¸ê®Æ®w")
  81.         Set Rng = .Range("C:C").Find(¤H­û¤u¸¹.Value, LookIn:=xlValues, LookAt:=xlWhole)
  82.         If Not Rng Is Nothing Then                 '  ¤H­û¤u¸¹¤w¦s¦b
  83.             If ²§°Ê¯Z§O.Value = True And (²§°Ê_¯Z§O.Value = "" Or ²§°Ê_¯Z§O.Value = "½Ð¿ï¾Ü") Then
  84.                 MsgBox "¤Ä¿ï²§°Ê¯Z§O¡A½Ð¿ï¾Ü­n²§°Êªº¯Z§O!"
  85.                 Exit Sub
  86.             ElseIf ²§°Ê¯Z§O.Value = True Then
  87.                 .Cells(Rng.Row, 1) = ²§°Ê_¯Z§O.Value
  88.             ElseIf ²§°Ê¯Z§O.Value = False Then
  89.                 .Cells(Rng.Row, 1) = ¯Z§O.Value
  90.             End If
  91.                
  92.             If ²§°Ê©ÒÄÝ»â¯Z.Value = True And (²§°Ê_¯Z§O.Value = "" Or ²§°Ê_¯Z§O.Value = "½Ð¿ï¾Ü") Then
  93.                 MsgBox "¤Ä¿ï²§°Ê²§°Ê©ÒÄÝ»â¯Z¡A½Ð¿ï¾Ü­n²§°Êªº»â¯Z!"
  94.                 Exit Sub
  95.             ElseIf ²§°Ê©ÒÄÝ»â¯Z.Value = True Then
  96.                 .Cells(Rng.Row, 2) = ²§°Ê»â¯Z.Value
  97.             ElseIf ²§°Ê©ÒÄÝ»â¯Z.Value = False Then
  98.                 .Cells(Rng.Row, 2) = »â¯Z.Value
  99.             End If
  100.             
  101.             .Cells(Rng.Row, 3) = ¤H­û¤u¸¹.Value    '  ¤u¸¹
  102.             .Cells(Rng.Row, 4) = ©m¦W.Value        '  ©m¦W
  103.             
  104.             If V.Value = True Then
  105.                 .Cells(Rng.Row, 5) = "V"
  106.             ElseIf P.Value = True Then
  107.                 .Cells(Rng.Row, 5) = "P"
  108.             ElseIf K.Value = True Then
  109.                 .Cells(Rng.Row, 5) = "K"
  110.             End If
  111.             
  112.             .Cells(Rng.Row, 6) = ¨ì¾¤é.Value      '  ¨ì¾¤é
  113.             .Cells(Rng.Row, 7) = ±Mªø.Value        '  ¥D­n±Mªø
  114.             .Cells(Rng.Row, 8) = ±Mªø1.Value       '  ±Mªø1
  115.             .Cells(Rng.Row, 9) = ±Mªø2.Value       '  ±Mªø2
  116.             
  117.             Set sh = Worksheets("¤H­û¦^³ø").[D4]
  118.             If .Cells(Rng.Row, 1) = "2ND" Then     '  ¯Z§O
  119.                 Set sh = sh.Offset(23)             '  = [D27]
  120.             ElseIf .Cells(Rng.Row, 1) = "3RD" Then
  121.                 Set sh = sh.Offset(46)             '  = [D50]
  122.             End If

  123.             If Â÷¾ = True Then
  124.                 '  Rows(rng.Row & ":" & rng.Row).Select
  125.                 '  Selection.Delete Shift:=xlUp
  126.                 '  Sheets("¾Þ§@¤¶­±").Select
  127.                 '  ­û¤u½ÐÃã«á¡A¨ä­û¤u¸ê®Æ¼È¤£¤©¥H§R°£¡F¥u¦b¡u³ÆµùÄæ¡v¤º°O¸ü¡uÂ÷¾¡v¨Æ¹ê¡C
  128.                 .Cells(Rng.Row, 10) = "¸Ó­û¤w©ó " & Format(Date, "YY/MM/DD") & " Â÷¾"

  129.                 sh.Offset(1, 1) = sh.Offset(1, 1) - 1
  130.                 i = Application.Match(UCase(.Cells(Rng.Row, 5)), Array("V", "P", "K"), 0) '  **Âk¯Ç²Õ§O
  131.                 sh.Offset(i) = sh.Offset(i) - 1
  132.             Else
  133.                 If ´_¾ºX¼Ð = True Then
  134.                     sh.Offset(1, 1) = sh.Offset(1, 1) + 1
  135.                     i = Application.Match(UCase(.Cells(Rng.Row, 5)), Array("V", "P", "K"), 0) '  **Âk¯Ç²Õ§O
  136.                     sh.Offset(i) = sh.Offset(i) + 1
  137.                     ´_¾ºX¼Ð = False
  138.                 End If
  139.                
  140.                 .Cells(Rng.Row, 10) = ³Æµù.Value       '  Remark
  141.             End If
  142.         End If
  143.     End With
  144.    
  145.     Call ²MªÅ_Click
  146.     MsgBox "¸ê®Æ²§°Ê§¹¦¨"
  147. End Sub

  148. Private Sub ²MªÅ_Click()
  149.     ¨ì¾¤é.Value = ""
  150.     ³Æµù.Value = ""
  151.     ¤H­û¤u¸¹.Value = ""
  152.     ©m¦W.Value = ""
  153.     ¯Z§O.Value = ""
  154.     »â¯Z.Value = ""
  155.     ±Mªø.Value = ""
  156.     ±Mªø1.Value = ""
  157.     ±Mªø2.Value = ""
  158.     Â÷¾.Value = False
  159.     ¤H­û¤u¸¹.Enabled = True
  160.     ½T»{.Enabled = False
  161. End Sub

  162. Private Sub ¨ú®ø_Click()
  163.     Unload Me
  164. End Sub

  165. Private Sub ¶ñ¤J¸ê®Æ()
  166.     Dim Rng As Range
  167.    
  168.     ´_¾ºX¼Ð = False
  169.    
  170.     With Worksheets("¤H¤O¸ê®Æ®w")
  171.         Set Rng = .Range("C:C").Find(¤H­û¤u¸¹.Value, LookIn:=xlValues, LookAt:=xlWhole)
  172.         If Not Rng Is Nothing Then                 '  ¤H­û¤u¸¹¤w¦s¦b
  173.             If InStr(.Cells(Rng.Row, 10), "Â÷¾") > 0 And ´_¾ = False Then    '  Remark
  174.                 ©m¦W.Value = .Cells(Rng.Row, 4)    '  ©m¦W
  175.                 MsgBox .Cells(Rng.Row, 10)
  176.                 ´_¾.Enabled = True
  177.                 ©m¦W.Value = ""
  178.                 Exit Sub
  179.             End If

  180.             If ´_¾ Then .Cells(Rng.Row, 10) = "¸Ó­û¤w©ó " & Format(Date, "YY/MM/DD") & " ´_¾": ´_¾ºX¼Ð = True
  181.             ³Æµù.Value = .Cells(Rng.Row, 10)             '  Remark
  182.             
  183.             ´_¾ = False
  184.             ´_¾.Enabled = False
  185.             Â÷¾ = False
  186.                      
  187.             ¯Z§O.Value = .Cells(Rng.Row, 1)        '  ¯Z§O
  188.             »â¯Z.Value = .Cells(Rng.Row, 2)        '  »â¯Z
  189.             ¤H­û¤u¸¹.Value = .Cells(Rng.Row, 3)    '  ¤u¸¹
  190.             ©m¦W.Value = .Cells(Rng.Row, 4)        '  ©m¦W
  191.             
  192.             If .Cells(Rng.Row, 5) = "V" Then
  193.                 V.Value = True
  194.             ElseIf .Cells(Rng.Row, 5) = "P" Then
  195.                 P.Value = True
  196.             ElseIf .Cells(Rng.Row, 5) = "K" Then
  197.                 K.Value = True
  198.             End If
  199.             
  200.             ¨ì¾¤é.Value = .Cells(Rng.Row, 6)      '  ¨ì¾¤é
  201.             ±Mªø.Value = .Cells(Rng.Row, 7)        '  ¥D­n±Mªø
  202.             ±Mªø1.Value = .Cells(Rng.Row, 8)       '  ±Mªø1
  203.             ±Mªø2.Value = .Cells(Rng.Row, 9)       '  ±Mªø2
  204.             ¤H­û¤u¸¹.Enabled = False
  205.             ½T»{.Enabled = True
  206.             '  MsgBox "¸ê®Æ¬d¸ß§¹¦¨"
  207.         Else
  208.             ´_¾ = False
  209.             ´_¾.Enabled = False
  210.             MsgBox "¬dµL¸Ó­û¤u¸ê®Æ"
  211.         End If
  212.     End With
  213. End Sub

  214. Private Sub ¤H­û¤u¸¹_Change()
  215.     ¤H­û¤u¸¹.Text = UCase(¤H­û¤u¸¹.Text)
  216.     If Len(¤H­û¤u¸¹.Text) = 4 Then ¶ñ¤J¸ê®Æ
  217. End Sub

  218. Private Sub UserForm_Initialize()
  219.     ¯Z§O.AddItem "1ST"
  220.     ¯Z§O.AddItem "2ND"
  221.     ¯Z§O.AddItem "3RD"
  222.    
  223.     ²§°Ê_¯Z§O.AddItem "1ST"
  224.     ²§°Ê_¯Z§O.AddItem "2ND"
  225.     ²§°Ê_¯Z§O.AddItem "3RD"
  226.    
  227.     ±Mªø.AddItem "DA"
  228.     ±Mªø.AddItem "Sub"
  229.     ±Mªø.AddItem "EC"
  230.     ±Mªø.AddItem "PL"
  231.     ±Mªø.AddItem "MH"
  232.     ±Mªø.AddItem "PT"
  233.     ±Mªø.AddItem "¥N²z¤H"
  234.     ´_¾.Enabled = False
  235.     ´_¾ºX¼Ð = False
  236. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-9-6 16:47 ½s¿è

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

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD