Объект databar (Excel)
Представляет правило условного форматирования панели данных. Применение панели данных к диапазону позволяет увидеть значение ячейки относительно других ячеек.
Все объекты условного форматирования содержатся в объекте коллекции FormatConditions , который является дочерним объектом коллекции Range . Правило форматирования панели данных можно создать с помощью методов Add или AddDatabar коллекции FormatConditions .
Свойства MinPoint и MaxPoint объекта Databar используются для задания значений кратчайшего и самого длинного диапазона данных. Эти свойства возвращают объект ConditionValue , с помощью которого можно указать способ оценки пороговых значений.
Объект Databar также предоставляет свойства, позволяющие указать линию оси, отображаемую при наличии отрицательных значений, а также указать цвет и форматирование гистограмм.
В следующем примере создается диапазон данных, а затем к диапазону применяется панель данных. Вы заметите, что из-за крайне низкого и высокого значения в диапазоне средние значения имеют гистограммы одинаковой длины. Чтобы опровергать средние значения, пример кода использует объект ConditionValue , чтобы изменить способ вычисления порогов до процентилей.
Sub CreateDatabarCF()
Dim cfDatabar As Databar
' Create a range of data with a couple of extreme values
With ActiveSheet
.Range("D1") = 1
.Range("D2") = 45
.Range("D3") = 50
.Range("D2:D3").AutoFill Destination:=Range("D2:D8")
.Range("D9") = 500
End With
Range("D1:D9").Select
' Create a data bar with default behavior
Set cfDatabar = Selection.FormatConditions.AddDatabar
MsgBox "Because of the extreme values, middle data bars are very similar"
' The MinPoint and MaxPoint properties return a ConditionValue object
' which you can use to change threshold parameters
cfDatabar.MinPoint.Modify newtype:=xlConditionValuePercentile, _
newvalue:=5
cfDatabar.MaxPoint.Modify newtype:=xlConditionValuePercentile, _
newvalue:=75
End Sub
- Application
- AppliesTo
- AxisColor
- AxisPosition
- BarBorder
- BarColor
- BarFillType
- Creator
- Direction
- Formula
- MaxPoint
- MinPoint
- NegativeBarFormat
- Parent
- PercentMax
- PercentMin
- Priority
- PTCondition
- ScopeType
- ShowValue
- StopIfTrue
- Type
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.