您好~ 想請教「如何從自訂表單,把選項按鈕的值傳到指定儲存格?」
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