返回列表 上一主題 發帖

[發問] 工作表移動或是複製時,新的工作表H7儲存格自動填寫日期跟時間

只想到在ThisWorkbook裡面這樣做,但是只有在「新增」的時候會啟動程式碼,

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Range("H7") = Date & Time
End Sub


至於複製的時候自動加上日期及時間,在下只想到在被複製的表H7填入now的函數,
但這樣一來每張表的時間都會重新計算,但若把運算改手動,複製新表的時候時間又不會動,

另外雖然可以在Activate裡面設定若有複製工作表時    Range("H7") = Date & Time,
但這樣一來恐怕會因為一直執行判斷式而影響Excel的處理效率。

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題