批量创建按钮 下标越界，请老师帮忙看下

合肥好汉

Private Sub Cmb创建_Click()
Dim str, XM As String

    Dim RS7 As Recordset
    Dim DB7 As Database
    Set DB7 = OpenDatabase(ThisWorkbook.Path & "\" & "资料库.MDB")
    Set RS7 = DB7.OpenRecordset(Name:="员工资料", Type:=dbOpenDynaset)
    With RS7
        For n = 1 To 4
            .FindFirst "ID=" & n
            If Not .NoMatch Then
                XM = .Fields("姓名").Value
                If n = 1 Then
                    str = XM
                Else
                    str = str & "," & XM
                End If
            End If
        Next
    End With
    RS7.Close
    Set RS7 = Nothing
    Set DB7 = Nothing

crr = Array(str)                        ？？？？请问这里我的str 要怎么写，感谢各位老师

For i = 0 To 3
    Set mycmd(i).com = Controls.Add("Forms.CommandButton.1", crr(i), True)               下标越界
    With mycmd(i).com
        .Left = (i + 1) * 50
        .Top = 20
        .Width = 40
        .Height = 30
        .Caption = crr(i)
    End With
Next

End Sub



类

Public WithEvents com As MSForms.CommandButton

Public Sub com_Click()
myname = com.Caption '此处获得按钮名称
MsgBox "已生成控件" & myname
'可以根据不同myname，继续你的代码
End Sub

活在理想的世界

窗体上创建控件有这么麻烦吗？类似的代码我也写过，也就几句而已啊。

合肥好汉

活在理想的世界 发表于 2018-7-14 19:52
窗体上创建控件有这么麻烦吗？类似的代码我也写过，也就几句而已啊。

菜鸟新入，你懂得，麻烦看下，要怎么写

活在理想的世界

合肥好汉 发表于 2018-7-14 19:58
菜鸟新入，你懂得，麻烦看下，要怎么写

不知道为什么附件传不上来了，自己新建一个工作簿，自己画一个空白窗体，然后在Sheet1的A列写一下按钮的名称，运行下面的代码

1. Private Sub UserForm_Activate()
   
2. Dim arr(): arr = Sheet1.Range("a1").CurrentRegion
   
3. Dim c As CommandButton
   
4. For i = 1 To UBound(arr)
   
5.     Set c = Me.Controls.Add("Forms.CommandButton.1", i)
   
6.     c.Left = 30: c.Top = i * 35: c.Width = 60: c.Height = 30: c.Caption = arr(i, 1)
   
7. Next
   
8. End Sub
   

复制代码

活在理想的世界

合肥好汉 发表于 2018-7-14 19:58
菜鸟新入，你懂得，麻烦看下，要怎么写

1. Private Sub UserForm_Activate()
   
2. Dim arr(): arr = Sheet1.Range("a1").CurrentRegion
   
3. Dim c As CommandButton
   
4. For i = 1 To UBound(arr)
   
5.     Set c = Me.Controls.Add("Forms.CommandButton.1", i)
   
6.     c.Left = 30: c.Top = i * 35: c.Width = 60: c.Height = 30: c.Caption = arr(i, 1)
   
7. Next
   
8. End Sub
   

复制代码

合肥好汉

活在理想的世界 发表于 2018-7-14 20:16

谢谢，谢谢。稍微改动下，完美执行