Question

vba combobox 取值并做判断

我在userform里做了一个combobox,一个text, 一个commandbotton,我想把combox选择的值写入另一个excel文件里，另外做一个判断，当combobox选择了值，textbox输入了值，两个条件都满足的情况下commandbotton才可以点，点了这个commandbotton之后把combobox和textbox的值写入另一个excel表。这段代码应该怎么写呢？

Answer 1

‘大致代码如下，有些地方需自行修改
’初始化UserForm时设置Enabled属性为False，也可以写代码设置
CommandButton1.Enabled=False
‘绑定CommandButton1的Click事件
Private Sub CommandButton1_Click()
   Workbooks("文件名称").Sheets("工作表名称").Range("A1") = TextBox1.Value
   Workbooks("文件名称").Sheets("工作表名称").Range("A1") = ComboBox1.Value
End Sub
添加一个公共Sub，判断当条件满足时，激活按钮
Sub enableButton()
   If TextBox1.Value ="" && ComboBox1.Value=="" Then
    CommandButton1.Enabled = True
   Else
    CommandButton1.Enabled = False
   End if
End Sub
然后设置ComboBox1和TextBox1的Change事件：
Private Sub ComboBox1_Change()
    ’调用Sub
    Call enableButton
End Sub
Private Sub ComboBox1_Change()
    ’调用Sub
    Call enableButton
End Sub

追问

Combobox1做判断的时候如果像你上面那么写就是在没有选的时候加上其它两个生效，我是想在选择了之后加了其它两个条件一起生效，