查看: 5476|回复: 11
实现输入关键字，在列表中显示所有带有该关键字的数据
阅读权限10
在线时间 小时
如附件中，我需要在Index工作表中的D12单元格中输入关键字，如“马克杯”，紧接着，在H13、I13、M13就能显示List2中所有带有“马克杯”字样的所有数据，哪位大神能帮忙？
(14.97 KB, 下载次数: 127)
11:21 上传
点击文件名下载附件
阅读权限100
在线时间 小时
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address && &$D$12& Then Exit Sub
Dim Arr, i&, gj$
If Target = && Then Exit Sub
[h13:m500].ClearContents
gj = Target.Value: n = 12
Arr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(Arr)
& & For j = 1 To UBound(Arr, 2)
& && &&&If InStr(Arr(i, j), gj) Then
& && && && &n = n + 1
& && && && &Cells(n, 8) = Arr(i, 1): Cells(n, 9) = Arr(i, 2): Cells(n, 13) = Arr(i, 3)
& && &&&End If
& & Next
Next
End Sub
复制代码
阅读权限100
在线时间 小时
& & & & & & & &
请见附件。
11:48 上传
点击文件名下载附件
22.61 KB, 下载次数: 481
阅读权限20
在线时间 小时
学习了，mark一个
阅读权限70
在线时间 小时
Sub test()
Dim cnn
Set cnn = CreateObject(&ADODB.Connection&)
If [D12] = && Then Exit Sub
[H13:M13].Resize(Rows.Count - 12, 6).ClearContents
cnn.Open &provider=microsoft.ace.oledb.12.0;extended properties='Excel 12.0';data source=& & ThisWorkbook.FullName
[H13].CopyFromRecordset cnn.Execute(&select * from [list2$A:C] where [Description CN] like '%& & [D12] & &%' or [Description EN] like '%& & [D12] & &%'&)
[M13].CopyFromRecordset cnn.Execute(&select [Description CN] from [list2$A:C] where [Description CN] like '%& & [D12] & &%' or [Description EN] like '%& & [D12] & &%'&)
End Sub复制代码
阅读权限10
在线时间 小时
学习了，正需要的功能，感谢分享！
阅读权限95
在线时间 小时
简单的函数公式也可以实现哦。
(25.83 KB, 下载次数: 211)
21:14 上传
点击文件名下载附件
阅读权限10
在线时间 小时
如果设计成按钮代码怎么写？
阅读权限20
在线时间 小时
请见附件。
蓝老板，这个excel是如何生成的。如何查看源代码。我打算扩展下这个，需要搜索后展示的信息更多一点，需要如何操作，麻烦有时间简单指点下，谢谢！
阅读权限100
在线时间 小时
蓝老板，这个excel是如何生成的。如何查看源代码。我打算扩展下这个，需要搜索后展示的信息更多一点，需 ...
不管你要哪个老师指点，都需要你的附件支持。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 7035|回复: 2
[待分类提问]
【求助】如何在工作簿某列查找关键字，把找到包含关键字的行，从此列开始右移一格
新鲜人, 积分 2, 距离下一级还需 8 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
目前有个工作薄，内容如下：
Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G6解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G5解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G3解关联18:48:08
需要根据F列信息做判断条件：
如果G列 = &解关联&，从G列开始整行右移一个单元格。
如果G列 ≠ &解关联&，则维持不变。
期望结果如下：
Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G6解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G5解关联18:48:08Office-AP34:CD:6D:03:41:CC68:DF:DD:11:04:71172.20.40.2432.4G3解关联18:48:08
目前我用了两个宏命令，实现了单行的右移功能，但无法实现查找整列符合条件的单元格，接着右移的功能。
宏命令如下：
Sub rightmove()
' rightmove 宏
& & Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Private Sub Worksheet_Change(ByVal Target As Range)
& &&&If Target.Value = &解关联& And Target.Column = 6 Then
& &&&Call rightmove
& & End If
Sub test()
Call Worksheet_Change(ActiveCell)
执行步骤如下：
1. 先选中单元格 $1F1，
2. 执行宏 &test&,
3. 执行之后，第一行自F列开始内容右移一格，如$1F1移至$1G1,$1F1为空值，结束。
目前结果不符合期望，期望的结果是：
1. 选中工作簿 Sheet2，或者比如 $1A1单元格；
2. 执行宏 &test&，
3. 执行之后，F列，$1F1 - $4F4, 因为内容为&解关联&，则至F列开始均右移一格，变成$1F1 - $4F4 为空值，$1G1 - $4G4为&解关联&。$5F5 - $7F7,因为内容为数字，则保持不变。
麻烦各位社区大侠帮忙查看下代码，指点迷津。拜托拜托，多谢多谢!
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
Sub test()
Dim Rng As Range
With Columns(&F&).Cells
& & Do
& && &&&Set Rng = .Find(&解关联&)
& && &&&If Not Rng Is Nothing Then Rng.Insert xlToRight
& & Loop While Not Rng Is Nothing
End With
End Sub复制代码这个意思吗？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
选中G列，Ctrl+F，查找“解关联”，单击“查找全部”，Ctrl+A，单击鼠标右键，单击“插入”，选择“活动单元格右移”。
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byExcel实例教学,无理论纯实战,更多技巧请访问excel880.com投稿：293粉丝：2594分享--dynmicweibozoneqqbaidu将视频贴到博客或论坛视频地址复制嵌入代码复制微信扫一扫分享收藏0硬币--稍后看马克一下~用手机看转移阵地~用或其他应用扫描二维码手机下视频请使用扫码若未安装客户端，可直接扫此码下载应用看过该视频的还喜欢正在加载...miniOFFExcel怎么筛选每行中含有某关键字的数据？Excel怎么筛选每行中含有某关键字的数据？百度知道知科技百家号1.以下图这个为例，点击数据菜单栏内的筛选。2.在第一行标题栏内，点击标题右侧的三角符——文件筛选——自定义筛选。3.看到自定义筛选界面的显示行下面框内有很多选项供选择。4.选择包含，在后面方框内输入“阳”。5.点击确定，那么就完成了以“阳”为关键字的筛选。（本文内容由百度知道网友茗童贡献）本文由百家号作者上传并发布，百家号仅提供信息发布平台。文章仅代表作者个人观点，不代表百度立场。未经作者许可，不得转载。百度知道知科技百家号最近更新：简介:科技不神秘，知道君告诉你。作者最新文章相关文章