Excel 如何用vb实现整个工作薄查找功能

给你：

你运行试一试，

for i=1 to sheetscount

Sheets(i)[A:A]Find(What:="3512", After:=ActiveCell, LookIn:=xlFormula

Sub test()

Dim Str$, rng As Range

Str = ApplicationInputBox("请输入查找内容：", "请输入查找内容", , , , , , 2)

If Len(Str) = 0 Then Exit Sub

For Each sht In Sheets

shtSelect

Set rng = CellsFind(Str, , , 1)

If Not rng Is Nothing Then

rngSelect

End If

Next sht

MsgBox "数据所在的工作表名称为： “" & ActiveSheetName & "”，单元格地址为：“" & ActiveCellAddress & "”。"

End Sub

dim rangFound as Excelrange

set rangFound=xlsheetRange("A1:Z999")Find(Text1Text)

do until rangFound is nothing

x = rangFoundRow '查到的行号

y = rangFoundCells '查到的单元格内容

z = xlsheetCells(x, 5) '指定单元格内容

Text2Text = "任务ID" & "(" & z & ")" & vbCrLf & "任务名称=" & y & Text2Text

'上面的代码让人看不懂，我只是照抄

set rangFound=xlsheetRange("A1:Z999")FindNext()

loop

1新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。

 2单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

3在d出的查找红对话框中选择“录制”，在d出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

4 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

5现在输入代码：

Sub 查找()

  Dim jieguo As String, p As String, q As String

  Dim c As Range

  jieguo = ApplicationInputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

  If jieguo = "False" Or jieguo = "" Then Exit Sub

  ApplicationScreenUpdating = False

  ApplicationDisplayAlerts = False

  With ActiveSheetCells

      Set c = Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

      If Not c Is Nothing Then

          p = cAddress

          Do

              cInteriorColorIndex = 4

              q = q & cAddress & vbCrLf

              Set c = FindNext(c)

          Loop While Not c Is Nothing And cAddress <> p

      End If

End With

MsgBox "查找数据在以下单元格中：" & vbCrLf & vbCrLf _

      & q, vbInformation + vbOKOnly, "查找结果"

    ApplicationScreenUpdating = True

    ApplicationDisplayAlerts = True

End Sub

6现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

7 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

'首先要在VB中 引用 EXCEL

'在FORM 中 绘制 textbox ×2 commandbutton × 1

'先打开 EXCEL 第一列输入 查询字段 第二列 输入 结果内容

'先点击COMMAND1 连接EXCEL

'在TEXT1中 输入查询字段 点击COMMAND2 TEXT2中显示结果

'在VB6 EXCEL 2003测试通过

'如有疑问 请留言

Option Explicit

Dim I, J, K, L As Long

Dim ROW_COUNT, COL_COUNT As Long

Dim EXCEL_APP As ExcelApplication '声明EXCEL对象

Private Sub Command1_Click()

Set EXCEL_APP = GetObject(, "ExcelApplication") '连接EXCEL

End Sub

Private Sub Command2_Click()

ROW_COUNT = EXCEL_APPActiveSheetUsedRangeRowsCount '查询有多少行数据被使用，以获得最小的查询范围

EXCEL_APPActiveCellOffset(1 - EXCEL_APPActiveCellRow, 1 - EXCEL_APPActiveCellColumn)Select '定位于 左上角

Text2Text = ""

For I = 1 To ROW_COUNT

If EXCEL_APPCells(I, 1)Value = Text1Text Then

Text2Text = EXCEL_APPCells(I, 2)Value

I = 100 + ROW_COUNT

End If

Next I

End Sub

以上就是关于Excel 如何用vb实现整个工作薄查找功能全部的内容，包括:Excel 如何用vb实现整个工作薄查找功能、VB 查找 EXCEL的问题、vb.net如何与excel建立连接，并从里面查询并读取数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！