[英]vba Userform Input Error Checking
我在Excel 2010中有一个用户窗体。有8个文本框。 提交数据并不需要全部填写。 如果所有8个文本框均为空白,则会显示一个msgbox。 下面是我这样做的代码。 有没有更优雅的编码方式? 谢谢。
Dim A
Dim B
Dim C
Dim D
Dim E
Dim F
Dim G
Dim H
If TextBox1.Text = "" Then
A = 0
Else
A = 1
End If
If TextBox2.Text = "" Then
B = 0
Else
B = 1
End If
If TextBox3.Text = "" Then
C = 0
Else
C = 1
End If
If TextBox4.Text = "" Then
D = 0
Else
D = 1
End If
If TextBox5.Text = "" Then
E = 0
Else
E = 1
End If
If TextBox6.Text = "" Then
F = 0
Else
F = 1
End If
If TextBox7.Text = "" Then
G = 0
Else
G = 1
End If
If TextBox8.Text = "" Then
H = 0
Else
H = 1
End If
If A + B + C + D + E + F + G + H = 0 Then
MsgBox " Enter Some Data,", vbOKOnly + vbCritical, "ERROR!"
Else
'.....rest of code.....
Private Sub CommandButton1_Click()
If Not HasSomeInput() Then MsgBox "Enter Some Data,", vbOKOnly Or vbCritical, "ERROR!"
End Sub
Private Function HasSomeInput() As Boolean
Dim c As MSForms.Control
Dim t As MSForms.TextBox
For Each c In Me.Controls
If TypeOf c Is MSForms.TextBox Then
Set t = c
If Len(t.Text) > 0 Then
HasSomeInput = True
Exit Function
End If
End If
Next
End Function
我会做类似的事情
Dim cCont As Control
Dim sEntries As String
' Change UserForm1 to the actual name of the userform
For Each cCont In UserForm1.Controls
If TypeOf cCont Is msforms.TextBox Then _
sEntries = sEntries & CStr(cCont)
Next cCont
If Trim(sEntries) = vbNullString Then _
MsgBox vbTab & "Enter Some Data!", vbOKOnly + vbCritical, "ERROR!"
我希望这有帮助!
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.