Board logo

標題: [發問] 如何可以一次性改VBA userform checkbook的value [打印本頁]
作者: mak    時間: 2016-3-23 10:51     標題: 如何可以一次性改VBA userform checkbook的value

我userform入面有一排checkbox,想用一個commandbutton,一次性控制所有checkbook value True或false,應該如何寫？
作者: stillfish00    時間: 2016-3-23 16:18

回復 1# mak
  1. Private Sub CommandButton1_Click()
  2.     For Each x In Me.Controls
  3.         If TypeName(x) = "CheckBox" Then x.value = True
  4.     Next
  5. End Sub
複製代碼
作者: mak    時間: 2016-3-23 21:00

回復  mak
stillfish00 發表於 2016-3-23 16:18



首先感謝你的幫忙

再想請教一下, 假設我的userform入面有多排checkbox, 假設為三排, 每排一百個checkbox(checkbox1-100, checkbox101-200, checkbox201-300), 如果分別用三個commandbutton去控制三排的checkbook value, 可以如何寫？

另一個我想設計的是現在有一百個checkbox(checkbox1-100), 而旁邊有2個textbox可以輸入1-100以內的數字, 再按commandbutton, 便可以一次性控制2個textbox之間所有checkbook value, 這樣可以如何寫？
作者: 准提部林    時間: 2016-3-23 21:52

Private Sub CommandButton1_Click()
For i = 1 To 100
　　UserForm1("CheckBox" & i).Value = 1
Next
End Sub

i 值可用 TextBox 值去跑！！！
作者: mak    時間: 2016-3-29 07:33

感謝大家幫忙



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)