Question

EXCEL VBA 窗体控件给工作表单元格赋值 请指教

在用EXCEL做一个劳资管理管理界面，主要用途是打印工资结算单。界面如下图：

准备把各控件的值填写完按下“确定”按钮后把控件值赋给EXCEL工作表，如下图：

需要把界面上”工种“文本框的值赋给单元格A3（合并后的单元格），同时还要判断“结算类型”单选框的选择情况，决定A3单元格的值。
就是说：如果“结算类型”选择的是“工资”，则A3单元格=“工种”文本框+“工资 结算单”；如果选择的是“津贴”，则A3单元格=“工种”文本框+“津贴 结算单”。

不论我在界面上怎么选择，A3单元格值一直是“工资 结算单“，没有办法变成”津贴 结算单“。下面是我的代码，请高手给看下：

Private Sub CommandButton1_Click()

With Sheet3 ‘准备存放控件值的工作表
Select Case OptionButtonVALUE1
Case OptionButton10.Value = True ' 结算类型为”工资“
Range("a3") = TextBox1.Value & "工资 结算单"
Case OptionButton9.Value = True ’结算类型为”津贴“
.Range("a3") = TextBox1.Value & "津贴 结算单"
End Select
End With
End Sub





Answer 1

用这句代码替换你上面那些。
Range("A3").Value = IIf(OptionButton9, "津贴 结算单", "工资 结算单")

追问

果然好用啊。谢谢。能不能再问下，”用工单位“的选项里有6个单选框，怎么能实现呢？
我用SELECT 语句不好用。
Select Case OptionButtonVALUE2

Case OptionButton3.Value = True
.Range("a4") = "单位：沙特八期项目部"
Case OptionButton4.Value = True
.Range("a4") = "单位：建筑二公司"
...

End Select
谢谢。

追答

六个的话，我建议你用组合框好点。如果用单选框可以这样
If OptionButton1 Then
Range("A4").Value = "单位： " & OptionButton1
ElseIf OptionButton2 Then
Range("A4").Value = "单位： " & OptionButton2
ElseIf OptionButton3 Then
Range("A4").Value = "单位： " & OptionButton3
ElseIf OptionButton4 Then
Range("A4").Value = "单位： " & OptionButton4
ElseIf OptionButton5 Then
Range("A4").Value = "单位： " & OptionButton5
ElseIf OptionButton6 Then
Range("A4").Value = "单位： " & OptionButton6
End If