12
返回列表 上一主題 發帖

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

vpower

帖子
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: 3Rank: 3

帖子
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 的數值即可..
是採取活頁簿變更時就會自動執行的方法

TOP

vpower

帖子
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

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
3#
發表於 2011-6-10 08:40 | 只看該作者
想在  Range("d65536").End(xlUp).Offset(1).Select
這儲存格打上目前時間要如何寫??

TOP

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

高中生Rank: 3Rank: 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 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

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
12
返回列表 上一主題