Board logo

標題: 在A1儲存格打上目前時間,巨集怎麼寫?? [打印本頁]

作者: t8899    時間: 2011-6-10 07:30     標題: 在A1儲存格打上目前時間,巨集怎麼寫??

在A1儲存格打上目前時間,巨集怎麼寫??
作者: mark15jill    時間: 2011-6-10 08:12

回復 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
作者: t8899    時間: 2011-6-10 08:40

想在  Range("d65536").End(xlUp).Offset(1).Select
這儲存格打上目前時間要如何寫??
作者: vpower    時間: 2011-6-10 11:39

提示: 作者帳號被禁止或禁止訪問
作者: mark15jill    時間: 2011-6-10 11:52

回復 4# vpower


   這個不用執行巨集...
只要將該指令儲存格的值 輸入大於0 的數值即可..
是採取活頁簿變更時就會自動執行的方法
作者: vpower    時間: 2011-6-10 14:49

提示: 作者帳號被禁止或禁止訪問
作者: mark15jill    時間: 2011-6-13 13:33

回復 6# vpower

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


Private Sub Workbook_Open()

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

End Sub


PS 但是這段程式碼 會造成 無限迴圈~~~
如果要停止時候 請按ESC中斷
作者: chiahuo    時間: 2011-6-13 14:19

請問一下,時間指的是不含日期,純小時及分鐘嗎?
作者: mark15jill    時間: 2011-6-13 14:29

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



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

提示: 作者帳號被禁止或禁止訪問
作者: chiahuo    時間: 2011-6-13 15:57

回復 9# mark15jill
如果是這樣子的話
假設是獨立一個儲存格的話
=Now()
在儲存格格式中,數值,自訂,HH:MM:SS
就可以了
以上是小弟的解法。
作者: mark15jill    時間: 2011-6-13 17:10

回復 11# chiahuo


    這個問題 不是我發文的~~~(挖謀台狼~~~~~~~~~~~ 只是提供我的方法而已)
作者: Hsieh    時間: 2011-6-13 22:17

回復 3# t8899

資料尾下一列寫入當前電腦時間
    [A65536].end(xlup).offset(1)=time
作者: linsurvey2005    時間: 2011-6-15 22:04

我利用巨集把函數寫進去"A1"
以下程式碼給您參考
Sub timenow()
  Cells(1, 1) = "=now()"
  Selection.NumberFormatLocal = "yyyy/m/d h:mm;@"
End Sub
作者: brabus    時間: 2011-6-21 21:55

有點看不懂呢
不是說"在A1儲存格打上目前時間,巨集怎麼寫??
怎麼會有b1跑出來呢???




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