[發問] EXCEL 儲存格建立及記錄修改的日期

cubela

請問可以這樣應用嗎?

下載 (52.24 KB)

2014-12-5 18:29

cubela

回復  cubela
試試看，在工作表模組輸入程式碼
Hsieh 發表於 2014-12-5 19:41

    版大您好:
可以耶!!感謝您!!
那再請教一下，特定區域的話，要如何使用呢?

Hsieh

回復 1# cubela
試試看，在工作表模組輸入程式碼

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

複製代碼