在EXCEL中设置一个查寻功能的宏，怎么写？
不是“查找与替换”,是先在表格中设置一个按钮，点一下会弹出一个查寻窗口，再输入（品名、颜色、数量、区位）其中一个参数，会自动查找到这一行，应该是一个"宏”一样的形式。请问这个宏怎么写？
第1个回答 推荐于2017-11-28
第一步打开菜单中的视图->工具箱->控件工具箱->点击一下工具箱中的命令按钮,然后在你指定的位置按鼠标左键拉一个方框创建一个命令按钮,然后双击该按钮进入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本回答被网友采纳
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本回答被网友采纳
相似回答
