求助！关于VBA的几个不算难的问题

petty

求教各位大侠！小弟在本社区得各位的大力帮助，历经大半年的时间，终于即将完成图栏智能化自动生成程序，关键的难点都已解决，现在有几个对各位高手来说是小问题的问题求教：



1.对于组合列表框，我让分组的各个单先按钮分别代表一个变量，用什么函数或方法可以简单地读出我选中的列表框的内容，我用的是笨办法，用N个if 语句判断即：if combobox1.value=true then ....if combobox2.value=true then....但这样太麻烦了，如果一组的列表框有十几个的话，程序将相当长，有没有方便的办法？


2.为什么要对变量作申明：dim a as .....，我不理解这一点，因我对变理赋值总是直接赋值：如a =" "&""，不知这样有何缺点。


最后一点：如何实现各控件的关联，比如我想让一个文本框的内容和其它文本框的内容关联:举例：有四个文本框或列表框a,b,c,d，我想让a=b+2c/d如何实现b,c,d的内容变化后，a 立即跟着变化，达到视觉效果，如用change()事件有一个缺点：如果我对d文本框的内容先掉再得改的话，立即提示出错，分母为0,有其它办法实现关联吗？


望高手批点迷津!!!

雪山飞狐_lzh

1 、做一个函数:
Private Function cboTest(Index As Integer) As ComboBox
Set cboTest = Me.Controls("combobox" & Index)
End Function 或 Private Sub UserForm_Initialize()
On Error Resume Next
Set txtBTL(0) = TextBox1
Set txtBTL(1) = TextBox2
Set txtBTL(2) = TextBox3
Set txtBTL(3) = TextBox4
Set txtBTL(4) = TextBox5
Set txtBTL(5) = TextBox6
Set txtBTL(6) = TextBox7
Set txtBTL(7) = TextBox8
Set txtBTL(8) = TextBox9
Set txtBTL(9) = TextBox10
Set txtBTL(10) = TextBox11
Set txtBTL(11) = TextBox12
End Sub

2、变量不声明，直接引用，相当于声明为变体，缺点是如果有同名的全局变量会冲突

petty

不好意思,我昨天内容输错了,刚刚我已经重新修改了,不是组合列表框,而是单选按钮,不知能不能选中一组中的某个单选接钮就能用什么办法立即读出单选按钮代表的内容,我想肯定和tag属性有关,不知能不能立即读出单选按钮代表的内容?

雪山飞狐_lzh

请参见方法一


cboTest（1）返回cboTest1