Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6033|回复: 11

[已解决]请教如何在两组数据中找出相同数据并且标记出来 - 急求助

[复制链接]
发表于 2015-5-25 04:46 | 显示全部楼层 |阅读模式
本帖最后由 lokisandra 于 2015-5-25 13:34 编辑

你好,请大家帮帮忙。我自己搜索资料找到如何输出相同的数据 ,但是如下的这个如何解决?

如何检查一个数值是否在两组 数据中同时出现

在两列数据中以查找的方式,比如,输入 一个名字,如果在 两列同时出现,则在那两个单元格分别标志出来 (如字体变成红色),并消息提示 “找到”;

如果输入的名字没有同时出现、或者只有在一组 数据出现的话,则提示 “无 匹配”。

并且要如果输入了数字或者其它字符,则有错误提示。

并且 允许新的查询时,上一次的被标志的数据 还原。

需要用vba的方法,弹出对话框 输入 需要查找的 名字。
谢谢。附件如下。



最佳答案
2015-5-25 13:08
  1. Sub 查询()
  2.     Dim a As Range, b As Range
  3.     x = InputBox("请输入要查找的名称")
  4.     If Len(x) = 0 Then MsgBox "请重新输入"
  5.     Range("a:b").Interior.ColorIndex = 0
  6.     Set a = Range("a:a").Find(x, lookat:=xlWhole)
  7.     Set b = Range("b:b").Find(x, lookat:=xlWhole)
  8.     If Not a Is Nothing And Not b Is Nothing Then
  9.         a.Interior.ColorIndex = 3
  10.         b.Interior.ColorIndex = 3
  11.         MsgBox "找到"
  12.     Else
  13.         MsgBox "无匹配"
  14.     End If
  15. End Sub
复制代码

找出相同数据.zip

6.59 KB, 下载次数: 20

发表于 2015-5-25 06:16 | 显示全部楼层
D2单元格输入想查询的关键词。

找出相同数据.rar

7.77 KB, 下载次数: 39

回复

使用道具 举报

 楼主| 发表于 2015-5-25 09:02 | 显示全部楼层
baksy 发表于 2015-5-25 06:16
D2单元格输入想查询的关键词。

太棒了。谢谢。

能用对话框和Msgbox的方式来做吗?
回复

使用道具 举报

发表于 2015-5-25 10:31 | 显示全部楼层
baksy 发表于 2015-5-25 06:16
D2单元格输入想查询的关键词。

老师  有问题请教 可否留个邮箱   我的邮箱xuping921@163.com  在线等你   急急急


回复

使用道具 举报

 楼主| 发表于 2015-5-25 11:08 | 显示全部楼层
有人能帮忙解答一下吗? 用InputBox 和 Msgbox的 。谢谢
回复

使用道具 举报

 楼主| 发表于 2015-5-25 12:52 | 显示全部楼层
有人能帮忙不?
回复

使用道具 举报

发表于 2015-5-25 13:08 | 显示全部楼层    本楼为最佳答案   
  1. Sub 查询()
  2.     Dim a As Range, b As Range
  3.     x = InputBox("请输入要查找的名称")
  4.     If Len(x) = 0 Then MsgBox "请重新输入"
  5.     Range("a:b").Interior.ColorIndex = 0
  6.     Set a = Range("a:a").Find(x, lookat:=xlWhole)
  7.     Set b = Range("b:b").Find(x, lookat:=xlWhole)
  8.     If Not a Is Nothing And Not b Is Nothing Then
  9.         a.Interior.ColorIndex = 3
  10.         b.Interior.ColorIndex = 3
  11.         MsgBox "找到"
  12.     Else
  13.         MsgBox "无匹配"
  14.     End If
  15. End Sub
复制代码

找出相同数据.rar

8.97 KB, 下载次数: 26

回复

使用道具 举报

 楼主| 发表于 2015-5-25 13:19 | 显示全部楼层
grf1973 发表于 2015-5-25 13:08

谢谢。

但是如果输入框是空白,先提示“请输入”之后,会把空白处标志出来,并且提示 “找到”。这个应该如何解决?
回复

使用道具 举报

发表于 2015-5-25 13:27 | 显示全部楼层
第4行加一句退出程序就行: If Len(x) = 0 Then MsgBox "请重新输入": Exit Sub
回复

使用道具 举报

 楼主| 发表于 2015-5-25 13:39 | 显示全部楼层
grf1973 发表于 2015-5-25 13:27
第4行加一句退出程序就行: If Len(x) = 0 Then MsgBox "请重新输入": Exit Sub

非常感谢。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 05:30 , Processed in 0.691239 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表