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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-7-26 12:24 | 顯示全部帖子

回復 1# wwh126
會自動將當前的日期時間顯示, 但不要更新.
猜不出來,請詳細說明白.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-26 13:21 | 顯示全部帖子

回復 4# wwh126

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-7-29 16:38 | 顯示全部帖子

回復 7# handsometrowa
打公式=IF(C3>0,NOW(),"")做不到的.
這工作表模組的程式碼

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, Range("C2:C50")) Is Nothing And T <> "" Then 'T 在 C2:C50(指定修改範圍),範圍內.
T.Offset(, -1) = Time 'Offset(, -1) 左移一欄(B欄)
End If
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -