在Excel2013表格内用VBA实现表格内内容查找
2016-01-31 10:40:26 | 来源:新浪微博 | 投稿:兰藻 | 编辑:dations
原标题:在Excel2013表格内用VBA实现表格内内容查找
在单张表格内,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已去除密码)
赏
相关:
李某今年48岁,从18岁起他就在社会上混,靠行骗为生。他曾先后因诈骗判刑6次,刑满释放后,李某依
黄子韬,90后演员、歌手,EXO前成员。继吴亦凡、鹿晗之后于去年4月份正式宣布与韩国SM公司解约,并于6月
由浙江卫视与盛唐时空联合出品的大型原创连续剧悬念式户外真人秀《二十四小时》正在热播,而《二
太极推手是太极拳的检验阶段,同时也修炼到了太极拳的至高境界。太极拳教程对太极推手有详细的讲
随着猴年春晚播出进入倒计时,关于春晚的消息一波接着一波。著名表演艺术家六小龄童1月26日在微博上晒出
人类最睿智的时候就是在洗澡的时候2015 年度最令人心疼的尴尬场面,多国政要上榜 | 告别 20152015 年度银幕
什么是人格缺陷呢,在我们生活中患有人格缺陷的人还是比较多的,或
1月25日晚,陈赫在微博中写道:“今天才知道土鳖是一种昆虫。”并用演员梁天的照片为自己的微博
1月25日晚,陈赫在微博中写道:“今天才知道土鳖是一种昆虫。”并用演员梁天的照片为自己的微
本文为投稿文章,作者:没故事的卓同学内容来自stack overflow的一个回答:ReactiveCocoa vs RxSwift ̵