vba - 围绕我的选择案例创建一个循环

Question

目前，我有一个功能正常的 Select Case 声明如果文本框为空白，则将其突出显示为红色，但它似乎只突出显示其中一个文本框。例如，如果 2 个文本框留空，它只会突出显示它遇到的第一个。

Select Case True
    Case Me.CustName = ""
    Me.CustName.BackColor = &H8080FF
    Case Me.RegAddress = ""
    Me.RegAddress.BackColor = &H8080FF
    Case Me.PostInput = ""
    Me.PostInput.BackColor = &H8080FF
    Case Me.Landline = ""
    Me.Landline.BackColor = &H8080FF
    Case Me.Contact = ""
    Me.Contact.BackColor = &H8080FF
    Case Me.DOBInput = ""
    Me.DOBInput.BackColor = &H8080FF
End Select

作为 VBA 的新手，我唯一的想法是围绕我当前状态的代码创建一个循环(循环直到 x、y 或 z 为 <>“”)，但我似乎无法弄清楚如何做到这一点。

任何建议将不胜感激。

Answer 1

Select Case 仅在第一个匹配的 Case 语句之后运行代码块。如果您无论如何都需要检查每个条件，则应将它们编写为单独的 If 语句:

If Me.CustName   = "" Then Me.CustName.BackColor   = &H8080FF
If Me.RegAddress = "" Then Me.RegAddress.BackColor = &H8080FF
If Me.PostInput  = "" Then Me.PostInput.BackColor  = &H8080FF
....