189 8069 5689
1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。
成都创新互联自2013年创立以来，先为石阡等服务建站，石阡等地企业，进行企业商务咨询服务。为石阡企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
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. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。
用FORMULA
1
,一个开源框架；里面有个JBook可以取到EXCEL中的数据；然后你在根据JBook将数据存到数据库
答案补充
导入的时候打开一个JFileChooser用来让用户选择要读的excel文件；然后JBook
WorkBook
=
new
JBook();WorkBook.read(fileName,
new
ReadParams(JBook.eFileExcel97));WorkBook.setSheet(0);WorkBook.setSelection(0,
0,
0,
0);这就将excel中的数据读入JBook中了，int
EndRow
=
WorkBook.getLastRow();//
总行数int
EndCol
=
WorkBook.getLastCol();//
总列数WorkBook.getNumber(row,col);
或者getText(row,col)活的excel中的数据；将这些数据从JBOOK提取出来，然后自己封装成自己需要的类型，再存到数据库就行了；说起来好像挺繁琐的，做做试试；去网上下个FORMULA
1
的jar包我现在是在java的CS模式下用的；
因为Excel表的左上角的单元格都是以第一行第一列
MsgBox(LBound(arr, 1)) '一维最小下标
MsgBox(LBound(arr, 2)) '二维最小下标
测试：用上面函数（LBound）得到的结果都是1