有關Excel VBA 多個選項按鈕(OptionButton)的語法?

2018-07-25 5:36 pm
您好~ 想請教「如何從自訂表單,把選項按鈕的值傳到指定儲存格?」
12個OptionButton 簡稱 OB1 ~ OB12,選項按鈕的值(Caption)要存到 F欄位

下列為目前的程式碼.... 謝謝

Private Sub CB1_Click()

If Range("A2") = "" Then
Range("A2") = TB1
Range("B2") = TB2
Range("C2") = TB3
Range("D2") = TB4
Range("E2") = TB5
Range("F2") =

Else

Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.Offset(0, 0).Range("A1").Value = TB1
ActiveCell.Offset(0, 0).Range("B1").Value = TB2
ActiveCell.Offset(0, 0).Range("C1").Value = TB3
ActiveCell.Offset(0, 0).Range("D1").Value = TB4
ActiveCell.Offset(0, 0).Range("E1").Value = TB5
ActiveCell.Offset(0, 0).Range("F1").Value =

End If
UF2.Hide
End
End Sub

Private Sub CB2_Click()
End
End Sub

回答 (1)

2018-07-26 12:18 pm
✔ 最佳答案
基本語法
Private Sub CommandButton1_Click()
j = 1
For i = 1 To 6
If Controls("OptionButton" & i).Value = True Then

Cells(1, j) = Controls("OptionButton" & i).Caption
j = j + 1

End If
Next
End Sub


收錄日期: 2021-05-03 06:48:32
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20180725093651AANZGO5

檢視 Wayback Machine 備份