在单张表格内，Excel2013用Ctrl+F可以实现表格查找功能。同样用VBA代码也可以实现类似功能并选中相应查询结果。代码如下：--------Sub 查找本页内容() '===保护表1的编号搜索过程代码 Dim x$, rg As Range, rg1 As Range, rga As Range 'rg1为找到的首个单元格,rga为全部结果 x = Application.InputBox("请输入查询关键字", "查询窗口") With Columns("A:M") '选择要查询表格的范围，此处为A:M Set rg = .Find(What:=x, LookIn:=xlValues, LookAt:=xlPart) If Not rg Is Nothing Then rg.Activate Set rg1 = rg Set rga = rg Do rg.Activate Set rg = .FindNext(After:=ActiveCell) If rg.Address = rg1.Address Then Exit Do Set rga = Application.Union(rga, rg) Loop End If End With If Not rga Is Nothing Then' MsgBox "恭喜，已找到你想要的记录！", vbOKOnly, "查询提示" '原设定找到有提示，此处没必要，注释掉 rga.Select '如果找到则选定 Else MsgBox "未能找到你想要的记录！请重新输入关键字", vbOKOnly, "查询提示" End IfEnd Sub--------　　.可以添加按钮关联到宏命令，直接点击按钮即可弹出查找对话框，输入关键词进行查找。
　　注：　　原始代码来源，有修改：华宇 提取自文件：Login-Innovate v4a.0.xls / VBA实例48权限多用户登陆系统(admin)(VBA已去除密码)

赏

上一篇  下一篇

I 相关 / Other

张家港男子行骗日记内容 被捕时日记成铁证

李某今年48岁，从18岁起他就在社会上混，靠行骗为生。他曾先后因诈骗判刑6次，刑满释放后，李某依

父亲谈黄子韬内容曝光 曝黄子韬离开SM公司内幕

黄子韬，90后演员、歌手，EXO前成员。继吴亦凡、鹿晗之后于去年4月份正式宣布与韩国SM公司解约，并于6月

二十四小时综艺第四站精彩内容剧透 韩庚护照丢失

由浙江卫视与盛唐时空联合出品的大型原创连续剧悬念式户外真人秀《二十四小时》正在热播，而《二

太极推手预告片 太极拳推手运动有哪些内容

　　太极推手是太极拳的检验阶段，同时也修炼到了太极拳的至高境界。太极拳教程对太极推手有详细的讲

春晚六小龄童节目内容曝光 春晚导演微博被爆

随着猴年春晚播出进入倒计时，关于春晚的消息一波接着一波。著名表演艺术家六小龄童1月26日在微博上晒出