在text1中输入英文wjbfc，找到excel中对应wjbfc的行，再输出该行第5列的内容返回到text2
有酬谢联系方式271811406
假蔽埋设你的数据保存在sheet1。在窗体设计页面做一个textbox1和textbox2控件，再加一个Button1按钮，双击按钮，输入以下代码：
Private Sub CommandButton1_Click()
Call TextBox2_Change
End Sub
Private Sub TextBox2_Change()
i = TextBox1.Value
Set searchvalue = Sheets("sheet1").Cells.Find(i)
If searchvalue Is Nothing Then
Exit Sub
End If
Sheets("sheet1").Cells.Find(i).Activate
j = ActiveCell.Column
k = ActiveCell.Row
TextBox2.Value = Sheets("sheet1"颂袭).Cells(k, j + 4).Value
End Sub
-------
以上代码如果textbox1输入内容在sheet1中没有找到，那不会有任何反应。
要是能用多给两野并兄分哈，：）
Private Sub CommandButton1_Click()
Dim i, j
If Range("a1:c1000").Find(TextBox1) Is Nothing Then
TextBox2 = "找腊乱不到"
Else
i = Range("a1:c1000").Find(TextBox1).Row
j = Range("山兆a1:c1000").Find(TextBox1).Column
TextBox2 = Cells(i, j + 逗局租4)
End If
End Sub