wwh126

回復 9# GBKEE


  運行否到.

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

我想是於B 欄打上數字時，A 欄立即出現當前時間!
但之後做其他步驟時不會更新!

wwh126

回復 10# adam2010


    會出現循環問題，EXCEL 不停彈出循環問題，由於我的表格要SHARE , 要在各部電腦上將反覆運算最大值設為1 。

adam2010

回復 12# wwh126


    對呀!這樣的設定應該也不會影響到一般的檔案

luhpro

回復 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

回復 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

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

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