顯示彈出消息

Question

你好，我已經設法從其他工作表中提取出想要的信息。 它看起來像這樣。 在此處輸入圖像描述，但現在我不知道如何顯示這些信息。 我只想顯示 A 和 J 列。 像這樣的東西。 在此處輸入圖片說明

我面臨的另一個問題是文檔數量會發生變化。 例如，在這種情況下，有三個文檔要顯示，但可能只有一個或三個甚至沒有文檔要顯示。 我想出了一個代碼來解決這個問題，如果列表中沒有文檔，則顯示“沒有文檔到期”。

有人可以幫我解決這個問題。 我不是在要求完整的答案，我需要一些有關如何保存所需信息（A 和 J 列）（針對各種數量的文檔）的指導。 謝謝你

Answer 1

您可以遍歷包含數據的每一行，並將相關值附加到輸出消息。 當循環完成時，顯示該消息。

像這樣的東西：

Sub foo()
    Dim lRow As Long
    Dim lRowMax As Long
    Dim strMsg As String
    Dim strPlural As String

    With Sheet1
        lRowMax = .Cells(Rows.Count, 1).End(xlUp).Row
        If lRowMax = 1 Then
            strMsg = "No document is due"
        Else
            If lRowMax = 2 Then
                strMsg = "This document requires a revision"
            Else
                strMsg = "These documents require a revision"
            End If
            strMsg = strMsg & vbCr
            For lRow = 2 To lRowMax
                strMsg = strMsg & vbCr & .Cells(lRow, 1).Value & vbTab & .Cells(lRow, 10).Value
            Next lRow
        End If
    End With
    MsgBox strMsg, vbOKOnly, "Reminder"
End Sub