- 帖子
- 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) |
|
發表於 2021-7-2 15:14
| 
