永发信息网

excel中,点选左边表格,则在右侧表格搜索相同数值并标黄

答案:3  悬赏:40  手机版
解决时间 2021-03-24 19:43
excel中,点选左边表格,则在右侧表格搜索相同数值并标黄
最佳答案
你所说的表格1表格2是在同一表格中的两个区域还是两个表互查?如果是前都,那就只要用Worksheet_SelectionChange事件
如果是前者,代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range, ran As Range
Set rng1 = Range("B2:F10")
Set rng2 = Range("H2:L10")
Cells.Interior.ColorIndex = 0
If Not Application.Intersect(Target, rng1) Is Nothing And Target.Count = 1 Then
Target.Interior.ColorIndex = 6
For Each ran In rng2
If ran = Target Then ran.Interior.ColorIndex = 6
Next
End If
If Not Application.Intersect(Target, rng2) Is Nothing And Target.Count = 1 Then
Target.Interior.ColorIndex = 6
For Each ran In rng1
If ran = Target Then ran.Interior.ColorIndex = 6
Next
End If
End Sub
程序中的两个区域,你可根据需要修改追问经测试,可实现上述功能
全部回答
使用程序可以吗

好容易抽时间做出来了,结果有人已经做好了。就当联系了。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
2015第95期彩双色球开奖结果
将直角梯形以上底为轴旋转一圈可以得到一个立
如何分离白光936焊台的面板和主板
刀剑1绿武怎么获得?什么属性是极品?双刀属
问题: 在没有PLC300硬件的情况下,力控是否
在农村废弃地上建房,该房属于什么性质
自定义VFP工具栏?
做RT-PCR需要提取多少总RNA?我准备做给一份组
254:4的比值是多少
为什么海南有些村叫什么市呢?比如海南省澄迈
金银花葵的功效和作用
一梦十年,往事如烟什么意思
平安金管家问律师要收费吗
过年换显卡,换个r488或1066,还要加些什么么
有关于社区银行的一些疑问
推荐资讯
历史上死得最冤的人是谁?
我显卡是不是坏了?
小作文"吃了辣椒,辣得受不了"写出细节描写,10
中国有俄罗斯族吗?
歌词里有句爱难断,恨难断,相处太难。。是什么
凤凰众筹为什么每个项目的收益都不太相同呢?
我想知道能最快减肥的方法
城关镇妇幼保健计划生育服务站我想知道这个在
在公司的一张价格表单上看到月结30天是什么意
G.NA꺼져 줄게 3
第一种:打开cmd,切换到Chorme的安装目录,
11年起亚k2~1.6排量二手车多少钱
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?