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

dou10801

請教各位先進,民國日期轉西元日期檢核,如果日期不正確如何跳回原來的位置,重新輸入,感謝.

singo1232001

回復  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)

准提部林

回復 10# dou10801

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

准提部林

回復 10# dou10801


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

dou10801

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

准提部林

用Lab代替msgbox
Xl0000636.rar (16.56 KB)

下載次數: 13

2021-7-2 11:18

准提部林

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

dou10801

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

singo1232001

回復 5# singo1232001


    v5 bug 已修正

singo1232001

回復 4# singo1232001

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

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

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