Excel如何实现关键词查找并标记
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
源码：
Option Explicit
'功能： 关键词查询并标记红色+加粗 ' 作者： E精精
'公众号： Excel办公实战 ' 日期：
20211207
'--------------------------------------------Sub 关键词查询()
Dim rng As Range ' 定义一个单元格变量
Dim idx As Long '科技出现的位置
' 遍历C3： C18这个区域
For Each rng In Range( 'C3:C18' )
idx = InStr(rng.Value, '科技' )
If idx > 0 Then
With rng.Characters(idx, 2 ).Font
▼ 模板-加入交互和容错！
模板下载：
Excel如 何 实 现 关 键 词 查 找 并 标 记
我们通过一个关键词查询案例来掌握一下文本处理函数和循环查询，算是对VBA入门的一个巩 固！
需求： 找出所有含有 ' 科技 ' 的公司，字体 红色 + 加粗 逻辑处理 ： 我们循环查询每一个公司名称，因为要标记，所以我们需要找到开始的位置+2 文字 设置字体的颜色和加粗（这个部分可以通过录制宏修改） ▼ 代码执行效果
.Color = vbRed '设置为红色
.Bold = True ' 字体加粗
End With
End If
Next
End Sub
代码基本都有注释，如果自己使用可以简单修改一下 需要处理的数据区域！
C3:C18
这里我们用到了一种新的循环方式，不同于上次我们讲乘法口诀使用的按次循环，本次是按对 象迭代，区域中的每一个单元格都会本遍历，如果是一个区域，会按照 先行后列 的顺序处理！
看打印结果，依次是 A1->B1->A2->B2！ 字体的处理，我们使用Range.Characters对象，如果你不会写，其实可以通过录制宏，自己设 置一下字体颜色得到，不过录制宏的 代码冗余 很多，自己找到关键地方提取！
新手可以提取以上框起来的核心代码，如果你熟悉，就可以直接自己写了，代码不完全一样， 效果一样的！
如果你还想把这些内容提取出来那么，使用函数比较简单！
当然我们也可以使用代码，直接加一两句即可！ 但是如果你先做的更加友好通用一些，我们就 需要加 亿 点点细节 考虑通用性和容错！ E数，技巧，VBA，可视化图 表，PBI！视频教程、免费模板、精英培训！VLOOKUP系列教程！ 1089篇原创内容 公众号 ▲千篇原创，您的问题，都有答案，只差一个关注 然后就变成这样了，代码模板为什么不太好开发，因为要考虑的东西太多，每一个环节实际都 有可能出现奇奇怪怪的操作，所以……
Option Explicit
'功能： 关键词查询并标记红色+加粗 ' 作者： E精精
'公众号： Excel办公实战 ' 日期：
20211207
'--------------------------------------------Sub 关键词查询()
Dim rng As Range ' 定义一个单元格变量
Dim idx As Long '科技出现的位置
' 遍历C3： C18这个区域
For Each rng In Range( 'C3:C18' )
idx = InStr(rng.Value, '科技' )
If idx > 0 Then
With rng.Characters(idx, 2 ).Font
▼ 模板-加入交互和容错！
模板下载：
Excel如 何 实 现 关 键 词 查 找 并 标 记
我们通过一个关键词查询案例来掌握一下文本处理函数和循环查询，算是对VBA入门的一个巩 固！
需求： 找出所有含有 ' 科技 ' 的公司，字体 红色 + 加粗 逻辑处理 ： 我们循环查询每一个公司名称，因为要标记，所以我们需要找到开始的位置+2 文字 设置字体的颜色和加粗（这个部分可以通过录制宏修改） ▼ 代码执行效果
.Color = vbRed '设置为红色
.Bold = True ' 字体加粗
End With
End If
Next
End Sub
代码基本都有注释，如果自己使用可以简单修改一下 需要处理的数据区域！
C3:C18
这里我们用到了一种新的循环方式，不同于上次我们讲乘法口诀使用的按次循环，本次是按对 象迭代，区域中的每一个单元格都会本遍历，如果是一个区域，会按照 先行后列 的顺序处理！
看打印结果，依次是 A1->B1->A2->B2！ 字体的处理，我们使用Range.Characters对象，如果你不会写，其实可以通过录制宏，自己设 置一下字体颜色得到，不过录制宏的 代码冗余 很多，自己找到关键地方提取！
新手可以提取以上框起来的核心代码，如果你熟悉，就可以直接自己写了，代码不完全一样， 效果一样的！
如果你还想把这些内容提取出来那么，使用函数比较简单！
当然我们也可以使用代码，直接加一两句即可！ 但是如果你先做的更加友好通用一些，我们就 需要加 亿 点点细节 考虑通用性和容错！ E数，技巧，VBA，可视化图 表，PBI！视频教程、免费模板、精英培训！VLOOKUP系列教程！ 1089篇原创内容 公众号 ▲千篇原创，您的问题，都有答案，只差一个关注 然后就变成这样了，代码模板为什么不太好开发，因为要考虑的东西太多，每一个环节实际都 有可能出现奇奇怪怪的操作，所以……