Заливка таблиц в vba word - Word и Excel - помощь в работе с программами

I have a Word document which contains several tables. I would like to be able to select the table (or a cell in the table) and have every row in the table be colored in alternating colors. So far, I have created the following code:

Sub ColorTable()
    '
    ' ColorTable Macro
    ' Alternately colors cells.
    '
    Selection.Collapse Direction:=wdCollapseStart
    If Not Selection.Information(wdWithInTable) Then
          MsgBox "Can only run this within a table"
          Exit Sub
    End If
    Dim RowCount, i, count, ColCount As Integer
    RowCount = ActiveDocument.Tables(1).Rows.count
    i = 0
    ColCount = ActiveDocument.Tables(1).Columns.count
    For i = 1 To RowCount
        For count = 1 To ColCount
            Selection.Shading.BackgroundPatternColor = RGB(184, 204, 228)
            'light
            Selection.MoveRight Unit:=wdCharacter, count:=1
        Next count
        Selection.MoveDown Unit:=wdLine, count:=1
        For count = 1 To ColCount
            Selection.Shading.BackgroundPatternColor = RGB(219, 229, 241)
            'dark
            Selection.MoveRight Unit:=wdCharacter, count:=1
        Next count
    Next i
End Sub

The Macro runs without errors, but changes the cell colors in a diagonal pattern. I’m guessing that the problem lies within my for loops.

asked Jul 28, 2012 at 20:58

With tblNew
  For i = 1 To .Rows.Count Step 2
    .Rows(i).Shading.Texture = wdTexture10Percent
       ' or
    .Rows(i).Shading.BackgroundPatternColor = RGB(219, 229, 241)
  Next
End With

answered Jan 13, 2017 at 19:52

After several months of not thinking about this problem, I found the answer.

Sub colorTable()
Dim rowCount As Integer
Dim colCount As Integer
Dim count As Integer
Dim row, col As Integer


Selection.Collapse Direction:=wdCollapseStart
If Not Selection.Information(wdWithInTable) Then
    MsgBox "Can only be run from a table"
    Exit Sub
End If

rowCount = Selection.Tables(1).Rows.count - 1
colCount = Selection.Tables(1).Columns.count
row = 0
col = 0

While row < rowCount
   count = 1
     While col < colCount
        Selection.Shading.BackgroundPatternColor = RGB(182, 204, 228)
        If count < colCount Then
            Selection.MoveRight unit:=wdCell, count:=1
            count = count + 1
        End If
        col = col + 1
    Wend
    col = 0
    If row = rowCount - 1 And rowCount Mod 2 = 1 Then
        Exit Sub
    End If

    'dark
        Selection.MoveRight unit:=wdCell, count:=1
        count = 1
        'For Each oCOl In Selection.Tables(1).Columns
        While col < colCount
            Selection.Shading.BackgroundPatternColor = RGB(219, 229, 241)
            If count < colCount Then
                Selection.MoveRight unit:=wdCell, count:=1
                count = count + 1
            End If
            col = col + 1
        Wend
        row = row + 2
        If row < rowCount Then
            Selection.MoveRight unit:=wdCell, count:=1
        End If
        col = 0
Wend
End Sub

This probably isn’t the best method, I just kind of kludged it together, but it works.
I hope it helps somebody!

answered Jun 28, 2014 at 18:10

ale10anderale10ander

9425 gold badges26 silver badges42 bronze badges

I haven’t tested it yet, but i think you get the main idea

Sub ColorTable()
    Dim RowCount as Integer,s as String, row as Integer, ColCount As Integer
    RowCount = ActiveDocument.Tables(1).Rows.count
    ColCount = ActiveDocument.Tables(1).Columns.count
    For row = 1 To RowCount
        s=replace(Cell(row,1).Address,"$","")
        s=s & ":" & replace(Cell(row,ColCount).Address,"$","")
        Range(s).Shading.BackgroundPatternColor = iif(row mod 2 =0,RGB(184, 204, 228),RGB(219, 229, 241))
        Next count
    Next row
End Sub

answered Jul 29, 2012 at 16:32

Uri GorenUri Goren

13.1k6 gold badges56 silver badges108 bronze badges

Источник

Во вложенном файле есть 2 ситуации:
Особенность в том, что Свойства — Таблица — Параметры — Поля ячеек по умолчанию — Верхнее и нижнее по 0,1 см.
Таблица 1 — заливка применена с помощью макросов:

Visual Basic

