VBA控件怎么添加

步骤如下：

1.选择文本框

2.在窗体上拖动出合适大小

3.选中，修改属性，Multiline为True

4.修改ScrollBars属性为2

5.运行，就可以看到效果了

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

在excel中插入控件的方法如下：

1、点击开发工具选项卡，点击插入按钮，在d出的框中选择要插入的控件

2、点击控件之后，鼠标变成十字形。拖动鼠标绘制控件，绘制完成后，d出指定宏对话框，为此控件的单击事件关联宏。如果已写好需要执行的宏，则在列表框中选择相应的宏点击确定即可。若未写好，可点击新建按钮

3、在d出的Visual Basic编辑器中写好需要执行的代码，关闭编辑器，即可