怎么样在excel表格 中插入vb控件

'要在VB中 *** 作Excel，需要引用Excel对象模型

'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library

'其中，XX.X取决于你安装的Office的版本号

'在你裂哗的显示按钮中加入以下代码。

'注："地址"中加入你的excel文件地址，如"C:\1.XLS"，要肆竖行带双引号

'Sheet1也可以改为你的工作表的名字，要带双引号

Dim excel_App As Excel.Application

Dim excel_Book As Excel.Workbook

Dim excel_sheet As Excel.Worksheet

Dim CarWeight

'启动Excel

Set excel_App = CreateObject("Excel.Application")'引用程序对象实例

'设置Excel为不可见

excel_App.Visible = False

'打开文件

Set excel_Book = excel_App.Workbooks.Open("地址")'工作簿实例

Set excel_sheet = excel_Book.Worksheets("Sheet1")'数据表实例

'这里需要先将你的车号存入valuesearch变量才能搜索

'如 valuesearch = Form1.TextBox1.text

'进行搜索，存入carweight变量

CarWeight = Application.WorksheetFunction.VLookup(valuesearch, Range("C:C"), 2, False)

'然后将CarWeight赋值给你的皮重文本框

'如Form1.TextBox2.Text = CarWeight

'''''''''''''''''''''''''''''''''''

'关纤正闭Excel文件

Set excel_sheet = Nothing

Set excel_Book = Nothing

excel_App.Quit

Set excel_App = Nothing

Excel中含贺镇选择工具栏右键有个VisualBasic的选项，选择后出现一谈粗个录制宏的工具。你可以选择点按钮开始宏录制，然后在拍团Excel中随机点击或者其他 *** 作。按下录制停止键。然后点击VisualBasic编辑器图标，就会看到你刚才录制宏的过程中你对excel的 *** 作的后台程序（VB）。可以直接手动修改程你想实现的功能。

1.首先打开excel，选择功能区的视图-宏-录制宏

2.然后在d出框中填写名称及其说明，便于多个宏时进行区分。点击确定。

3.再次点击视图-宏，选择查看宏

4.选择你刚刚添加的宏，点击编辑，就会进入vb编辑器页面

5.在编辑器中编写你想要的功能，（例如截图中的A列第一行填槐毁并写1，A列第二行填写2），保余伍存并关闭。

6.回到excel界面后，视图-宏-停止录制。这时候宏已经制作完成。

7.和第三布一样，选择视图-宏-查看宏，这时候你刚刚制作完成的宏就显示在第一个，点击执行，就会出现效果（A列第一行填写1，A列第二行填写2）。

完成。

vb的语法请自行搜索，或者留言铅迹学习交流~

---