FormatConditions和Interior.Color [英] FormatConditions and Interior.Color

问题描述

大家好

我开发了以下代码：

        Dim objFC As FormatCondition
        Set objFC = myCell.FormatConditions.Add(Type:=xlExpression, Formula1:="= " + myCell.Address() + " = """ + Strings.Split(strText, ";")(0) + """")
        objFC.SetFirstPriority
        objFC.StopIfTrue = False
        objFC.Interior.Color = RGB(Val(Mid(strPars(1), 1, 3)), Val(Mid(strPars(1), 4, 3)), Val(Mid(strPars(1), 7, 3)))
        objFC.Font.Color = RGB(Val(Mid(strPars(2), 1, 3)), Val(Mid(strPars(2), 4, 3)), Val(Mid(strPars(2), 7, 3)))

但设置Interior.Color的行发生错误;

but line for Setting Interior.Color occurs an error;

objFC.Interior.Color = RGB(Val(Mid(strPars(1), 1, 3)), Val(Mid(strPars(1), 4, 3)), Val(Mid(strPars(1), 7, 3)))

这是错误：

你知道为什么我不能设置Interior.Color吗？

Do you know why I can not set the Interior.Color?

关心Parisa

推荐答案

strPars的价值是什么 （ 1 ）发生错误时？

这篇关于FormatConditions和Interior.Color的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！