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

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

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

¦^´_ 61# c_c_lai

°Ñ¦Ò¬Ý¬Ý

    Ex.zip (430.82 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

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

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


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

TOP

¦^´_ 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²ß­×§ï.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

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

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 : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD