显示弹出消息

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