返回列表 上一主題 發帖

在A1儲存格打上目前時間,巨集怎麼寫??

在A1儲存格打上目前時間,巨集怎麼寫??

在A1儲存格打上目前時間,巨集怎麼寫??

回復 1# t8899

'只要將B1的數值輸入大於0的話 即可即時更新

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 1
        If Range("b1").Value > 0 Then
            Range("A1") = Date
            Range("A2") = Time
        
        End If
Next i
End Sub

TOP

想在  Range("d65536").End(xlUp).Offset(1).Select
這儲存格打上目前時間要如何寫??

TOP

本帖最後由 vpower 於 2011-6-29 16:51 編輯

暫先不解決了,請移除,謝

TOP

回復 4# vpower


   這個不用執行巨集...
只要將該指令儲存格的值 輸入大於0 的數值即可..
是採取活頁簿變更時就會自動執行的方法

TOP

本帖最後由 vpower 於 2011-6-29 16:51 編輯

暫先不解決了,請移除,謝

TOP

回復 6# vpower

0.0 不然
在 thisworkbook 這邊 打 以下程式碼


Private Sub Workbook_Open()

     
     Range("A1") = "=Date"
     
     Range("A2") = "=Time"

End Sub


PS 但是這段程式碼 會造成 無限迴圈~~~
如果要停止時候 請按ESC中斷

TOP

請問一下,時間指的是不含日期,純小時及分鐘嗎?
小弟是excel程式初學者,請多多指教

TOP

請問一下,時間指的是不含日期,純小時及分鐘嗎?
chiahuo 發表於 2011-6-13 14:19



    不懂意思...
我發的程式碼是將兩者分開
time = 時間 (如 下午2點28分59秒的話 就會顯示 02:28:59 pm 類似這樣)
date = 日期

TOP

本帖最後由 vpower 於 2011-6-29 16:52 編輯

暫先不解決了,請移除,謝

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題