专栏名称: 完美Excel
Excel与VBA技术学习与实践
今天看啥  ›  专栏  ›  完美Excel

VBA技巧:在工作表指定区域标识出含有相同文字的单元格

完美Excel  · 公众号  · Excel  · 2024-07-26 05:29
    

主要观点总结

文章介绍了如何利用Excel的VBA和工作表事件,实现在选择工作表中某单元格时,自动为与所选单元格内容相同或包含其内容的所有单元格添加背景色的功能。

关键观点总结

关键观点1: 功能介绍

文章描述了一个Excel的功能,即在选择工作表中的某个单元格时,可以自动为指定区域内与该单元格内容相同或包含其内容的所有单元格添加背景色。

关键观点2: 实现步骤

文章提供了实现该功能的具体步骤,包括打开VBE,在特定的工作表代码模块中输入SelectionChange事件代码。

关键观点3: 代码解析

文章详细解释了代码的每一部分,包括如何设置背景色、如何判断单元格内容是否匹配等。

关键观点4: 其他信息

文章鼓励读者在评论区留言完善内容,并介绍了知识星球上的Excel社群,供读者进行技术交流和获取更多电子资料。


文章预览

学习Excel技术,关注微信公众号: excelperfect 标签: VBA , 工作表事件 如下图 1 所示,当选择工作表中某单元格时,指定区域中与该单元格内容相同,或者包含该单元格内容的所有单元格都会自动添加背景色。 图 1 实现代码很简单。 打开 VBE ,在左侧工程资源管理器窗口中,双击要设置该效果的工作表代码模块,输入下面的工作表 SelectionChange 事件代码: Private Sub Worksheet_SelectionChange(ByVal rngSel As Range) Dim rngTable As Range Dim Words, myWords, word, x Dim rngCell As Range Set rngTable = [A2:E100]   If  rngSel.Count >  1   Or   Intersect (rngSel, rngTable)  Is   Nothing   Then   End Words = Split (rngSel.Value) For Each rngCell In rngTable rngCell.Interior.ColorIndex = xlNone myWords = Split (rngCell.Value) If UBound(myWords) > -1 Then For Each word In Words        x = Application.Match(word, myWor ………………………………

原文地址:访问原文地址
快照地址: 访问文章快照
总结与预览地址:访问总结与预览