mycmyc

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-13 23:11 | 只看該作者

使用 TODAY() 取得系統日期然後固定不變怎模做呢

本帖最後由 mycmyc 於 2010-10-13 23:32 編輯

使用 TODAY() 取得系統日期然後固定不變怎模做呢
不然不管那天填寫日期多變今天了

A4寫 =IF(A4="",TEXT(TODAY(),A4)) 變成1900/1/0

怎麼辦請教謝謝

如
cell a1 b1 原來是空的
a1 加上資料後 b1 會自動跳出今天日期(today())
希望保留當天日期
下次開啟後無須跳到新的當日

樓主熱帖

HI

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2010-10-13 23:46 | 只看該作者

本帖最後由 luhpro 於 2010-10-13 23:55 編輯

回復 1# mycmyc

其實本串這個例子應該是用 vba 比較容易達成而沒其他毛病,
若用儲存格公式應該都會出現 "循環參照" 的警告訊息.

不過還是有個方式可以做到 :
A4 = IF(C1=1,B1,B2)

B1 = NOW()
B2 = A4

C1 = 0

當手動將 C1 設為 1 時會將 A4 變成今天的日期, (如果沒變請手動重新計算)
否則(即 C1 <> 1)就保持舊值(存在 B2上, (所以應該要先給初值, 也就是 C1=1 最少要先做過一次)

本法中首次出現 "循環參照" 的警告時請直接按 "取消" 按鍵略過不變更現況,
其後手動將當 C1=1 改變成 C1 <> 1 時又會再次出現 "循環參照" 的警告,
請直接按 "確定" 忽略該訊息.

若需要重設 A4 為今天日期時,
請將 C1 的值設成 1 ,
等 A4 的值變動成今天日期後再將 C1 設成 <> 1 即可.

TOP

mycmyc

中學生 Rank: 2

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

3^#

發表於 2010-10-14 00:12 | 只看該作者

回復 2# luhpro
感謝大大指教

我試了  還是有些問題  一改 C1=1  全變回來
我搜尋如大大說的用VBA 比較好
能請大大教我VBA嗎
  我VBA 還不大行
  麻煩你詳細說明一下  謝謝你

HI

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-10-14 00:54 | 只看該作者

別用公式了，ctrl+; 不好嗎？

TOP

onegirl0204

中學生 Rank: 2

帖子: 217
主題: 36
精華: 0
積分: 314
點名: 252
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-9-25
最後登錄: 2024-9-25

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

5^#

發表於 2010-10-14 09:37 | 只看該作者

剛剛試了一下～真的馬上出現今天的日期耶！只是還得等到明天再看看那一格的日期會維持１０／１４或自動變成１０／１５囉？

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2010-10-14 09:44 | 只看該作者

剛剛試了一下～真的馬上出現今天的日期耶！只是還得等到明天再看看那一格的日期會維持１０／１４或自動變成 ...
onegirl0204 發表於 2010-10-14 09:37

很有趣！
若按耐不住時可改變一下系統日期，哈哈。

TOP

onegirl0204

中學生 Rank: 2

帖子: 217
主題: 36
精華: 0
積分: 314
點名: 252
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-9-25
最後登錄: 2024-9-25

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

7^#

發表於 2010-10-14 10:10 | 只看該作者

回復 6# oobird

前輩果然不是浪得虛名的

，像我這種新手就是不會想到變更系統日期，而選擇傻傻地等一天，幸好才等一天而已！

TOP

mycmyc

中學生 Rank: 2

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

8^#

發表於 2010-10-14 12:33 | 只看該作者

謝謝大家沒辦法只好用手工輸入了

HI

TOP

chain941006

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 27
點名: 0
作業系統: Windows
軟體版本: Win7
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-9-14
最後登錄: 2013-5-5

9^#

發表於 2010-10-14 13:50 | 只看該作者

A1:99年10月13日
公式:=FIXED(YEAR(NOW())-1911,0,TRUE)&"年"&FIXED(MONTH(NOW()),0,TRUE)&"月"&FIXED(DAY(NOW()),0,TRUE)&"日"

vba
Sub Macro1()
Range("B1") = Range("A1")
End Sub

A1:99年10月13日(為公式)
B1:99年10月13日 (為文字)即為當時作業日期
----------------------------------------------------------------------
簡單說明如上...(測試後没問題)

50 字節以內
不支持自定義 Discuz! 代碼

TOP

ANGELA