12
返回列表 上一主題 發帖

[發問] checkbox&optionbutton值問題

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2# 跳轉到 »
發表於 2014-12-16 11:06 | 只看該作者
本帖最後由 stillfish00 於 2014-12-16 11:14 編輯

回復 1# ayubbs
1.
  1. Private Sub CommandButton1_Click()
  2.   Dim s As String, i As Long
  3.   For i = 1 To 4
  4.     With Controls("CheckBox" & i)
  5.       If .Value Then
  6.         s = IIf(s = "", .Caption, s & ";" & .Caption)
  7.       End If
  8.     End With
  9.   Next
  10.   TextBox1.Value = s
  11. End Sub

  13. Private Sub CommandButton2_Click()
  14.   TextBox1.Value = ""
  15. End Sub
複製代碼
2.
  1. Private Sub OptionButton1_Click()
  2.   TextBox2 = OptionButton1.Caption
  3. End Sub
  4. Private Sub OptionButton2_Click()
  5.   TextBox2 = OptionButton2.Caption
  6. End Sub
  7. Private Sub OptionButton3_Click()
  8.   TextBox2 = OptionButton3.Caption
  9. End Sub
複製代碼
3.
  1. Private Sub CommandButton3_Click()
  2.   Dim i As Long
  3.   For i = 4 To 6
  4.     With Controls("OptionButton" & i)
  5.       If .Value Then
  6.         TextBox3.Value = .Caption
  7.         Exit For
  8.       End If
  9.     End With
  10.   Next
  11. End Sub
  12. Private Sub CommandButton4_Click()
  13.   TextBox3.Value = ""
  14. End Sub
複製代碼
4.
  1. Private Sub CheckBox5_Click()
  2.   UpdateTextBox4
  3. End Sub
  4. Private Sub CheckBox6_Click()
  5.   UpdateTextBox4
  6. End Sub
  7. Private Sub CheckBox7_Click()
  8.   UpdateTextBox4
  9. End Sub
  10. Private Sub CheckBox8_Click()
  11.   UpdateTextBox4
  12. End Sub

  14. Private Sub UpdateTextBox4()
  15.   Dim s As String, i As Long
  16.   For i = 5 To 8
  17.     With Controls("CheckBox" & i)
  18.       If .Value Then
  19.         s = IIf(s = "", .Caption, s & ";" & .Caption)
  20.       End If
  21.     End With
  22.   Next
  23.   TextBox4.Value = s
  24. End Sub
複製代碼
P.S.  
點選checkbox有個屬性叫GroupName
ABC 應該設置同一個GroupName
大中小 設置另一個GroupName
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 人要知福、惜福、再造福。
12
返回列表 上一主題