excel - 当重要的输入文本框为空时如何生成错误

Question

我正在创建一个数据输入用户表单来计算负载(例如管道负载、风负载等)。有一些重要的文本框不能不填写。如果用户单击命令“添加输入”并且有一些文本框未填充，我希望生成一个错误以强制用户输入一个值。

我已经为一个文本框生成了一个错误。当您尝试离开文本框而不先填充文本框时，此代码将触发错误警报。

    Private Sub txtdist_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Trim(txtdist.Value) = "" And Me.Visible Then
    MsgBox "Required Entry!", vbCritical, "Error"
    Cancel = True
    txtdist.BackColor = vbRed
    Else
    txtdist.BackColor = &HC0FFFF
    End If
    End Sub

我想要实现的是，当我单击“继续”命令按钮时，程序将查看是否有任何文本框或组合框留空以强制用户输入值。 (类似于当您尝试使用信用卡在线购买时，如果没有姓名或信用卡号等，页面将不会提交...)。谢谢。

Answer 1

也许你可以试试这个

Private Sub Continue_click()

Dim c as Control

    For Each c In Me.Controls
        If TypeName(c) = "TextBox" Then

            If Trim(c.Value) = "" Then
              MsgBox "Please fill out all required information", vbInformation
            Exit Sub
            End If

        End If
    Next c
End Sub