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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 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

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-28

3^#

發表於 2011-6-10 08:40 | 只看該作者

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

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	4^# 發表於 2011-6-10 11:39 \| 只看該作者本帖最後由 vpower 於 2011-6-29 16:51 編輯暫先不解決了,請移除,謝

	TOP

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2011-6-10 11:52 | 只看該作者

回復 4# vpower

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

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	6^# 發表於 2011-6-10 14:49 \| 只看該作者本帖最後由 vpower 於 2011-6-29 16:51 編輯暫先不解決了,請移除,謝

	TOP

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 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

　暱稱: chiahuo

中學生 Rank: 2

帖子: 183
主題: 46
精華: 0
積分: 322
點名: 0
作業系統: win 7
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2010-6-18
最後登錄: 2017-9-26

8^#

發表於 2011-6-13 14:19 | 只看該作者

請問一下，時間指的是不含日期，純小時及分鐘嗎？

小弟是excel程式初學者，請多多指教

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

9^#

發表於 2011-6-13 14:29 | 只看該作者

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

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