作者：乔山办公网日期：
返回目录：excel表格制作
Sub Find_Fun()
Dim What As String
Dim n As Integer
What = InputBox("请输入查度找问内答容", "查找功能版")
n = 1
Do While n = 1
Set Rng = ActiveSheet.UsedRange.Find(What)
If Rng Is Nothing Then
MsgBox ("没有该值权")
Else
MsgBox "查找值在:"&(Chr(64 + Rng.Column) & Rng.Row)
Rng.Select
n = n + 1
End If
Loop
End Sub
试试以下百代码是否满足你的需度要：问
Sub 查找输入的姓名答()
firData = Application.InputBox("请输入要查找的姓名:")
For Each rng In Range("a:a")
If rng = firData Then rng.Select
Next rng
End Sub
E9=if($C$2="A",sheet2!来F9,if($C$2="B",sheet2!G9,if($C$2="C",sheet2!H9,if($C$2="D",sheet2!I9,sheet2!J9))))
下拉源即可zhidao
你是要用对话框查询的吧
不是很明白你的意思，上个截图吧，我可以帮你写VBE代码