Question

VB 返回Excel中的查找值

我有一个Excel文件，里面含两列数据，我想用VB做一个查找程序，例如有两个text 一个command 在text1中输入一个数，点击按钮 在text2中返回 根据text1.text 查找出来的 Excel中的这个值对应的第二列的值。

Answer 1

我用的textbox,你也可以改成你的那种控件,这个是返回在一个工作簿中的每个工作表中找到的第一个,如果要返回所有找到的,也可以修改.希望可以帮到你.我测试是OK的.
Private Sub CommandButton2_Click()
on error resume next '防止你要输入的a这个表未打开时报错.
Application.ScreenUpdating = False
Dim a As String
Dim b As String
Dim sh As Worksheet
a = TextBox1.Text　'可以改成你的Text1.text
b = TextBox2.Text　'可以改成你的Text2.text
Str1 = "*" & b & "*"
For Each sh In Workbooks(a & ".xls").Worksheets
For Each c In sh.Cells
If c.Value Like Str1 Then '如果要查相等的用c.value=b
x = c.Row
y = c.Column
MsgBox "工作表:" & sh.Name & vbNewLine & "x = " & x & ", y = " & y
Exit For
End If
DoEvents
Next
Next
Application.ScreenUpdating = True
End Sub

追问

我表格的位置为“F:\01.xlsx”，不会写代码，能具体一点么，谢谢