Sub m_1()
With Selection.Cells.Shading
    .Texture = wdTextureNone
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorBlue
End With
End Sub
Sub m_2()
With Selection.Cells.Shading
    .Texture = wdTextureNone
    .ForegroundPatternColor = wdColorAutomatic
    .BackgroundPatternColor = wdColorRed
End With
End Sub

Пояснение. Выделяем всю таблицу и применяем макрос m_1. Затем выделяем первый столбец и применяем макрос m_2.

Таблица 2: делаем то же самое, но только через интерфейс: выделяем всю таблицу — Формат — Границы и заливка — Заливка — Синий — Применить к ячейке — Окей.
Затем выделяем первый столбец — Формат — Границы и заливка — Красный — Применить к ячейке — Окей.

Результаты можно посмотреть, распечатав данный документ в виртуальном принтере (doPDV — бесплатный принтер, или др. принтер, например, PDF).

У кого и какие есть соображения, почему такие косяки?
Нужно применять заливку с помощью макросов — чтобы было быстрее.

Источник

Добрый день.
Не могу разораться как сформулировать VBA запрос в Excel для заливки ячейки в таблице Word (Граница и заливка -> Заливка).
VBA скрипт работает с заливкой фона текста в таблице Word.
Заранее благодарен за любую помощь.

[vba]

Код

Sub Word_start()

Dim sOM As String, sDocNum As String
Dim WordApp As Object
Dim sNumber As String, Shp As Shape
Dim Gabar_sxema As String
Dim Perem_dan As Range

‘Подключение к Word документу
sOM = «C:UsersadminDesktopтаблица выделения.docx»

    ‘Проверка наличия документа Word и запуск если нет ошибок
    On Error Resume Next
    Set WordApp = GetObject(, «word.application»)
    If WordApp Is Nothing Then
        Set WordApp = CreateObject(«word.application»)
    End If
    On Error GoTo 0
    With WordApp
        .Visible = True
        .Documents.Open Filename:=sOM
    End With

‘Получение данных из Excel
xlog_G = Range(«log_G»).Value ‘Группа

‘присвоить переменномо для выбора в таблице
Gabar_sxema = xlog_G

‘присвоение sNumber значения из массива
sNumber = Split(Gabar_sxema)(0)

‘выбор элемента для отрытиял боков элементов
Select Case sNumber

                            Case «1»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca1»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «2»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca2»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «3»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca3»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «4»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca4»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «5»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca5»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «6»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca6»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «7»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca7»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «8»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca8»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «9»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca9»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «10»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca10»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «11»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca11»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «12»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca12»).Range.Font.Shading.BackgroundPatternColor = -738132071
                Case «13»: WordApp.ActiveDocument.Bookmarks(«FunEst_tabl_osadca13»).Range.Font.Shading.BackgroundPatternColor = -738132071

End Select

Set WordApp = Nothing

End Sub

[/vba]

Источник

I am trying to set up a new table at the end of my document and format it to my specifications. But the backgroundcolor and the textcolor do not seem to work. The Font size also is not exactly what I want, since it applies to the whole table and not only one cell.

This is what I have so far:

Dim myRange As Object
Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=2
With .Tables(.Tables.Count)
    .Cell(1, 1).Select
    With Selection
        .Shading.Texture = wdTextureNone
        .Shading.ForegroundPatternColor = wdColorWhite
        .Shading.BackgroundPatternColor = wdColorGray25
        .Font.Size = 14
        .Font.Bold = True
        .Text = "Hello World"
    End With
End With

I want the first row of the table without borders and with font 14, bold, white text on gray background.

asked Aug 14, 2015 at 12:36

KazschuriKazschuri

5601 gold badge4 silver badges18 bronze badges

I found the Answer.

The solution is as follows:

With .Tables(.Tables.Count)        
    With .Cell(1, 1)
        .Shading.BackgroundPatternColor = wdColorGray50
        With .Range
            With .Font 
                .TextColor = wdColorWhite
                .Size = 18
                .Bold = True
            End With
            .Text = "Hello World"
        End With
    End With            
End With

I removed the selection of the cell and used it directly. But the real thing was, the use of .Range when applying .Font and .Text

ak112358

7032 gold badges13 silver badges25 bronze badges

answered Aug 18, 2015 at 7:24

KazschuriKazschuri

5601 gold badge4 silver badges18 bronze badges

Источник

Коллекция
Tables.
Форматирование
таблицы.
Строки
и столбцы.
Ячейки.
Вычисления.

