请帮忙修改一下代码，非常感谢。

半百

马小呆 发表于 2023-2-10 10:52
太感谢了。

追问一下，如果不定参数呢？楼上说的ParamArray Arr() As Variant，怎么使用呢？

不会呢

马小呆

半百 发表于 2023-2-10 10:55
不会呢

我在论坛里找了点资料后，貌似可以获取全部数据，不知道怎么继续往下用。
帮忙看看呗




Sub MsgboxAA2()
    Call MYCONCATE(请注意0000, _
                  "请注意1111", _
                  "请注意2222", _
                  "请注意3333", _
                  "请注意4444", _
                  "请注意5555", _
                  "请注意6666")
End Sub

Function MYCONCATE(ParamArray Args() As Variant) As String
Dim iArg As Variant
Dim tempStr As String

    For Each iArg In Args
        If Not IsArray(iArg) Then
            tempStr = tempStr & CStr(iArg) & ","
        End If
    Next
MsgBox tempStr
End Function

半百

马小呆 发表于 2023-2-10 12:37
我在论坛里找了点资料后，貌似可以获取全部数据，不知道怎么继续往下用。
帮忙看看呗

套到例子里的吧应该是这样吧。

马小呆

半百 发表于 2023-2-10 10:55
不会呢

帅哥，帮个忙看一下窗体动态添加TextBox后，类模块错误提示；方法和数据成员未找到

caiyu93

可以可以，我就说了一句，自己能整出来，不错！动手能力很强

马小呆

caiyu93 发表于 2023-2-10 16:01
可以可以，我就说了一句，自己能整出来，不错！动手能力很强

帮助的人都要感谢。大侠再帮忙看一下楼上类模块的错误提示好么

半百

马小呆 发表于 2023-2-10 15:25
帅哥，帮个忙看一下窗体动态添加TextBox后，类模块错误提示；方法和数据成员未找到

caiyu93

代码不是你这么玩的。。兄弟，你跟谁学的，能写不代表写的东西别人能看上一眼，跟写的东西看着逻辑舒不舒适有关。如果你写的东西确实漂亮，但有问题，我可以指出来。。但你写的逻辑让人匪夷所思，没人这么玩的。。学习入口q群223198032