重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1.新建一张表格,在表格中导入学生的成绩表,如图所示,将建立一个按钮,通过它来实现查找。
成都创新互联始终坚持【策划先行,效果至上】的经营理念,通过多达十载累计超上千家客户的网站建设总结了一套系统有效的营销解决方案,现已广泛运用于各行各业的客户,其中包括:成都纱窗等企业,备受客户赞美。
2.单击菜单栏中的“开发工具”——插入——表单控件——按钮,在出现的十字箭头上拖住画出一个按钮,如图所示。
3.在弹出的查找红对话框中选择“录制”,在弹出的“录制新宏”对话框中,修改宏名称为“查找”,单击确定。
4. 单击“开发工具”——查看代码,打开VBA编辑器,如图所示。
5.现在输入代码:
Sub 查找()
Dim jieguo As String, p As String, q As String
Dim c As Range
jieguo = Application.InputBox(prompt:="请输入要查找的值:", Title:="查找", Type:=2)
If jieguo = "False" Or jieguo = "" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveSheet.Cells
Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)
If Not c Is Nothing Then
p = c.Address
Do
c.Interior.ColorIndex = 4
q = q c.Address vbCrLf
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address p
End If
End With
MsgBox "查找数据在以下单元格中:" vbCrLf vbCrLf _
q, vbInformation + vbOKOnly, "查找结果"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
6.现在回到EXCEL表格,右击按钮,选择“编辑文字”,修改按钮名称为“查找按钮”。
7. 现在单击查找按钮,出现对话框“请输入要查找的值”,在方框中输入“男”,单击确定,出现对话框“查找数据在一下单元格中”,单击确定,对应单元格就变成了亮色。
vb.net是变成语言哦~用于写程序的,最后生成的文件的扩展名是.exe。程序的作用不限于计算数字等,还能实现其他复杂的功能,比如实现网络通信等等,和vb.net语言属于一类的还有c语言,c++,c#,java,python等等语言。
而excel函数仅用于计算公式,他不是一种语言,只能在excel文件中写,只能用excel运行。一旦脱离excel(比如你电脑没装excel)那你学的excel函数就完全不起作用了。excel文件最后生成的文件的扩展名是.xlsx(2010版)。
介于两者之间的是vba。就是写excel里面的“宏”的语言。难度高于excel函数,低于vb.net。你从vba开始学的话,可以两头都了解一点。
在项目中添加Excel类库的引用,然后在VB中定义Excel 的Application,WorkBook和Worksheet
然后对Worksheet中的Range进行操作,不用像Access那样建立ADO什么的连接。
比如
Dim exlApp as Excel.Application = Createobject("Excel.Application")
if exlApp is Nothing then exit sub
dim xBook as Excel.WorkBook=exlApp.Workbook.add
if xBook is Nothing then exit sub
dim xSheet as excel.WorkSheet =xbook.WorkSheet.Add
if xSheet is Nothing Then exit sub
with xSheet
.Range("A1").value="Excel Application Test"
.Range("B1" ":D2").Merge
.Range("B1" ":D2").Value="合并表格内容"
end with
你可以试试连接是否正确。
我的是2007版本,其它类似
1.在工程中引用Microsoft Excel 12.0 Object Library
2、在通用对象的声明过程中定义EXCEL对象:
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作VB.NET EXCEL常用命令:
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
还有很多,这个要自己慢慢摸索