作者:乔山办公网日期:
返回目录:excel表格制作
启用 宏 的办法,首先在excel中创建一个图形或是copy图标 以供点击 ,然后在它上面 右键 指定宏 进行编辑新建,zhidao然后把这段话粘贴在中间,保存退出即可
Application.SendKeys ("^f")
Function mySearch(str As String)
Dim shet As Worksheet
Dim cel As Range
For Each shet In ThisWorkbook.Worksheets
If myShetSearch(shet, str, cel) Then
shet.Select
cel.Select
Exit Function
End If
Next
msgbox("没有找到数据")
End Function
Function myShetSearch(shet As Worksheet, str As String, cel As Range) As Boolean
On Error GoTo L_end
Set cel = shet.UsedRange.Find(what:=str, LookIn:=xlValues, lookat:=xlPart)
myShetSearch = True
Exit Function
L_end:
myShetSearch = False
Debug.Print Err.Description
End Function
'使用e69da5e6ba90e79fa5e98193330方法
Sub Macro1()
Call mySearch("q")
End Sub
使用局限:从第一个表格开始查找,找到第一个符合条件的单元格,如果后面还有,则找不到
用这个试试,这个代码是调用excel自带的查找对话框
画一个按钮把下面的代码复制粘贴
Sub 矩形1_单击()
Application.SendKeys ("^f")
End Sub
求采纳为满意回答。