当前位置: 首页> 科技> 互联网 > ExcelVBA运用Excel的【条件格式】(三)

ExcelVBA运用Excel的【条件格式】(三)

时间:2025/7/11 15:02:28来源:https://blog.csdn.net/fsyuheduo/article/details/140260904 浏览次数:0次
ExcelVBA运用Excel的【条件格式】(三)

前面知识点回顾

1. 访问 FormatConditions 集合

     Range.FormatConditions

2. 添加条件格式

     FormatConditions.Add 方法

语法

表达式。添加 (类型、 运算符、 Expression1、 Expression2)

其中 TextOperator:=***,是可以拓展的

3. 修改或删除条件格式

4. 清除所有条件格式

几个参数:

Type:=***,String:=***,TextOperator:=***

XlContainsOperator 枚举

名称           Description

xlBeginsWith 以指定的值开始。

xlContains 包含指定的值。

xlDoesNotContain 不包含指定的值。

xlEndsWith以指定的值结束


今天继续完成其他的样式,和大家一起学习

acfd827f053b85cfa732d288370443e0.png

====效果1====

fd889144116b126180642984d8fe92a3.png

====代码1====

Sub HighlightCellsContainingText开头文字()Dim ws As WorksheetDim searchText As StringDim cell As Range' 设置工作表Set ws = ActiveSheet' 设置要搜索的文本searchText = "开头"' 清除之前的条件格式ws.Cells.FormatConditions.Delete' 添加新的条件格式With ws.UsedRange.Cells.FormatConditions.Add(Type:=xlTextString, String:=searchText, TextOperator:=xlBeginsWith).Interior.Color = RGB(10, 255, 0) '设置为xx背景.StopIfTrue = FalseEnd WithMsgBox "‘开头’为" & searchText & "' 的单元格已被高亮显示。", vbInformation
End Sub

====效果2====

077ed143536ef2981bb92bbb10d44aee.png

====代码2====

Sub 条件格式_包含【青】字的单元格()Dim ws As WorksheetDim searchText As StringDim cell As Range' 设置工作表Set ws = ActiveSheet' 设置要搜索的文本searchText = "青"' 清除之前的条件格式ws.Cells.FormatConditions.Delete' 添加新的条件格式With ws.UsedRange.Cells.FormatConditions.Add(Type:=xlTextString, String:=searchText, TextOperator:=xlContains).Interior.Color = RGB(10, 255, 0) '设置为xx背景.StopIfTrue = FalseEnd WithMsgBox "条件格式_包含【青】字的单元 的单元格已被高亮显示。", vbInformation
End Sub

====效果3====

128f08da31d5dd4778f1c17d97222091.png

====代码3====

Sub 条件格式_不包含【青】字的单元格()Dim ws As WorksheetDim searchText As StringDim cell As Range' 设置工作表Set ws = ActiveSheet' 设置要搜索的文本searchText = "青"' 清除之前的条件格式ws.Cells.FormatConditions.Delete' 添加新的条件格式With ws.UsedRange.Cells.FormatConditions.Add(Type:=xlTextString, String:=searchText, TextOperator:=xlDoesNotContain).Interior.Color = RGB(10, 255, 0) '设置为xx背景.StopIfTrue = FalseEnd WithMsgBox "条件格式_不包含【青】字的单元格 的单元格已被高亮显示。", vbInformation
End Sub

====效果4====

984d5e1436e0485aa0a9198b61387eb2.png

====代码4====

Sub 条件格式_以文字【记】结尾的单元格()Dim ws As WorksheetDim searchText As StringDim cell As Range' 设置工作表Set ws = ActiveSheet' 设置要搜索的文本searchText = "记"' 清除之前的条件格式ws.Cells.FormatConditions.Delete' 添加新的条件格式With ws.UsedRange.Cells.FormatConditions.Add(Type:=xlTextString, String:=searchText, TextOperator:=xlEndsWith).Interior.Color = RGB(10, 255, 0) '设置为xx背景.StopIfTrue = FalseEnd WithMsgBox "条件格式_以文字【记】结尾的单元格 的单元格已被高亮显示。", vbInformation
End Sub

=若你有收获,请分享给朋友免费学习=

53155a8b5815e7c8d7ee7c3f5e71ab99.jpeg

关键字:ExcelVBA运用Excel的【条件格式】(三)

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com

责任编辑: