自动填充MsgBox

Question

我想知道是否有人能帮我把下面的东西变成一个味精盒。基本上，我希望它首先检查下面的范围，比如，，如果它们这样做，将出现一个msgbox，解释哪条规则被违反了。我曾经尝试过创建变量，但不太确定如何在msgbox中实现这一点。

Sub ErrorMsgBox()

Dim Error1 As String
    If Range("DaisyFreshRule").Value = "CHECK" Then
    Error1 = "Daisy Fresh Rule"
Else
End If

Dim Error2 As String
    If Range("MigrationRule").Value = "CHECK" Then
    Error2 = "Migration Rule"
Else
End If

Dim Error3 As String
    If Range("ServiceCreditRule").Value = "CHECK" Then
    Error3 = "Service Credit Rule"
Else
End If

End Sub

Answer 1

Sub ErrorMsgBox()

  Dim Error As String: Error=""

  If Range("DaisyFreshRule").Value = "CHECK" Then
    Error = vbNewLine & "Daisy Fresh Rule"
  End If

  If Range("MigrationRule").Value = "CHECK" Then
    Error = Error & vbNewLine & "Migration Rule"
  End If

  If Range("ServiceCreditRule").Value = "CHECK" Then
    Error = Error & vbNewLine & "Service Credit Rule"
  End If

  If Error <> "" Then
    MsgBox "The following checks have been detected:" & Error
  End If

End Sub

Answer 2

试试看

Sub ErrorMsgBox()
    Dim Err As String

    If UCase(Range("DaisyFreshRule").Value) = "CHECK" Then Err = Err & "Daisy Fresh Rule" & vbNewLine
    If UCase(Range("MigrationRule").Value) = "CHECK" Then Err = Err & "Migration Rule" & vbNewLine
    If UCase(Range("ServiceCreditRule").Value) = "CHECK" Then Err = Err & "Service Credit Rule" & vbNewLine

    If Not Err = vbNullString Then MsgBox prompt:=Err, Buttons:=vbCritical
End Sub