如何解决如何使用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 举报,一经查实,本站将立刻删除。