189 8069 5689
Excel程序关闭了，表格当然随之关闭。
创新互联-专业网站定制、快速模板网站建设、高性价比洮北网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式洮北网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖洮北地区。费用合理售后完善，10年实体公司更值得信赖。
先打印，在关闭xlapp。
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. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。
直接去重放到COMBOBOX里，这个我要看看，好久以前用过，不知道放那里了，有点忘了。
如果做到辅助列，先给这一列去重，再放到COMBOBOX里。
Dim r As Integer
Dim arr As Variant
r = Sheets("控件二").Cells(65536, 1).End(xlUp).Row
arr = Sheets("控件二").Range("A1:H" r)
ComboBox1.List = arr
试试这个，去重的我再找找。
用宏功能啊，然后把宏代码（vb6.0）转化为Vb.net代码，有一个关键问题，就是VBA中的枚举类型在Vb.net中不适用，比如.End(xlUp)更改为.End(3)就能运行，另外vb.net中运行Excel对象不一定在点后会出现智能提示（即使你引用后也一样）你只要确定有该方法或者属性，直接写就是了，生成或者调试都是可以通过的
出错那句改成：
TextBox1.Text = .Range(.Cells(1, 1))，.cells(1, 1).ToString
试试。
Dim myExcel As New Excel.Application '定义进程
Dim WorkBook As Excel.Workbook '定义工作簿
Dim Sheet As Excel.Worksheet '定义工作表
'操作
myExcel.Visible = False '不显示excel 程序
WorkBook = myExcel.Workbooks.Add() '
Sheet = WorkBook.Sheets(1) '获得第1个工作表的控制句柄
Sheet.Cells(1, 3) = "好人一生幸福" i '对指定单元格赋值(读信息当然也没问题了)Sheet.Cells(1, 3)