vba、outlook、用户表单(如果comebox&;文本字段
我有一个用户表单,有一个组合框字段和几个文本字段。 组合框1=应用程序类型(7种不同的结果) 名称、姓氏、城镇、邮政编码等文本字段 按下Ok按钮后,如果缺少必填字段,我希望提示用户 1选择的必填字段为字段1、字段2和字段3 选择2仅填写1,选择3仅填写2字段6 等等 奇怪的是,若我选择了一些我并没有在这个子项中定义的东西,我选择了值4或5,我仍然会收到消息。 我错过了什么vba、outlook、用户表单(如果comebox&;文本字段,vba,outlook,userform,Vba,Outlook,Userform,我有一个用户表单,有一个组合框字段和几个文本字段。 组合框1=应用程序类型(7种不同的结果) 名称、姓氏、城镇、邮政编码等文本字段 按下Ok按钮后,如果缺少必填字段,我希望提示用户 1选择的必填字段为字段1、字段2和字段3 选择2仅填写1,选择3仅填写2字段6 等等 奇怪的是,若我选择了一些我并没有在这个子项中定义的东西,我选择了值4或5,我仍然会收到消息。 我错过了什么 Private Sub CommandButton1_Click() If UserForm2.ComboBox1T.Va
Private Sub CommandButton1_Click()
If UserForm2.ComboBox1T.Value = "1.New Application" _
And TextBox1.Text = "" _
Or TextBox2.Text = "" _
Or TextBox3.Text = "" _
Then
MsgBox ("Fill in all mandatory Fields")
Exit Sub
End If
If UserForm2.ComboBox1T.Value = "2.Old Application" _
And TextBox1.Text = "" _
Or TextBox2.Text = "" _
Then
MsgBox ("Fill in all mandatory Fields")
Exit Sub
End If
If UserForm2.ComboBox1T.Value = "3.Somethingelse" _
And TextBox1.Text = "" _
Or TextBox2.Text = "" _
Then
MsgBox ("Fill in all mandatory Fields")
Exit Sub
End If
找到了解决办法
With Me
Select Case .ComboBox1T
Case "1.New Application"
If .TB1 = "" Or .TB2 = "" Or .TB3 = "" Then MsgBox ("Something")
Case "2.old Application"
If .TB1 = "" Or .TB2 = "" Then MsgBox ("Something")
Case "3.Other Application"
If ........
Case "4."
Case "5."
Case "6."
Case "7."
End Select
End With
啊,我知道你错过了什么。你错过了那些抽出宝贵时间回答你问题的人。我的错误,都解决了。我刚从stackoverflow开始,不确定一切是如何运作的。