我们举例说明:当选中某一个单元格内容后执行 宏程序,效果:本表内所有与选中单元格内容相同的单元格背景都被统一标注为某个颜色,例如草绿色。详情看效果示例。
我们会发现这个里边有好多都是重复的。在功能区选择开发工具选项卡
进入后我们鼠标下移到最左边
单击后弹出一个新的对话框
我们在左边对话框中选择SHEETS1,双击进入,将以下代码复制进去:Private Sub Worksheet_SelectionChange(ByVal T As Range)Dim Rg As Range, SumRg As RangeIf T.Value = "" Then Exit SubSet Rg = Range("A1").CurrentRegion.Find(T, Lookat:=xlWhole)MyAddress = Rg.AddressDoSet Rg = Range("A1").CurrentRegion.FindNext(Rg)k = k + 1If k = 1 ThenSet SumRg = RgElseSet SumRg = Application.Union(SumRg, Rg)End IfLoop While Rg.Address MyAddressApplication.EnableEvents = FalseSumRg.SelectRange("A1").CurrentRegion.Interior.ColorIndex = xlNoneSumRg.Interior.ColorIndex = 5Application.EnableEvents = TrueEnd Sub
保存后,返货工作表,我们会发现,不管单击那个单元格,只要这个工作表里有相同字符的,都标注出来了
动画过程展示: