Question

我正在尝试编写一个VBA脚本，为一个范围添加databar条件格式。我已经编写了下面的代码，但是，我不知道如何更改databar的颜色，并提供不同的界限。

奇怪的是，当我将minpoint设置为0时，它可以工作，但是我无法将maxpoint设置为命名变量（设置为integer类型）。我哪里错了？

Set bar = rangeTest.FormatConditions.AddDatabar

'assign max value + 1 for databar upper bound
maxValue = Application.WorksheetFunction.Max(rangeTest) + 1

With bar
    .BarFillType = xlDataBarFillSolid
    .BarColor = RGB(189, 215, 238) 'error thrown here (Object doesn't support this property)
End With

With rangeTest.FormatConditions(1)
    .MinPoint.Modify newtype:=0  'xlConditionValueAutomaticMin
    .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax 'error thrown here (invalid procedure call)
End With

Answer 1

你必须使用：

由Color属性

FormatColor

BarColor

xlConditionValueNumber newvalue Modify() ConditionValue MaxPoint} With bar .BarFillType = xlDataBarFillSolid .BarColor.Color = RGB(189, 215, 238) End With With rangeTest.FormatConditions(1) .MinPoint.Modify newtype:=0 'xlConditionValueAutomaticMin .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=maxValue End With} {{}}} {{}}} {{}}

所以你的代码是：

SparkR

格式化数据条对象

1 个答案: