在EXCEL中设置一个查寻功能的宏,怎么写?
不是“查找与替换”,是先在表格中设置一个按钮,点一下会弹出一个查寻窗口,再输入(品名、颜色、数量、区位)其中一个参数,会自动查找到这一行,应该是一个"宏”一样的形式。请问...
不是“查找与替换”,是先在表格中设置一个按钮,点一下会弹出一个查寻窗口,再输入(品名、颜色、数量、区位)其中一个参数,会自动查找到这一行,应该是一个"宏”一样的形式。请问这个宏怎么写?
展开
展开全部
第一步打开菜单中的视图->工具箱->控件工具箱->点击一下工具箱中的命令按钮,然后在你指定的位置按鼠标左键拉一个方框创建一个命令按钮,然后双击该按钮进入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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询