Question

您好，我设法从其他表格中提取了所需信息。看起来像这样。 enter image description here 但是现在我不知道如何显示这些信息。我只想显示A和J列。这样的事情。 enter image description here

我要面对的另一个问题是文件号将更改。例如，在这种情况下，有三个文档要显示，但在某些情况下可能只显示一个或三个甚至没有文档。我已经提出了解决此问题的代码，并且如果列表中没有文档，则会显示“没有文档到期”。

有人可以帮我这个忙吗？我并不需要完整的答案，我需要一些有关如何保存所需信息的指南（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

显示弹出消息

1 个答案: