VBA 动态添加控件

vb和vba还是有区别的，尽管他们的语法大致相同。

1应该是控件编号，如果是手动画控件，第一个的编号默认为1

至于为添加的控件添加代码，百度有很多

’将程式码复制到Module中,然後执行 GetOption程序

Sub 察念GetOption()

Dim TempForm 'As VBComponent

Dim NewOptionButton As MSForms.OptionButton

Dim LeftPos As Integer

Dim X As Integer, i As Integer, TopPos As Integer

' 隐藏VBE视窗预防萤幕更新

Application.VBE.MainWindow.Visible = False

' 动态新增UserForm

Set TempForm = ActiveWorkbook.VBProject.VBComponents.Add(3)

' 新增 OptionButtons

LeftPos = 4

k = 1

TopPos = 5

For i = 1 To 3

LeftPos = 4

For j = 1 To 败销困10

'动态新增OptionButton控件

Set NewOptionButton = _

TempForm.Designer.Controls.Add("forms.OptionButton.1")

With NewOptionButton

.Width = 60

.Caption = k & "℃"

.Height = 15

.Left = LeftPos

.Top = TopPos

.Tag = k & "℃"

.AutoSize = True

End With

LeftPos = LeftPos + 30

k = k + 1

Next j

TopPos = i * 20 + 5

Next i

'【写入Click 事件】

For i = 1 To 30

With TempForm.CodeModule

X = .CountOfLines

.InsertLines X + 1, "Private Sub OptionButton" & i & "_Click()"

.InsertLines X + 2, " Cells(8, 8) = Me.ActiveControl.Tag"

.InsertLines X + 3, "End Sub"

End With

Next i

With TempForm

.Properties("Caption") = "温度选项"

.Properties("Width") = LeftPos + 20

.Properties("Height") = TopPos + 20

.Properties("Left") = 160

.Properties("Top") = 150

End With

'显示窗体

VBA.UserForms.Add(TempForm.Name).Show

'关闭後一橱窗体

ActiveWorkbook.VBProject.VBComponents.Remove VBComponent:=TempForm

End 斗扒Sub

1.数据做好，瞎芦在旁边增加一列辅助列，并输入如图公式。

2.公式下拉，报表数据有多少行，就拉到多少行。

3.工具栏－开发工具－插入－组合框。

4.在工作表中画出控件，右击控件，设置控件格式。

5.如图设睁神宏置，先把报表的各类名称依次排列下来。

6.选中辅助列数据－插入图表－三悉册维柱形图。

7.右击选中控件－单击按住控件移到图表内，再进行图表美化，就成了。