t8899

大學生 Rank: 4

帖子: 766
主題: 256
精華: 0
積分: 1035
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2026-10-2

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-6-10 07:30 | 只看該作者

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

樓主熱帖

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 282
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2026-10-23

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

15^#

發表於 2011-6-21 21:55 | 只看該作者

有點看不懂呢
不是說"在A1儲存格打上目前時間，巨集怎麼寫??
怎麼會有b1跑出來呢???

jeason

TOP

linsurvey2005

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

14^#

發表於 2011-6-15 22:04 | 只看該作者

我利用巨集把函數寫進去"A1"
以下程式碼給您參考
Sub timenow()
Cells(1, 1) = "=now()"
Selection.NumberFormatLocal = "yyyy/m/d h:mm;@"
End Sub

開心學習,學習很開心

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2011-6-13 22:17 | 只看該作者

回復 3# t8899

資料尾下一列寫入當前電腦時間
[A65536].end(xlup).offset(1)=time

學海無涯_不恥下問

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

12^#

發表於 2011-6-13 17:10 | 只看該作者

回復 11# chiahuo

這個問題不是我發文的~~~(挖謀台狼~~~~~~~~~~~ 只是提供我的方法而已)

TOP

chiahuo

　暱稱: chiahuo

中學生 Rank: 2

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

11^#

發表於 2011-6-13 15:57 | 只看該作者

回復 9# mark15jill
如果是這樣子的話
假設是獨立一個儲存格的話
=Now()
在儲存格格式中，數值，自訂，HH:MM:SS
就可以了
以上是小弟的解法。

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

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	10^# 發表於 2011-6-13 15:23 \| 只看該作者本帖最後由 vpower 於 2011-6-29 16:52 編輯暫先不解決了,請移除,謝

	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

9^#

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

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

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

TOP

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程式初學者，請多多指教

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

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