wwh126

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-7-26 11:17 | 只看該作者

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

若我想在C3,C4,C5,.....輸入一些數值B3,B4,B5,.....格會自動將當前的日期時間顯示, 但不要更新.
應怎麼寫呢????

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2013-7-26 12:24 | 只看該作者

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

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

TOP

wwh126

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

3^#

發表於 2013-7-26 12:28 | 只看該作者

我曾試係B2 打公式=IF(C3>0,NOW(),"")會顯示日期時間,
但會不停更新, 有什麼方法可以不更新

TOP

wwh126

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

4^#

發表於 2013-7-26 12:58 | 只看該作者

回復 2# GBKEE

當我在特定一格例如C3 打上一些數值，B3會即時顯示當前的日期同時間，但用公式NOW()會不停更新當前的時間，我不想不停更新

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

5^#

發表於 2013-7-26 13:21 | 只看該作者

回復 4# wwh126

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

TOP

wwh126

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

6^#

發表於 2013-7-26 18:21 | 只看該作者

回復 5# GBKEE

但選了手動後，我在往下的格打數字就不能顯示即時時間！

TOP

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

7^#

發表於 2013-7-29 13:55 | 只看該作者

回復 5# GBKEE

版大，

作者的意思應該是，假設A欄是打卡名稱，寫完誰之後，B欄就會自動記錄他寫上的時間

然後不會重複

可能他想要用EXCEL 做打卡鐘吧

假設
A欄       B欄
林大名  13:54:23

楊大組  13:55:01

....這樣子下去  前面名字自己打，後面時間自動產生

TOP

wwh126

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 32
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: MACAU
註冊時間: 2012-12-17
最後登錄: 2016-10-26

8^#

發表於 2013-7-29 14:19 | 只看該作者

大概是這樣

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

9^#

發表於 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