消息框中的VBA显示集合 - 错误

Question

我试图弹出一个类似的消息,

"There are 3 Reports available . They are Today, Yesterday, Day before"

这是代码,

  On Error Resume Next
  For Each a In MonthYear
     arr.Add a, a
  Next

  For i = 1 To arr.Count
     Cells(i, 1) = arr(i)
  Next


MsgBox ("There are " & arr.Count & " Reports available. They are  " & arr &

但它没有用.它说没有找到sub或argument.

Answer 1

对于阵列,因为看起来OP正在使用一个.既然OP已经编辑了帖子来展示一个集合,这个方法将不起作用.

我会留给未来的读者使用数组选项.

MsgBox "There are " & UBound(arr) + 1 & " Reports available. They are  " & Join(arr,",")