vba - 自动填充 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