excel如何添加VBA代码?

1、在excel中可以添加VBA代码，通过打开“开发工具”，点击打开VB编辑器，进入VBA编写代码。

1开发工具

2VB编辑器

3选择工作，双击

4在代码窗中输入代码

2、VBA，Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。

不建议你这样 *** 作，正确做法应该是创建一份exel.xlsm文件，编写代码去控制其他文件，至于表格不同代码不同，那就多设置判断条件好了。

此外，就我了解，vba搞不定通过代码写代码吧。就算可以，按你要求实现不同表格不同代码还不如按上述第一步方便了。

解决办法倒也有：①创建一份已有需插入代码的excel.xlsm文件作为模板；②另创建一份excel1.xlsm文件用于执行，写入代买，目的是打开需插入代码的文件，将该文件内所有sheet复制到模板内，再将模板进行另存为即可，dir遍历循环以上步骤。

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

---