【VBA_选择区域的关键词更改颜色】

复制代码
Private Sub CommandButtonl_Click()
Cells.Font.ColorIndex = 1
End Sub
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, i As Integer
Dim T As String
Dim C As Integer
For Each rng In Selection
T = "河北"
C = 3
i = 1
Do While InStr(i, rng, T) > 0
rng.Characters(InStr(i, rng, T), Len(T)).Font.ColorIndex = C
i = InStr(i, rng, T) + 1
Loop
Next
End Sub

效果

相关推荐
石国旺7 小时前
前端javascript在线生成excel,word模板-通用场景(免费)
前端·javascript·excel
界面开发小八哥11 小时前
DevExpress WinForms中文教程:Data Grid - Excel样式的自定义过滤器对话框
ui·.net·excel·界面控件·winform·devexpress·ui开发
玩泥巴的14 小时前
使用二次封装的Excel COM 组件操作Excel\WPS ET中的区域、行和列
excel·二次开发
阿波罗尼亚15 小时前
Excel Word Pdf 格式转换
pdf·word·excel
揭老师高效办公15 小时前
在Excel和WPS表格中隔一行插入一个空白行
excel·wps表格
凯子坚持 c17 小时前
Claude Code 完整手册:从入门、配置到高级自动化
运维·自动化·excel·claude code
CHENFU_JAVA1 天前
使用EasyExcel实现Excel单元格保护:自由锁定表头和数据行
java·excel
葡萄城技术团队1 天前
借助 LAMBDA 公式,实现单元格区域高效转换
excel
mudtools2 天前
使用二次封装的Excel COM 组件操作Excel\WPS ET中的区域、行和列
excel
揭老师高效办公3 天前
在Excel和WPS表格中拼接同行列对称的不连续数据
excel·wps表格