Question

在EXCEL中设置一个查寻功能的宏，怎么写？

不是“查找与替换”,是先在表格中设置一个按钮，点一下会弹出一个查寻窗口，再输入（品名、颜色、数量、区位）其中一个参数，会自动查找到这一行，应该是一个"宏”一样的形式。请问这个宏怎么写？

Answer 1

第一铅侍步打开菜单中的视图->工具箱->控件工具箱->点击一下工具箱中的命令按钮,然后在你指定的位置按鼠标左键拉槐吵吵一个方框创建一个命令按钮,然后双击该按钮进入碰圆VBA编辑模式,再把下面的代码里分隔线之间的代码粘贴进去,再回到工作表,点击 控件工具箱中的退出设计模式.再点击该按钮就可以运行这个宏了

Private Sub CommandButton1_Click()
'-------------分割线----------
Dim Rng As Range, AA As String
Dim Irng As Range
endcol = [iv1].End(xlToLeft).Column
endrow = Range("B65536").End(xlUp).Row

Set Irng = Range(Cells(1, 1), Cells(endrow, endcol))
AA = InputBox("请输入要查找的内容:")
If AA <> "" Then
Set Rng = Irng.Find(AA, LookAt:=xlPart)
If Not Rng Is Nothing Then Rng.Select Else MsgBox "没找含有指定内容的单元格!"
End If
,---------分割线---------
End Sub