如何讓多個UserForm中的CheckBox參照 - Excel程式區

[發問] 如何讓多個UserForm中的CheckBox參照

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-10-17 08:36 | 顯示全部帖子

回復 1# av8d
2# kimbal版主問說 "30個 USERFORM設計是否都一樣? "
如是請上傳檔案 ,可用物件類別來試試

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-17 14:52 | 顯示全部帖子

回復 4# av8d
附檔非是 "30個 USERFORM設計是一樣的 " 不好設計
試試看 30個 USERFORM CheckBox名稱都一樣依UserForm1的 CheckBox的.Caption

複製代碼

Sub 轉換Caption(theForm As UserForm) '此程序供30個UserForm使用,可置於ThisWorkbook 或一般模組中
Dim cCBs As Integer
For cCBs = 1 To 28 ,所有表單的 CheckBox 名稱都一樣
theForm.Controls("CheckBox" & cCBs).Caption = UserForm1.Controls("CheckBox" & cCBs).Caption
Next
End Sub

複製代碼

靜思自在 : 真正的愛心，是照顧好自己的這顆心。