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

发布网友发布时间：2022-04-24 06:35

共1个回答

热心网友时间：2022-06-17 00: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