12
返回列表 上一主題 發帖

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

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
11# 跳轉到 »
發表於 2021-7-2 15:14 | 只看該作者
回復 10# dou10801


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

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
12#
發表於 2021-7-2 15:19 | 只看該作者
回復 10# dou10801

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

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
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)

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
12
返回列表 上一主題