[發問] 民國日期轉西元日期檢核

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2021-7-2 20:23 | 只看該作者

本帖最後由 singo1232001 於 2021-7-2 20:25 編輯

回復 singo1232001 感謝熱狗慶大大指導,且內容均有註解,詢問一個問題,給我很多思路,雖不能完全了解內碼含 ...
dou10801 發表於 2021-7-2 09:48

Controls(Replace(da, "textBox", "Label", , , vbTextCompare)).Caption = CDate(t)

da 是由文字方塊事件觸發傳過來的name 比如"textbox101"

中間的 Replace(da, "textBox", "Label", , , vbTextCompare)
replace 將textbox101 文字取代成 label101 文字的意思
vbTextCompare 代表不區分大小寫避免大小寫會出錯

所以就變成
Controls(Label101).caption = CDate(t)
最後意思就是
Label101.caption = CDate(t)

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-6-9

12^#

發表於 2021-7-2 15:19 | 只看該作者

回復 10# dou10801

多加一個指令較妥:
Lab_Msg.Caption = "": Cancel = False '加紅色這一段

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-6-9

11^#

發表於 2021-7-2 15:14 | 只看該作者

回復 10# dou10801

就是當下操作的控項, 與activecell, activesheet相同, 可不須指定名稱~~

dou10801

帖子: 150
主題: 43
精華: 0
積分: 235
點名: 148
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2025-6-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

10^#

發表於 2021-7-2 14:47 | 只看該作者

回復 9# 准提部林 感謝准大指導,其中ActiveControl = "" 屬性,是那個控件,其作用為何,謝謝.

杜小平

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-6-9

9^#

發表於 2021-7-2 11:19 | 只看該作者

用Lab代替msgbox

Xl0000636.rar (16.56 KB)

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-6-9

8^#

發表於 2021-7-2 10:47 | 只看該作者

輸入錯誤時,返回輸入格
__用msgbox後, 駐點會消失(沒有閃爍), 還是要再點一下輸入格!!!

dou10801

帖子: 150
主題: 43
精華: 0
積分: 235
點名: 148
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2025-6-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

7^#

發表於 2021-7-2 09:48 | 只看該作者

回復 6# singo1232001 感謝熱狗慶大大指導,且內容均有註解,詢問一個問題,給我很多思路,雖不能完全了解內碼含意,但會一一學習,慢慢消化,其中,Controls(Replace(da, "textBox", "Label", , , vbTextCompare)).Caption = CDate(t) '將正確日期放置label101~103,還無法融會貫通,敬請大大,指導.

杜小平

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-7-2 08:42 | 只看該作者

回復 5# singo1232001

v5 bug 已修正

民國日期轉西元日期檢核v5.zip (25.27 KB)

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-7-2 08:21 | 只看該作者

本帖最後由 singo1232001 於 2021-7-2 08:35 編輯

回復 4# singo1232001

這個版本不同滑鼠並不會被綁住 enter與tab會被綁住
看喜好選擇

另外補充
縮排只是美觀而已並沒有實際作用而且很容易造成程序錯亂
若有需要改寫程序或研究程序時
請用原本展開的狀態coding與理解

若未來有需要美觀再考慮縮排
v4是用if寫的
v5是用select case寫的

民國日期轉西元日期檢核v4.zip (26.04 KB)

民國日期轉西元日期檢核v5.zip (24.93 KB)