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

返回列表下一主題上一主題發帖

mark15jill

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

高中生 Rank: 3 Rank: 3

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

1^# 跳轉到 »

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

mark15jill

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

高中生 Rank: 3 Rank: 3

帖子: 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 11:52 | 顯示全部帖子

回復 4# vpower

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

TOP

mark15jill

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

高中生 Rank: 3 Rank: 3

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

3^#

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

mark15jill