怎么样在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

方法1

在excel宏中作一个窗体设置showmodal为false，加上两个按钮，按钮代码如上，不知道符合你的要求吗

加入vb工具栏（在excel上部菜单下边点击右键在visual besic前打勾）然后点击vb工具栏上的控件按钮（一个小锤子和一个小叉子）在页面上添加两个按钮，按钮按钮上添加如上代码，如果想在改变单元格大小时按钮大小也随着变化可以在workbook的open事件中加入一个循环

do while 1

doevents '这 个要有，否则就什么都干不了了

commandbutton1.with=reng（“a1").whith

commandbutton1.high=reng（“a1").high

loop

Private Sub CommandButton1_Click()

a = ThisWorkbook.ActiveSheet.Index

If a >1 Then

Sheets.Item(a - 1).Select

End If

End Sub

Private Sub CommandButton2_Click()

a = ThisWorkbook.ActiveSheet.Index

If a <ThisWorkbook.Sheets.Count Then

Sheets.Item(a + 1).Select

End If

End Sub

代替F9的功能的写法：

Option Explicit

Private Sub CommandButton1_Click()

goCompute

End Sub

Sub goCompute()

'这里写的你的计算逻辑

End Sub

---