與失敗的檢查

Question

如何創建一個消息框，顯示所有的必填字段尚未填寫的列表VBA消息框。

我使用上有一個自動過濾器（表「Table11」）只顯示失敗的檢查。

我想將它們翻譯成一個消息框，顯示銷售代理嘗試創建合同的時間。

表如下佈局：

Answer 1

這是假設CHECK意味着有一個問題

Sub ErrorMessage() 
Dim strErrMsg As String 
Dim cell As Range 
If Application.CountIf(-yourfilteredrangehere-), "CHECK") = 0 Then Exit Sub 
'no problems to output 
For Each cell In Range(-yourfilteredrangehere-) 
    'next line assumes checkitem in previous column, change if not 
    If cell = "check" Then strErrMsg = strErrMsg & "Please check " & cell.Offset(0, -1) & vbCrLf 
Next cell 
MsgBox strErrMsg 
End Sub 

Answer 2

下面的示例經過Table11，並創建「查詢」所有那些帶有標註的列表，然後顯示一條消息，如果有項目。

Public Sub Sample() 
Dim LngCounter As Long 
Dim Tbl   As Excel.Range 
Dim StrMsg  As String 

Set Tbl = ThisWorkbook.Worksheets("Sheet1").Range("Table11") 
    For LngCounter = 2 To Tbl.Rows.Count 
     If Trim(UCase(Tbl.Cells(LngCounter, 2))) = "CHECK" Then 
      StrMsg = StrMsg & Tbl.Cells(LngCounter, 1) & vbNewLine 
     End If 
    Next 
Set Tbl = Nothing 

If StrMsg <> "" Then 
    MsgBox "The following items need attention before continuing: - " & vbNewLine & vbNewLine & StrMsg, vbOKOnly + vbExclamation, "Data Validation" 
End If 

End Sub