複数のテキストボックス/コンボボックスを入力用にチェックする

Question

私はワークシートにデータを入力するために使用する複数のコンボボックスとテキストボックスを持つuserformを持っています。私が探していたのは、ワークシートにデータを保存する前にこれらのボックスをすべてチェックするコードです。空であればメッセージをポップアップし、データは保存しません。

私はそれぞれを個別にチェックする機能を使用していますが、他の機能が空白の場合はデータをシートに保存します。

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