1.Коллекция Tables.

Таблица представляет собой
упорядоченную структуру, предназначенную для хранения организованных в виде
строк и столбцов наборов данных. Элемент таблицы, находящийся на пересечении
строки и столбца, называется ячейкой.

Таблица Word
имеет такую же структуру, как и электронная таблица Excel
– элемент таблицы, находящийся на пересечении строки и столбца, называется
ячейкой и идентифицируется по имени столбца и номеру строки.

В VBA для доступа к таблицам
используется объект Tables, являющийся семейством
объектов Table, каждый из которых связан с конкретной
таблицей. Для получения ссылки на семейство Tables
можно использовать свойство Tables объекта Document.

Общее число таблиц, имеющихся в
документе, содержится в свойстве Count. Для
получения доступа к конкретной таблице можно использовать метод Item, который является методом по умолчанию.

Синтаксис:

Set oblTable=objDocument.Tables.Item(Key)

Параметр Key,
является уникальным идентификатором каждой таблицы, хранящейся в объекте Tables.

Для создания новой таблицы
используется метод Add объекта Tables. Этот метод возвращает ссылку на созданную таблицу(Table).

objTables.Add (Range, NumRows,
NumColums)

Параметр Range
позволяет указать область документа, куда будет вставлена таблица. Если
параметр не пустой, т.е. имеется выделенная область, то она будет заменена
вставляемой таблицей.

Параметры NumRows,
NumColums позволяют указать на число строк и
столбцов таблицы.

Пример: создадим таблицу в
выделенном месте или там где стоит курсор.

2.Форматирование таблицы.

После создания таблицы ее можно
отформатировать нужным образом: добавить заливку, изменить формат границ,
изменить стиль и т.д.

В приложении Word
входит ряд готовых профессиональных шаблонов для форматирования таблиц, которые
позволяют значительно сэкономить время оформления таблицы.

Для их применения используется метод
AutoFormat.

objTable.AutoFormat(Format, [ApplyBorders,
ApplyShading, ApplyFont, ApplyColor, ApplyHeadingRows, ApplyLastRow, ApplyFirstColumn, ApplyLastColumn, AutoFit])

Параметр Format
содержит один из допустимых форматов. Список всех имеющихся форматов и
результат их применения можно увидеть в списке Стили таблицы окна диалога Автоформат таблицы (таблица®автоформат).

Параметр ApplyBorders
указывает, должны ли использоваться границы, установленные по умолчанию для
данного формата. Если True(значение по умолчанию), то
текущие границы будут заменены границами, предусмотренными в применяемом
автоформате.

Параметр ApplyShading
указывает, должна ли использоваться заливка. Если True
(значение по умолчанию), то для таблицы будет установлена заливка в
соответствии со значением, предусмотренном в
применяемом автоформате.

Параметр ApplyFont
указывает, должен ли изменятся шрифт таблицы. Если True, то для текста в таблице будет применен шрифт, предусмотренный
в применяемом автоформате.

Параметр ApplyColor
указывает на необходимость использования цветового оформления цветового
оформления таблицы. По умолчанию имеет значение True.

Параметр ApplyHeadingRows
указывает на необходимость изменения формата заголовков столбцов (первой строки
таблицы). По умолчанию имеет значение True.

Параметр ApplyLastRow
указывает на необходимость изменения формата последней строки таблицы. По
умолчанию имеет значение False, означающее, что
особый формат к последней строке не применяется.

Параметр ApplyFirstColumn
указывает на необходимость изменение формата первого столбца таблицы. По
умолчанию имеет значение True.

Параметр ApplyLastColumn
указывает на необходимость изменение формата последнего столбца таблицы. По умолчанию
имеет значение False, означающее, что особый формат к
последнему столбцу не применяется.

Параметр AutoFit
указывает на автоматический подбор ширины столбцов в зависимости от размещаемых
в них данных. По умолчанию имеет значение True.

Пример: применяем автоформат Классический2 к таблице, расположенной первой от начала
активного документа.

ActiveDocument.Tables(1).AutoFormat
Format:=WdTableFormat.wdTableFormatClassic2

Тип
используемого пользовательского форматирования содержится в свойстве AutoFormatType. Свойство возвращает одно из значений
типа wdTableFormat.

Для форматирования границ таблицы
используется свойство Borders, которое
возвращает ссылку на объект типа Вorders,
связанный с границами данной таблицы.

Синтаксис:

objTable.Borders

