台灣最大程式設計社群網站
線上人數
2409
 
會員總數:241160
討論主題:186820
歡迎您免費加入會員
[ 變換順序 ]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
CheckBox疑問
價值 : 5 QP  點閱數:310 回應數:3

樓主

許橘子
門外漢
0 3
61 1
發送站內信


請問各位大大,
這些CheckBox,當選取後,按下按鈕會跳出訊息視窗,
剛選取了什麼?該如何寫呢?

Private Sub CommandButton1_Click()
For i = 1 To 19
If Sheets("按鈕").OLEObjects("CheckBox" & i).Value = True Then
MsgBox Sheets("按鈕").OLEObjects("Checkbox" & i).Object.Caption
End If
Next i
End Sub

搜尋相關Tags的文章: [ CheckBox ] ,
本篇文章發表於2017-05-13 01:54
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
最有價值解答

roar
檢舉此回應
https://drive.google.com/open?id=0Byaf47T83Uj6RWR6Wmg5Q1paYnM
以上為檔案請參閱。

本篇文章回覆於2017-05-13 10:15
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

永德
檢舉此回應
謝謝您
本篇文章回覆於2017-06-15 12:04
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

永德
檢舉此回應
謝謝您
本篇文章回覆於2017-06-15 12:04
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
[ 變換順序 ]   
1

回覆
如要回應,請先登入.