如何使用vba以excel用户形式添加动态控件

问题描述

我有一个用户表单提问者，其中有多个标签，组合框和文本框。我正在寻找一个代码，该代码根据我遇到的问题数量来创建标签，组合框和文本框的数量。问题编号将根据情况而变化。我尝试使用预先创建的控件创建用户窗体，然后根据可用问题隐藏其他控件。有什么想法吗？

    Private Sub CommandButton1_Click()
    Dim selrage As Range
    Set selrage = Range(RefEdit1.Text)
    selrage.copy
    Sheets("Sheet3").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Dim n As Integer
    ThisWorkbook.Activate
    Sheets("Sheet3").Select
    Range("C1").Select
    If ActiveCell.Offset(1,0).Value = "" Then Exit Sub
       Range("C2").Select
       For n = 1 To 11
        If ActiveCell.Value = "" Then Exit Sub
        Me.Controls("Label" & n).Visible = True
        Me.Controls("Label" & n).Caption = ActiveCell.Value
        Me.Controls("Label" & n).Left = 6
        Me.Controls("Text" & n).Visible = True
        Me.Controls("Text" & n).Left = 246
        ActiveCell.Offset(1,0).Select
        Next
        End Sub


         Private Sub UserForm_Initialize()
           Dim n As Integer
            For n = 1 To 11
            Me.Controls("Text" & n).Visible = False
            Me.Controls("Label" & n).Visible = False
            Next
            RefEdit1.Text = "Select the questions,please!"
            End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

controls userform