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

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

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

40^# 跳轉到 »

發表於 2010-12-17 23:37 | 只看該作者

哇
真的ok了呢
高手實在利害啊
謝謝囉

jeason

TOP

hango_wu

小學生 Rank: 1

帖子: 7
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
來自: SZ
註冊時間: 2010-8-28
最後登錄: 2011-2-6

39^#

發表於 2010-12-10 17:28 | 只看該作者

馬上來試試看
感謝分享

hango

TOP

fr447446

中學生 Rank: 2

帖子: 61
主題: 3
精華: 0
積分: 116
點名: 0
作業系統: WINDOSXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-10-6
最後登錄: 2014-3-5

38^#

發表於 2010-12-10 08:50 | 只看該作者

回復 37# aa7551
這個時候應該要針對電腦的權限做控管了吧

沒事就來逛逛

TOP

aa7551

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2024-4-30

37^#

發表於 2010-12-9 19:06 | 只看該作者

給mycmyc建議:以下內容跟vba無關,會計何時輸入傳票,如果是當日必須完成,那只有端賴制度來監督,如果,在輸入前我先把系統日期異動,調整成欲輸入日期,輸入後,再把日期改為今日,大大如何防止

TOP

baa168

中學生 Rank: 2

帖子: 119
主題: 14
精華: 0
積分: 138
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-6
最後登錄: 2019-5-4

36^#

發表於 2010-11-6 00:28 | 只看該作者

馬上來試試看
笨笨的BAA只會用手動人工輸入.....
感謝分享

TOP

mycmyc

中學生 Rank: 2

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

35^#

發表於 2010-10-18 22:45 | 只看該作者

回復 34# oobird
謝謝可以了

HI

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

34^#

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
If Target <> "" Then Cells(Target.Row, 2) = Date
End Sub

TOP

mycmyc

中學生 Rank: 2

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

33^#

發表於 2010-10-18 17:49 | 只看該作者

本帖最後由 mycmyc 於 2010-10-18 17:50 編輯

a1 上資料後 b1 自動出今天日期.rar (5.68 KB)
這VBA 好像OK
但不知怎麼複製到
A2
A3
.
.
.
.
.

HI

TOP

mycmyc

中學生 Rank: 2

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

32^#

發表於 2010-10-18 17:08 | 只看該作者

我寫這是公司現金帳
我給公司會計  輸入
我不給他輸入  非今日帳目
所以我先保護後  給他輸入
因此只能用抓系統日期
謝謝大家  我研究研究
這問題不容易
好像只能用 VBA 解決

HI

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

31^#

發表於 2010-10-17 22:23 | 只看該作者

保護後就沒辦法輸入
我是叫你輸入日期後再保護，又不是叫你先保護再輸入日期。
用vba很簡單，只有幾個字：[a1]=date 即可在a1產生當天日期，不過你不保護該儲存格還是不能預防被修改。

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]