Пример: назначение первой таблице
в документе оформление границ.

With ActiveDocument.Tables(1).Borders

.OutsideLineStyle = wdLineStyleSingle внешние границы

.OutsideLineWidth =
wdLineWidth100pt

.InsideLineStyle = wdLineStyleSingle внутренние границы

.InsideLineWidth =
wdLineWidth300pt

End With

3.Строки и столбцы.

Таблица состоит из набора строк и
столбцов. Строки содержатся в семействе Rows, возвращаемое свойством Rows, а
столбцы – в семействе Columns, возврщаемое
свойством Columns.

Определенная строка или столбец связаны с объектами типа Row или Column. Доступ к конкретной строке или столбцу
осуществляется с помощью метода Item,
являющегося для объектов Rows и Columns методом
по умолчанию.

Индексация столбцов и строк
начинается с единицы. Индекс «единица» получает первая сверху строка и крайний
левый столбец. Индекс последней строки и столбца можно получить с помощью
свойства Count, которое возвращает количество
членов в коллекции.

Пример: выпадающее окно с
сообщением о количестве столбцов в таблице 1.

MsgBox ActiveDocument.Tables(1).Columns.Count

Для получения ссылок на первую
или последнюю строку (столбец) можно использовать свойства First и Last.

Для добавления в таблицу новых
строк (столбцов) используется метод Add.

Синтаксис:

ObjTable.Rows.Add (Before)

Параметр Before
– указывает, перед какой строкой будет вставлена строка. Если параметр опущен,
то строка добавляется в конец таблицы.

Пример:

Set tabv = ActiveDocument.Tables(1).Rows.Add(beforerow:=ActiveDocument.Tables(1).Rows(1))

Чтобы установить высоту строки,
используется метод SetHeight.

Синтаксис:

objRow.SetHeight(RowHeight, HeightRule)

параметр RowHeight
указывает на новую высоту строки в пунктах.

Параметр HeightRule
– указывает на способ изменения высоты:

WdRowHeightAtLeast
– размер, указанный в параметре RowHeigh, является
минимальным.

WdRowHeightAuto
— размер, указанный в параметре RowHeigh ,является
точным.

WdRowHeightExactly
– автоматический подбор высоты строк (параметр RowHeigh
игнорируется).

Получить информацию о текущей
ширине строки и правиле ее изменения можно с помощью свойств Height и HeightRule.

Синтаксис:

objRow.
Height [=Height]

Параметр Height
(тип Single) позволяет задать необходимую высоту
строки в пунктах.

Синтаксис:

objRow.
HeightRule[=Rule]

Параметр Rule
указывает на правило изменения ширины ячейки:

• wdRowHeightAtLeast
— минимальная ширина, которая может быть назначена строке, указывается в
свойстве Height;

• wdRowHeightExactly
— ширина строки должна быть точно равна значению, указанному в свойстве Height;

• wdRowHeightAuto —
ширина строки подбирается автоматически в зависимости от размера используемого
шрифта или размера вставок.

Чтобы установить одинаковую
высоту всех строк, необходимо использовать метод DistributeHeight
объекта Rows.

objRows.
DistributeHeight

Для украшения текста документа
часто используются прием создания отступа между левой границы ячейки и текстом.
Этот прием часто применяют при создании таблиц на web-страницах. Для создания
отступа в ячейках таблицы можно использовать свойство SpaceBetweenColumns.
При использовании этого свойства в объекте Rows
выполняется добавление отступа во все ячейки таблицы, а при использовании в Row — только для ячеек данной строки.

Синтаксис

objRows.SpaceBetweenColumns[ = Space]

Параметр Space
(тип Single) позволяет указать на ширину отступа
в пунктах. Значение, передаваемое параметром Space,
не может быть меньше 0 и больше ширины ячейки.

В приведенном ниже примере
показан код, позволяющий создать в первой строке первой таблицы активного
документа отступ, равный 36 пунктам.

Пример

With ActiveDocument.Tables(l)

.Rows(l).SpaceBetweenColumns = InchesToPoints(0.5)

End With

Чтобы установить ширину столбца и
правило ее изменения применяется метод SetWidth.
Этот метод используется как в объекте типа Columns,
так и объекте типа Column. Если используется метод
объекта Columns, то изменения ширины касаются всех
столбцов, а если метод объекта Column— то только
данного столбца.

оbjColumns.SetWidth(ColumnWidth, RulerStyle)

