[µo°Ý] EXCEL Àx¦s®æ«Ø¥ß¤Î°O¿ý­×§ïªº¤é´Á

cubela

½Ð°Ý¥i¥H³o¼ËÀ³¥Î¶Ü?

¤U¸ü (52.24 KB)

2014-12-5 18:29

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

cubela

¦^´_  cubela
¸Õ¸Õ¬Ý¡A¦b¤u§@ªí¼Ò²Õ¿é¤Jµ{¦¡½X
Hsieh µoªí©ó 2014-12-5 19:41

    ª©¤j±z¦n:
¥i¥H­C!!·PÁ±z!!
¨º¦A½Ð±Ð¤@¤U¡A¯S©w°Ï°ìªº¸Ü¡A­n¦p¦ó¨Ï¥Î©O?