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

樓主熱帖

mark15jill

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

高中生 Rank: 3 Rank: 3

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

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

TOP

t8899

高中生 Rank: 3 Rank: 3

帖子: 735
主題: 235
精華: 0
積分: 983
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2023-11-28

3^#

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

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

TOP

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

mark15jill

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

高中生 Rank: 3 Rank: 3

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

5^#

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

回復 4# vpower

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

TOP

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

mark15jill

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

高中生 Rank: 3 Rank: 3

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

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中斷

TOP