Параметр ColumnWidth
(тип Single) указывает на новую ширину столбца в
точках, а параметр RulerStyle (тип WdRulerStyle) — на способ изменения ширины. Параметр RulerStyle может принимать следующие
значения:

• wdAdjustNone (значение по умолчанию) — ширина столбца
соответствует указанному значению. Изменение ширины столбца выполняется за
счет смещения левой или правой границы таблицы (столбца).

• wdAdjustSameWidth —
ширина столбца соответствует указанному значению. Изменение ширины выполняется
за счет смещения внутренних границ таблицы. Правая граница сохраняет свое
положение.

• wdAdjustFlrstColumn — ширина первого столбца соответствует
указанному значению. Изменение ширины выполняется за счет смещения правой
границы столбца. Размер остальных столбцов сохраняется. Если ширина превышает
суммарную ширину первой и второй ячеек, то происходит сдвиг правой границы
таблицы.

• wdAdjustProportional — ширина первого столбца соответствует
указанному значению. Размер остальных столбцов подбирается автоматически, так
чтобы общая ширина таблицы сохранилась.

• Для
получения информации о текущей ширине столбца можно использовать свойство Width.

• Синтаксис:

• ОbjColumns.Width[=Width]

• Параметр
Width (типа Single)
позволяет указать нужную ширину столбца.

• Чтобы
установить одинаковую ширину всех столбцов, необходимо использовать метод DistributeWidth объекта Columns.

• Objcolumns.DistributeWidth

• Для
автоматического подбора ширины столбцов используется метод AutoFit.

• ObjColumn.AutoFit

• Для
удаления строк (столбцов) используется метод Delete.

• 4.Ячейки.

• Доступ
к ячейкам данной строки или столбца осуществляется с помощью объекта Cells, который является семейством объектов Cell, связанных с конкретными ячейками.

• Синтаксис:

•
Set
objCells = objTables.Rows(key).Cells

• или

•
Set
objCells=objTables.Columns(key).Cells

• Здесь
objTables указывает на таблицу, с ячейками
которой будет выполняться работа, а key –
строка или столбец в таблице, ячейки которой входят в семейство Cells.

•

• Ссылку
на определенную ячейку можно получить с помощью метода Cell
объекта Table.

• Синтаксис:

• ObjTable.Cell (Row,Column)

Set instable = ActiveDocument.Tables.Add(Selection.Range, 4, 10)

Для добавления новой ячейки используется метод Add.

Синтаксис:

ObjCells.Add [(BeforeCell)]

Параметр BeforeCell
указывает на ячейку, перед которой должна быть вставлена новая ячейка. Если
параметр опущен, то ячейка вставляется в конец столбца (строки). Метод
возвращает ссылку на созданную ячейку.

Все ячейки таблицы имеют свой уникальный индекс. Для
получения ссылки на ячейку из определенного семейства используется ее
порядковый номер: крайняя правая (или верхняя) ячейка имеет номер один, а
последняя (нижняя) – значение, определяемое свойством Count
для данного объекта Cells.

Чтобы узнать положение текущей ячейки в строке или столбце,
можно использовать свойство RowIndex или ColumnIndex. Оба свойства возвращают ссылку
на объект типа Cell и предназначены только для
чтения.

Для выделения (активизации) текущей ячейки используется
метод Select.

Синтаксис:

objCell.Select

Для объединения нескольких ячеек в одну (инструмент слияния)
используется метод Merge.

Синтаксис:

ObjCell.Merge (MergeTo)

Параметр MergeTo (типа Cell)
содержит объект типа Cell (ячейка), с которым
выполняется слияние. Если указана ячейка, не имеющая общей
границы с текущей, то выполняется слияние всех ячеек, находящихся в
прямоугольнике, у которого данная ячейка и ячейка, указанная в параметре MergeTo, являются угловыми.

Для разбиения объединенных ячеек или одной ячейки на
несколько используется метод Split.

Синтаксис:

ObjCell.Split[(NumRows,NumColumns)]

Параметр NumRows (типа long) содержит значение,
указывающее на число строк, на которые должна быть разбита данная ячейка.
Параметр NumColumns (типа long)
содержит значение, указывающее на число столбцов, на которые должна быть
разбита данная ячейка.

Пример:

ActiveDocument.Tables(1).Cell(1, 1).Split 2, 3

5.Вычисления.

Вычисления в таблицах Word выполняются так же, как и в любых других электронных
таблицах. Разница заключается только в возможностях использования функций. По
умолчанию в Word
определенно не очень много функций, однако, используя возможности VBA по подключению
дополнительных библиотек, например библиотеки функций Excel, их число можно значительно
увеличить.

