Hsieh

¦^´_ 8# s7659109

1. Private Sub Worksheet_Change(ByVal Target As Range) 'Àx¦s®æ¤º®eÅÜ°Ê
   
2. If Target.Address Like "$E$*" Then
   
3. Application.MoveAfterReturnDirection = xlToRight '³]©w¿é¤J¤è¦V¦V¥k
   
4. With Me
   
5. .Unprotect '¨ú®ø«OÅ@¤u§@ªí
   
6. .Range("E:F").Locked = False '¨ú®ø¿é¤J½d³òªºÂê©w
   
7. .EnableSelection = xlUnlockedCells '³]©w«OÅ@ª¬ºA¤U¤£¯à¿ï¨úÂê©wÀx¦s®æ
   
8. .Cells(Target.Row, 1).Resize(, 3) = Array(Format(Date, "emmdd"), 123, 345) '¿é¤JA:CÄæ¦ì
   
9. .Protect '«OÅ@¤u§@ªí
   
10. End With
    
11. End If
    
12. End Sub
    
13. 
    
14. Private Sub Worksheet_Deactivate() 'Â÷¶}¤u§@ªí
    
15. Application.MoveAfterReturnDirection = xlDown 'ÁÙ­ì¿é¤J¤è¦V¦V¤U
    
16. End Sub

½Æ»s¥N½X