Hsieh

¦^´_ 1# cubela
¸Õ¸Õ¬Ý¡A¦b¤u§@ªí¼Ò²Õ¿é¤Jµ{¦¡½X

1. Public Temp
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. If Target.Row <> 1 And Not Intersect(Target, Columns("A:B")) Is Nothing Then
   
4. If Temp <> "" Then
   
5.   Cells(Target.Row, 4) = Date
   
6.   Else
   
7.   Cells(Target.Row, 3) = Date
   
8. End If
   
9. End If
   
10. End Sub
    
11. 
    
12. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
13. Temp = Target
    
14. End Sub

½Æ»s¥N½X