­ã´£³¡ªL

Private Sub CommandButton1_Click()
Dim xNo$, xName$, xR As Range
xNo = TextBox1: xName = TextBox2¡@
For Each xR In Range([A2], [A65536].End(xlUp))
¡@¡@If xR = xNo And xR(1, 2) = xName And xR(1, 3) = "" Then
¡@¡@¡@¡@xR(1, 3) = xName: xR(1, 5) = Now: Exit Sub
¡@¡@End If
Next
[A65536].End(xlUp)(2).Resize(1, 4) = Array(xNo, xName, "", Now)
End Sub

¢°¡D³Ì¦n¦b«e­±¥[¤JÀË¿ù¡G
¡@¡@¡e½s¸¹¡f­­¨î¡e­^¤j¼g¡f+¼Æ¦r¢°¢±½X
¡@¡@¡@If Not xNo Like "[A-Z]############" Then MsgBox "½s¸¹¿ù»~©Î¥¼¿é¤J!": Exit Sub
¡@¡@¡@If xName = "" Then MsgBox "¥q¾÷¦W¥¼¿é¤J!": Exit Sub
¢±¡D¨¾¿ù¬O¢ä¢Ð¢Ï³Ì­«­nªº¡A«Øij¡e¥X¨®¡f»P¡e¦^¨®¡f¤À§O¨â­Ó«ö¶s°õ¦æ¡A
¡@¡@§_«h­Y½s¸¹©Î©m¦W¿é¤J¤@¦r¤§®t¡A¥»¨Ó¬O¦^¨®Åܦ¨¥X¨®¡I

­ã´£³¡ªL

¡e¥X¨®¡f¡e¦^¨®¡f¤À§O³B²z¡G

1. Dim xChk&
   
2. ¡@
   
3. Private Sub CommandButton1_Click()
   
4. xChk = 1: Call °O¿ý
   
5. End Sub
   
6. ¡@
   
7. Private Sub CommandButton2_Click()
   
8. xChk = 2: Call °O¿ý
   
9. End Sub
   
10. ¡@
    
11. Sub °O¿ý()
    
12. Dim xNo$, xName$, xR As Range
    
13. xNo = TextBox1: xName = TextBox2
    
14. If Not xNo Like "[A-Z]############" Then MsgBox "½s¸¹¿ù»~©Î¥¼¿é¤J!": Exit Sub
    
15. If xName = "" Then MsgBox "¥q¾÷¦W¥¼¿é¤J!": Exit Sub
    
16. For Each xR In Range([A2], [A65536].End(xlUp))
    
17. ¡@¡@If xR = xNo And xR(1, 2) = xName And xR(1, 3) = "" Then
    
18. ¡@¡@¡@¡@If xChk = 1 Then MsgBox "¥»¨®¦¸©|¥¼¦^¨®¡A½Ð½T»{!": Exit Sub
    
19. ¡@¡@¡@¡@If xChk = 2 Then xR(1, 3) = xName: xR(1, 5) = Now: Exit Sub
    
20. ¡@¡@End If
    
21. Next
    
22. If xChk = 1 Then [A65536].End(xlUp)(2).Resize(1, 4) = Array(xNo, xName, "", Now): Exit Sub
    
23. If xChk = 2 Then MsgBox "§ä¤£¨ì¥»¨®¦¸ªº¥X¨®°O¿ý!": Exit Sub
    
24. End Sub

½Æ»s¥N½X

¡@
°Ñ¦ÒÀÉ¡G
20160304_v1.rar (179.28 KB)

¤U¸ü¦¸¼Æ: 6

2016-3-6 11:56