Board logo

標題: 如何取用當前電腦時間的值班(不要自動更新) [打印本頁]
作者: wwh126    時間: 2013-7-26 11:17     標題: 如何取用當前電腦時間的值班(不要自動更新)

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

回復 1# wwh126
會自動將當前的日期時間顯示, 但不要更新.
猜不出來,請詳細說明白.
作者: wwh126    時間: 2013-7-26 12:28

我曾試係B2 打公式=IF(C3>0,NOW(),"")會顯示日期時間,
但會不停更新, 有什麼方法可以不更新
作者: wwh126    時間: 2013-7-26 12:58

回復 2# GBKEE


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

回復 4# wwh126

[attach]15584[/attach]
作者: wwh126    時間: 2013-7-26 18:21

回復 5# GBKEE


    但選了手動後，我在往下的格打數字就不能顯示即時時間！
作者: handsometrowa    時間: 2013-7-29 13:55

回復 5# GBKEE


   版大，

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

然後不會重複

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

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

楊大組  13:55:01  

....這樣子下去  前面名字自己打，後面時間自動產生
作者: wwh126    時間: 2013-7-29 14:19

大概是這樣
作者: GBKEE    時間: 2013-7-29 16:38

回復 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    時間: 2013-7-29 21:36

試試看~
[attach]15630[/attach]
作者: wwh126    時間: 2013-8-2 17:14

回復 9# GBKEE


  運行否到.

A欄                      B 欄
當前時間           大於零的數字
當前時間           大於零的數字
當前時間           大於零的數字
當前時間           大於零的數字
當前時間           大於零的數字
當前時間           大於零的數字

我想是於B 欄打上數字時，A 欄立即出現當前時間!
但之後做其他步驟時不會更新!
作者: wwh126    時間: 2013-8-2 17:19

回復 10# adam2010


    會出現循環問題，EXCEL 不停彈出循環問題，由於我的表格要SHARE , 要在各部電腦上將反覆運算最大值設為1 。
作者: adam2010    時間: 2013-8-2 23:49

回復 12# wwh126


    對呀!這樣的設定應該也不會影響到一般的檔案
作者: luhpro    時間: 2013-8-3 00:26

回復 11# wwh126
  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, Columns("B:B")) Is Nothing And T > 0 Then  'T 在 B欄(指定修改範圍),範圍內.
  7.         T.Offset(, -1) = Time            'Offset(, -1) 左移一欄(B欄)
  8.     End If
  9.     Application.EnableEvents = True
  10. End Sub
複製代碼
作者: sunnyso    時間: 2013-8-3 09:34

回復 1# wwh126

like this?
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Column = 2 Then
  3.         Target.Offset(, 1).Value = Now()
  4.     End If
  5. End Sub
複製代碼
作者: 97forum    時間: 2013-8-15 09:18

回復  handsometrowa
打公式=IF(C3>0,NOW(),"")做不到的.
這工作表模組的程式碼
GBKEE 發表於 2013-7-29 16:38



    GBKEE 版主程式的解釋讓我這個完全不懂的人都可以慢慢去了解整個語法的作用，真的是受益良多。
謝謝您如此用心的解說。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)