作者:乔山办公网日期:
返回目录:excel表格制作
方法一:
1,打开Excel VBA编辑器最简单的方法莫过于使用快捷键,打开Excel后按Alt+F11便可以打开Excel VBA编辑器了。
方法二:
1,如果记不住快捷键还有一种简zhidao便的方法能够快速打开Excel VBA编辑器,右键单击工作表表情,然后选择查看代码就内可以了。容
2,大家来看一下打开的Excel VBA编辑器,我们此时便可以编辑代码了。
方法三:
1,第三种打开Excel VBA编辑器的方法就是首先显示Excel开发工具,然后点击Visual Basic按钮。
2,此时我们便成功的打开了Excel VBA编辑器,不仅如此我们开可以在Excel开发工具中打开Excel宏。
可以插入一个图形(比如矩形),右键插入的矩形,选择指定宏,选择你有运行的宏
'要在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变量e799bee5baa6e4b893e5b19e363才能搜索
'如 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