时间戳

首页 > 解决方案 > 基于值长度的格式条件

excel - 基于值长度的格式条件

问题描述

如果单元格包含长度大于 1 的值，如何使用 VBA 格式化单元格？

（此规则应适用于范围内的所有单元格）

Set text_value = Range("$A:$A").FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="=--LEN($A1)>1")

   With text_value
    .Interior.Color = vbRed
    .Borders.LineStyle = xlContinuous
   End With

这是我尝试过的，但不起作用！

标签： excelvba

解决方案

将类型更改为 xlExpression，因为您使用公式作为标准，它会起作用。

Set text_value = Range("$A:$A").FormatConditions.Add(Type:=xlExpression, Operator:=xlEqual, Formula1:="=LEN($A1)>1")

   With text_value
    .Interior.Color = vbRed
    .Borders.LineStyle = xlContinuous
   End With

推荐阅读