Для указания ячейке, что в ней будет выполнятся
вычисление, используется метод Formula
объекта Cell.

Синтаксис:

ObjCell.Formula (Formula, NumFormat)

Параметр Formula
содержит строковое выражение, описывающее используемое выражение. Параметр NumFormat
определяет числовой формат данных, которые будут отображены в данной ячейке.

При использовании стандартных инструментов вставки формул
эти выражения содержатся в соответствующих полях. Например,
выражение “=SUM(A4:C4)” позволяет отобразить значение,
получаемое в результате выполнения суммирования значений трех ячеек: А4, В4,
С4. Кроме непосредственной ссылки на конкретные ячейки можно использовать общие
ссылки, например на все ячейки, расположенные выше(Above) или левее (Left).

По умолчанию в таблицах Word можно использовать следующие функции:

• Abs(X) — возвращает абсолютное значение
числа или формулы (без знака);

• And(X;Y) — возвращает значение 1, если оба логических выражения, X и
У, истинны, или 0 (ноль), если хотя бы одно из них ложно;

• Average(List) — возвращает среднее значение из
списка значений List,

• Count (List) — возвращает
количество элементов в списке List;

• Defined(X) — возвращает значение 1, если
выражение X допустимо, или 0 (ноль), если выражение не может быть
вычислено;

• Fal se —
возвращает значение 0 (ноль);

• Int(X) — возвращает целую часть
числа или значения формулы X;

• Min(List) — возвращает наименьшее значение в
списке List;

• Max(List) — возвращает наибольшее значение в
списке List;

• Mod(X;Y) — возвращает остаток от деления X на Y;

• Not(X) — возвращает значение 0 (ложь), если
логическое выражение X истинно, или 1 (истина), если оно ложно;

• Or(X;Y) — возвращает значение 1 (истина),
если хотя бы одно из двух логических
выражений X и Y
истинно, или 0 (ложь), если оба ложны;

• Product (List) — возвращает произведение
значений, включенных в список List.
Например функция «= Product (1,3,7,9)» возвращает значение 189;

• Round(X; У) — возвращает значение X, округленное до
указанного десятичного разряда Y;

• Sign (X) — указывает
знак числа: возвращает значение 1, если X > О, или -1 в противном случае;

• Sum(List) — возвращает сумму
значений или формул, включенных в список. List;

• True — возвращает значение 1.

• Параметр
NumFormat,
является маской, которая определяет формат числовых значений. Эта маска
может содержать ряд специальных символов, которые приведены ниже.

• 0
(нуль) — возвращает цифру. Если полученное значение не содержит цифру в этой
позиции, то возвращается 0 (нуль). Например, если имеется выражение типа Formula:=»= 4 + 5″,
NumFormat:=
«00,00», то возвращаемое значение будет следующим: «09,00».

• #
— возвращает цифру. Если полученное значение не содержит цифру в этой позиции,
возвращается пробел. Например, Formula:=”=
11 + 5″, NumFormat:=
«###» возвращает значение «-15».

• х — если «х»
находится слева от десятичного разделителя, цифры расположенные слева от него,
отбрасываются, а если справа — то значение округляется до указанного знака.
Например, Formula:=»=
111053 + 111439″, NumFormat:= «x$$$» возвращает значение «492», аFormula:=»= 1/8″, NumFormat:=
«0,00x»
возвращает значение «0,125».

• .
или , (десятичный разделитель) —задает
положение десятичного разделителя. Например, выражение NumFormat:
= «###, 00») возвращает значение типа «495,47».

•       пробел
(разделитель групп разрядов) — разделяет число на группыпо   три
цифры   в   каждой.
Например,   выражение   NumForrcat:»###» возвращает значение
типа «2 456 800».

• минус)
— добавляет минус к отрицательным или пробел — ко всем остальным значениям.

• + (плюс) — добавляет плюс к положительным, минус к отрицательным
или пробел — к нулевым значениям.

• %,
$, * и т. д. — включает в значение указанный знак. Например, выражение (NumFormat:=
«##%») возвращает значение типа «33 %».

• Для
автоматического вычисления суммы значений можно использовать метод AutoSum.

• Синтаксис:

• ObjCell.AutoSum

• После
применения этого метода к данной ячейке в ней отображается значение, равное
сумме значений всех ячеек, расположенных выше или левее данной.