将多个消息框值添加到 vba 中的单个消息框 [英] adding multiple messgeboxes values to single messagebox in vba

问题描述

我有这个代码，我可以在每个外循环结束时显示消息.我想在假设数组或类似结构的一些列表中捕获所有这些消息，然后最后想将这些消息中的每一条显示到一个 msgbox 中.如果有人可以帮助我，我将不胜感激.谢谢.

I have this code with me where i can display the message when every outer loop ends. I want to catch all these messages in suppose array or soome list like structure and then at the end want to display each of these messages into one msgbox. Would appreciate if someone could help me. Thanks.

For Each objNavFolder In objNavGroup.NavigationFolders
    SkippedItemCounter = 0
    If oItems.Count = 0 Then
        MsgBox "No Appointments items in " & objNavFolder.DisplayName & "'s folder"
    Else
        NextRow = NextRow + 1
        For Each MyItem In oItems
             If MyItem = "" Then
                 SkippedItemCounter = SkippedItemCounter + 1
             End If
             'some code here
        Next 
        Set objExpl = _colExpl.Add(objFolder, olFolderDisplayNormal)
        NextRow = NextRow - 1
    End If
    MsgBox "No. of items= "&SkippedItemCounter&"skipped from"&objNavFolder.DisplayName&""
Next 
End If
End If
End If

推荐答案

不要调用 msgboxes，而是创建一个 String 并继续添加消息 - 在代码末尾 msgbox(yourString)

instead of calling msgboxes, create a String and keep adding the messages - at the end of code msgbox(yourString)

例如在主子之前声明一个字符串

for example decalare a string before the main sub

Dim yourFinalMessage As String ' or Dim yourFinalMessage$

代替

MsgBox "No Appointments items in " & objNavFolder.DisplayName & "'s folder"

说

yourFinalMessage = yourFinalMessage & vbCrLf & & _ 
             "No Appointments items in " & objNavFolder.DisplayName & "'s folder"

继续这样做直到循环结束.

keep doing this until the loop ends.

在循环结束时说

msgbox YourFinalMessage 

这篇关于将多个消息框值添加到 vba 中的单个消息框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！