Прочитать на английском

Поделиться через


Объект 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

Методы

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.