vba 数据录入，单选和复合框不懂编程，各位大虾能帮我吗？

chenz20 · 发表于 2014-5-30 14:48

数据录入，单选和复合框不懂编程，要选择后输入表格中。我也不知道该如何说，请大虾看附件好吗，谢谢！

chenz20 · 发表于 2014-5-30 15:13

有大虾帮忙吗！

chenz20 · 发表于 2014-6-1 10:15

大侠能帮帮我吗？

阿曹 · 发表于 2014-6-1 12:22

ActiveCell.Offset(1, 0).Range("D1") = ComboBox1.Text

If OptionButton1.Value = True Then
ActiveCell.Offset(1, 0).Range("E1") = OptionButton1.Caption
End If
If OptionButton2.Value = True Then
ActiveCell.Offset(1, 0).Range("E1") = OptionButton2.Caption
End If
If OptionButton3.Value = True Then
ActiveCell.Offset(1, 0).Range("E1") = OptionButton3.Caption
End If

If OptionButton4.Value = True Then
ActiveCell.Offset(1, 0).Range("E1") = OptionButton4.Caption
End If

OptionButton 那个我尝试用循环语句

For i = 1 To 4
If OptionButton(i).Value = True Then
ActiveCell.Offset(1, 0).Range("E1") = OptionButton(i).Caption
End If
Next

但是提示子过程或函数未定义求教

chenz20 · 发表于 2014-6-16 19:30

谢谢回复！

hbqinzq · 发表于 2014-6-28 15:31

我也是新人，，，你说是的用数据有效性可以办到吗

leileicai · 发表于 2014-7-6 10:36

If OptionButton(i).Value = True 不能用
改成这个 If Me.Controls("OptionButton" & t).Value Then就可以了，vba里面没有数组

		自动登录	找回密码
密码			免费注册