检查多个文本框/组合框的输入

Question

我有一个用户窗体包含多个组合框和文本框，用于向工作表中输入数据。我一直在寻找的是在将数据保存到工作表前检查所有这些框的代码，因此如果其中一个为空，它将弹出一条消息并且不保存数据。

我一直在使用一个函数来逐个检查每一个函数，但如果其他函数是空白的，它仍然会将数据保存到工作表中。

Public Function CheckEmpty(text_box As Object) As Boolean 
CheckEmpty = (Len(Trim(text_box.Value)) > 0) 
End Function 

Answer 1

创建一个复选框控件对象的数组，然后遍历它，依次检查每个对象。

Answer 2

你可能想尝试类似如下

Private Sub CommandButton1_Click() '<== change "CommandButton1" with the actual 'closing' button name 
Dim ctrl As Control 
Dim msg As String 

With Me 
    For Each ctrl In .Controls 

     Select Case TypeName(ctrl) 

      Case "ComboBox" 
       If ctrl.ListIndex = -1 Then msg = msg & vbCrLf & "ComboBox '" & ctrl.name & "' with no value selected" 
      Case "TextBox" 
       If ctrl.text = "" Then msg = msg & vbCrLf & "TextBox '" & ctrl.name & "' with no value selected" 
      Case Else 

     End Select 

    Next ctrl 

    If msg = "" Then 
     .Hide ' hide the userform only if no empty textboxes and/or comboboxes 
    Else 
     MsgBox msg, vbExclamation + vbInformation 
    End If 
End With 

End Sub 

被放置在用户窗体代码窗格