標題:
在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/)
