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

wwh126

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

GBKEE

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

wwh126

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

wwh126

回復 2# GBKEE


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

GBKEE

回復 4# wwh126

下載 (46.62 KB)

2013-7-26 13:21

wwh126

回復 5# GBKEE


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

handsometrowa

回復 5# GBKEE


   版大，

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

然後不會重複

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

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

楊大組  13:55:01  

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

wwh126

大概是這樣

GBKEE

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

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

複製代碼

adam2010

試試看~

下載 (57.92 KB)

2013-7-29 21:36