Полезные функции в формулах Excel

Компакт-диск

Примеры из этого раздела можно найти на прилагаемом к книге компактдиске в файле w orksheet fu n c tio n s . xlsm .

Получение информации о форматировании ячейки

В данном разделе содержится ряд пользовательских функций, возвращающих ин­ формацию о форматировании ячейки. Такие функции используются при сортировке дан­ ных на основе форматирования (например, в случае, когда ячейки, выделенные полу­ жирным шрифтом, должны располагаться рядом).

Предупреждение

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

к пересчету формул Excel. Чтобы вызвать глобальный пересчет формул (и обновить все пользовательские функции), нажмите клавиши <Ctrl+Alt+F9>.

В функцию можно также добавить следующий оператор:

A p p lic a tio n . V o la tile

При наличии этого оператора пересчет функции производится после нажатия клавиши <F9>.

Следующая функция возвращает ИСТИНА, если аргумент, состоящий из одной ячей­ ки, выделен полужирным шрифтом. Если диапазон передается в качестве аргумента, функция использует его верхнюю левую ячейку.

Function Is B o ld ( c e ll) As Boolean

1 Возвращает ИСТИНА, если ячейка выделена полужирным

IsBold = c e ll.R a n g e ( " A l" ) . F o n t.B o ld End Function

Помните о том, что эти функции работают только с явно заданным форматированием (не могут применяться с условным форматированием). В Excel 2010 появился новый объект под названием D is p la y F o rm a t. Он учитывает наличие условного форматиро­ вания. Ниже показан код функции Is B o ld , который может обрабатывать полужирный формат, являющийся результатом условного форматирования.

Function Is B o ld ( c e ll) As Boolean

1 Возвращает ИСТИНА даже в случае условного форматирования

IsBold = c e ll.R a n g e ( " A l" ) . D is p la y F o rm a t. F o n t.B o ld End Function

Следующая функция возвращает ИСТИНА, если используемая в качестве аргумента однаячейка выделена курсивом.

Function I s l t a l i c ( c e l l ) As Boolean

1 Возвращает ИСТИНА, если ячейка выделена курсивом

I s lt a lic = c e l l . Range( " A l" ) . F o n t. I t a l i c End Function

Обе предыдущие функции возвращают ошибку, если ячейка имеет смешанное фор­ матирование (например, полужирным шрифтом отображены только отдельные симво­ лы). Функция, приведенная ниже, возвращает ИСТИНА только тогда, когда все символы в ячейке выделены полужирным шрифтом.

Function A llB o ld ( c e ll) As Boolean

' Возвращает ИСТИНА, если все символы в ячейке

'выделены полужирным

End F u n c tio n

Функцию AllBold можно упростить.

A llB o ld = Not I s N u ll ( c e l l . F o n t. B old)

End F u n c tio n

Функция Fill Color, представленная далее, возвращает целое число, соответст­ вующее индексу цвета фона ячейки (цвета заливки ячейки). Если ячейка не имеет залив­ ки, то функция возвращает значение 4142.

Эта функция не может использоваться для определения цветов заливки таблиц (которые создаются с помощью команды Вставка^Таблицы^Таблица (Insert^Tables1 Table)) или сводных таблиц. В подобных случаях воспользуйтесь объектом DisplayFormat, как описывалось ранее.

F illC o lo r = c e ll.R a n g e ( " A l" ) . I n t e r i o r . C o lo rln d e x

End F u n c tio n

Беседа с рабочим листом

Функция Say I t применяет синтезатор речи Excel для “проговаривания” аргументов, в качестве которых используется текст или ссылка на ячейку.

F u n c tio n S a y lt ( t x t )

A p p lic a tio n .S p e e c h .S p e a k ( t x t )

S a y lt = t x t

End F u n c tio n

Эта функция носит развлекательный характер, но может использоваться и в серьез­ ных целях. Например, ее можно включить в следующую формулу:

=IF (SUM (А:А) >25000, S a y lt ( "Цель достигнута " ) )

Если сумма значений в столбце А превышает 25000, вы услышите синтезированный голос, сообщающий о том, что цель достигнута. Метод Speak можно также включить в конец длинной процедуры — спустя некоторое время компьютер известит вас о том, что выполнение процедуры завершено.

Отображение даты сохранения файла или вывода файла на печать

Рабочая книга Excel содержит несколько встроенных свойств документа, к которым мож­ но получить доступ с помощью свойства BuiItinDocumentProperties объекта Work­ book. Следующая функция возвращает дату и время последнего сохранения рабочей книги.

F u n c tio n LastS avedO

A p p lic a tio n . V o la tile LastS aved = ThisW orkbook.