求助用vba写一个条件格式

伶俐的毛豆

求助各位老师：
当A列单元格内为0或者为空或者不是数值这三种情况时，单元格背景色为红色

注意：是用vba设定设定"条件格式",不是for ......if rng=“”  or rng=0 or not isnumice（rng） then rng.Interior.ColorIndex = 3

我想要的是如下这种写法：

Sub 条件格式()
    Dim rng As Range
    Dim condition As FormatCondition  
    Set rng = Range("G24")
    rng.FormatConditions.Delete
    Set condition = rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=NOT(ISNUMBER(" & rng.address(0，0) & "))")
    With condition
        .Interior.Color = RGB(255, 255, 0)
    End With
End Sub



最大的困惑就是不知道Formula1:="=NOT(ISNUMBER(" & rng & "))")这句话，怎么把   等于0或者等于空或者为非数值，写成代码

半百

这样？

半百

伶俐的毛豆

半百 发表于 2023-7-24 23:15

等0或等于空怎么和isnumber合在一起描述呢

伶俐的毛豆

求助各位高手

准提部林

條件//
=ISERROR(0/(A1&"e0"))

0值/空格/空字符/非純數字/錯誤值
+文本日期 "23-2-5"
+文本科學記號 "3e2"

"=ISERROR(0/(" & rng.address & "&""e0""))"

fenghuaxue

楼主实现了吗，在线蹲，我试了下这个

1. Formula1:="=OR(A1=0, A1="""", ISNA(A1))"  

复制代码

。还是不行。

伶俐的毛豆

fenghuaxue 发表于 2023-7-25 13:40
楼主实现了吗，在线蹲，我试了下这个 。还是不行。

按照6楼可以了

伶俐的毛豆

准提部林 发表于 2023-7-25 10:54
條件//
=ISERROR(0/(A1&"e0"))

感谢这位神秘的高手

伶俐的毛豆

准提部林 发表于 2023-7-25 10:54
條件//
=ISERROR(0/(A1&"e0"))

我现在是针对单个单元格，如何针对某个区域呢，我刚才试着该Set rng = Range("G22:H25")这句话，不行，