如何解决如何在FormatConditions.Add方法的xlExpression中使用LEFT函数?
我想在一个基于LEFT(cell,1)值的范围内设置条件格式。在此范围内,其值为“ 1A”,如果第一个字符LEFT()等于1,我想将其涂成红色。我的代码不执行任何操作。我该如何实现?
我的代码
Sub ConditionalFormatting()
Dim condition1 As FormatCondition,condition2 As FormatCondition
Dim tbl As ListObject
Set tbl = ThisWorkbook.Worksheets("Overview").ListObjects("Column_Overview")
Dim tblLastColumn As Integer
tblLastColumn = tbl.Range.Columns.Count
'Fixing/Setting the range on which conditional formatting is to be desired
Dim rng As Range
Set rng = tbl.ListColumns(8).DataBodyRange.Resize(,tblLastColumn - 7)
'Defining and setting the criteria for each conditional format
Set condition1 = rng.FormatConditions.Add(Left(xlCellValue,1),xlEqual,"=1")
Set condition2 = rng.FormatConditions.Add(xlCellValue,xlLess,"=50")
'Defining and setting the format to be applied for each condition
With condition1
.Font.Color = vbRed
.Font.Bold = True
End With
解决方法
请尝试这种方式:
Sub testFormatCondLeft()
Dim condition1 As FormatCondition
Dim condition1 As FormatCondition,rng As Range
'your existing code...
Set rng = tbl.ListColumns(8).DataBodyRange.Resize(,tblLastColumn - 7)
With rng
.FormatConditions.Delete
Set condition1 = .FormatConditions.Add(Type:=xlExpression,Formula1:="=Left(" & .cells(1).Address(0,0) & ",1)=""1""")
End With
With condition1
.Font.Color = vbRed
.Font.Bold = True
End With
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。