关于弹窗显示的问题，谢谢帮助。

幸运方格

当前弹窗后是以上效果，想得到以下效果。




这是附件，感谢帮助。

笑着...两年过去

1. Sub 测试()
   
2. arr = Split("开始- ◣1 ◣2 ◣3 ◣4 ◣5 ◣6 ◣7 ◣8 ◣9 ◣10 ◣11 ◣12 ◣13 ◣14 ◣15 -结束", " ")
   
3. Call Msgbox(arr)
   
4. End Sub
   
5. Function Msgbox(arr)
   
6. Set MyUserform = ThisWorkbook.VBProject.VBComponents.Add(3)
   
7.     With MyUserform
   
8.         .Properties("Width") = 700
   
9.         .Properties("Height") = 500
   
10.     End With
    
11.         For i = 0 To UBound(arr)
    
12.            Set New信息 = MyUserform.Designer.Controls.Add("Forms.Label.1", "My信息" & i, True)
    
13.             With New信息
    
14.                 .Left = 6
    
15.                 .Top = 30 + i * 20
    
16.                 .Width = 700
    
17.                 .Height = 12
    
18.                 .Font.Size = 12
    
19.                 .Caption = Trim(arr(i))
    
20.             End With
    
21.         Next
    
22. VBA.UserForms.Add(MyUserform.Name).Show
    
23. ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=MyUserform
    
24. End Function

复制代码

stonelee2018

加换行符就行了

幸运方格

笑着...两年过去 发表于 2023-7-21 10:17

感谢帮助，有两个问题请问一下

1、这两个有什么区别吗？
Function Msgbox(ParamArray arr() As Variant)
Function Msgbox(arr)


2、上面的用不了，下面的可以用。

Sub 测试()
Call Msgbox("测试")
End Sub

这样用不了

Sub 测试()

arr = Split("测试", "")
Call Msgbox(arr)

End Sub
这样就可以用