如何取用當前電腦時間的值班(不要自動更新)

1^# 跳轉到 »

發表於 2013-8-3 00:26 | 顯示全部帖子

回復 11# wwh126

Private Sub Worksheet_Change(ByVal Target As Range) '工作表的觸動事件 (儲存格有修改時的事件)
'Target(參數): 儲存格(修改的範圍)
Dim T As Range
Set T = Target.Cells(1) 'Target(參數)的第一個 Cells(儲存格)
Application.EnableEvents = False 'EnableEvents 屬性: 指定物件能觸發事件，則本屬性為 True。讀/寫 Boolean。
If Not Intersect(T, Columns("B:B")) Is Nothing And T > 0 Then 'T 在 B欄(指定修改範圍),範圍內.
T.Offset(, -1) = Time 'Offset(, -1) 左移一欄(B欄)
End If
Application.EnableEvents = True
End Sub

複製代碼

靜思自在 : 盡多少本份，就得多少本事。