Уокенбах Формулы в Excel

Если в функции использовать многоячеечный диапазон, то она проверит значение только в левой верхней ячейке диапазона.

Возвращение формулы ячейки

Следующая функция CELLFORMULA возвращает формулу, содержащуюся в ячейке, в виде строки. Если в ячейке нет формулы, функция возвращает пустую строку.

Function CELLFORMULA(cell) As String

1Возвращает формулу ячейки или

1пустую строку, если формулы в ячейке нет

Dim UpperLeft As Range

Set UpperLeft = cell.Range("Al") If UpperLeft.HasFormula Then

CELLFORMULA = UpperLeft.Formula

Else

CELLFORMULA = ""

End If

End Function

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

Скрыта ли ячейка?

Следующая функция CELLISHIDDEN принимает аргумент в виде одной ячейки и возвращает значение TRUE, если ячейка скрыта. Ячейка считается скрытой, если скрыта ее строка или столбец.

Использование функцийэтой главы

Если в этой главе вам встретится функция, полезная длярешения конкретных задач, то используйте ее в своем рабочем листе. Все процедуры этой главы приведены на Web-узле. Откройте соответствующую рабочую книгу (см. Приложение Д с описанием файлов), активизируйте редактор Visual Basic и вставьте листинг функции в модуль VBA вашей рабочей книги. Принеобходимости воспользуйтесь несколькими функциями илисоздайте надстройку (см. главу23).

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

Function CELLISHIDDEN(cell) As Boolean

1Возвращает TRUE если ячейка скрыта Dim UpperLeft As Range

Set UpperLeft = cell.Range("Al") CELLISHIDDEN = UpperLeft.EntireRow.Hidden Or

UpperLeft.EntireColuinn. Hidden

End Function

Возвращение имени рабочего листа

Приведенная ниже функция SHEETNAME принимает один аргумент (диапазон) и возвращает имя рабочего листа с этим диапазоном. В функции используется свойство Parent объекта Range. Свойство Parent возвращает объект, в котором содержится объект Range.

SHEETNAME = rng.Parent.Name End Function

А вот еще один вариант этой же функции. В ней не используется аргумент; действие этой функции основано на том, что она может определить ячейку, из которой она вызвана с помощью свойства Application . Caller .

Function SHEETNAME2() As String

1 Возвращает имя книги для ячейки,

1содержащей функцию

SHEETNAME2 = Application.Caller.Parent.Name

End Function

Понятие родительских объектов

Объекты в Excel выстроены в иерархическом порядке. На верхнем уровне иерархии расположен объект A p p l i c a t i o n (сама Excel). В Excel есть и другие объекты; эти объекты, в свою очередь, состоят из других объектов и т.д. Ниже показано, на каком месте в этой иерархии находится объект Range.

Объект Application (Excel) Объект workbook

Объект Worksheet Объект Range

В объектно-ориентированном программировании родительским для объекта Range является объект Worksheet, в котором находится объект Range. Родительским для объекта Worksheet является Workbook. И, наконец, родителем объекта Workbook является объект Application . Разобравшись в такой структуре, используйте свойство Parent, чтобы создавать различные полезные функции.

В этой функции свойство A p p l i c a t i o n . C a l l e r возвращает объект Range, который соответствует ячейке с функцией. Предположим, что в ячейке А1 содержится такая формула:

=SHEETNAME()

Когда выполняется функция SHEETNAME, свойство A p p l i c a t i o n . C a l l e r возвращает объект Range, соответствующий ячейке, содержащей функцию. Свойство Parent возвращает объект Worksheet, а свойство Name возвращает имя рабочего листа.

Возвращение имени рабочей книги

Приведенная ниже функция WORKBOOKNAME возвращает имя рабочей книги. Обратите внимание, что в этой функции свойство Parent используется дважды. Первый раз свойство Parent возвращает объект Worksheet, а во второй раз— объект Workbook; свойство Name возвращает имя рабочей книги.

Function WORKBOOKNAME() As String

Возвращение имени приложения

Следующая функция,в принципе,редко используемая, переносит рассуждения о родительских объектах на следующий логический уровень, обращаясь к свойству Parent три раза. Этафункция возвращает имя объекта Application, которое всегда является строкой Microsoft Excel.

Function APPNAMEO As String

1 Возвращает имя книги для ячейки,

1содержащей функцию

APPNAME = Application.Caller.Parent.Parent.Parent.Name

End Function

Возвращение версии Excel

Следующая функция возвращает номер версии Excel. Например, если используется Excel 2002, то она возвратит текстовую строку 10.0.

Function EXCELVERSIONO As String

'Возвращает номер версии Excel EXCELVERSION = Application.Version

End Function

Обратите внимание, что функция EXCELVERSION возвращает строку, а не значение. Приведенная ниже функция возвращает значение TRUE, если используемым приложением является Excel версии 97 или выше (Excel 97 соответствует версии 8). В этой функции используется функцияVal для преобразования текстовой строки в значение.

Function EXCEL97ORLATERO As Boolean EXCEL97ORLATER = Val(Application.Version) >= 8

End Function

Возвращение информации

оформатировании ячейки

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

В функциях этого раздела используется следующее выражение:

Application.Volatile True

Это выражение заставляет функцию проводить перерасчет формул в рабочей книге. Но, как обнаружится позднее, этифункции не всегда возвращают правильные значения. Это происходит из-за того, чтоExcel, скажем, невыполняет перерасчет ячеек при изменении форматирования ячеек. Чтобы все жевыполнить общий перерасчет (и обновить все пользовательские функции), нажмите <Ctr+Alt+F9>.

Следующая функция возвращает значение TRUE, если к ячейке-аргументу применено полужирное начертание.

Function ISBOLD(cell) As Boolean

1Возвращает TRUE, если шрифт ячейки имеет полужирное начертание ISBOLD = cell.RangeC'Al") .Font.Bold

End Function

А эта функция возвращает значение TRUE, если к аргументу одной ячейки применено курсивное начертание.

Function ISITALIC(cell) As Boolean

1 Возвращает TRUE, если шрифт ячейки имеет курсивное начертание ISITALIC = cell.RangeC'Al") .Font. Italic

End Function

В обеих приведенных выше функциях есть небольшое упущение: если кячейке применено смешанное форматирование, то функции возвращают ошибку. Например, если полужирным начертанием форматированы только некоторые символы. Следующая функция возвратит значение TRUE только в том случае, если все символы в ячейке имеют полужирное начертание. Вней используется VBA-функция IsNull, определяющая, возвращает ли свойство Bold объекта Font значение Null. Если да, то в ячейке содержится смешанное форматирование.

Function ALLBOLD(cell) As Boolean

Следующая функция FILLCOLOR возвращает целочисленное значение, которое соответствует индексу цвета заливки ячейки. Если в ячейке нет заливки, функция возвращает значение -4142.

Приведенная ниже функция возвращает ввиде строки формат цифр в ячейке.

Function NUMBERFORMAT(cell) AsString 1 Возвращает строку, представляющую ' числовой формат ячейки

Application.Volatile True

NUMBERFORMAT = cell.Range("Al").NUMBERFORMAT End Function

Если вячейке используется формат цифр, заданный по умолчанию, то функция возвратит

строку General.

Определение типаданных вячейке

В Excel предложено несколько встроенных функций определения типа данных, содержащихся в ячейке. Эти функции называются ЕТЕКСТ, ЕЛОГИЧ иЕОШИБКА. Кроме этих функций вVBA есть такие функции, как ЕПУСТО, ЕДАТА иЕЧИСЛО.

Следующая функция принимает аргумент диапазона и возвращает строку (Blank, Text, Logical, Error, Date, Timeили Value), которая описывает тип данных левой верхней ячейкидиапазона.

Function CELLTYPE(cell)

'Возвращает тип левой верхней

1ячейки диапазона

Dim UpperLeft As Range Application.Volatile

Set UpperLeft = cell.Range("Al")

Select Case True

Case UpperLeft.NumberFormat = "@"

CELLTYPE = "Text"

Case IsEmpty(UpperLeft)

CELLTYPE = "Blank"

Case WorksheetFunction.IsText(UpperLeft)

CELLTYPE = "Text"

Case WorksheetFunction.IsLogical(UpperLeft)

CELLTYPE = "Logical"

Case WorksheetFunction.IsErr(UpperLeft)

CELLTYPE = "Error"

Case IsDate(UpperLeft)

CELLTYPE = "Date"

Case InStr(l, UpperLeft.Text, ":") <> 0

CELLTYPE = "Time"

Case IsNumeric(UpperLeft)

CELLTYPE = "Value"

End Select

End Function

На рис. 25.1 показана функция CELLTYPE в действии. В столбце В содержатся формулы, обработанные функцией CELLTYPE с аргументами из столбца А. Например, в ячейке В1 содержится такая формула:

=CELLTYPE(A1)

Рис. 25.1. Функция CELLTYPE возвращает строку с описанием типа содержимого ячейки

Многофункциональная функция

В этом разделе показаны способы создания одной функции рабочего листа, которая работает как несколько функций. Такая функция VbA, называемая STATFUNCTION,работает с двумя аргументами— диапазоном (rng) и оператором (ор). В зависимости от значения ор функция возвращает значение, вычисленное с использованием одной из функций рабочего листа: СРЗНАЧ, СЧЁТ, МАКС,МЕДИАНА, МИН, МОДА и т.д. Эту функцию можно использовать на рабочем листе:

=STATFUNCTION(B1:B24;A24)

Результат формулы зависит от содержимого ячейки А24, которая содержит строку, например, Average, Count, Max и т.д. Таким образом можно работать и с другими типами функций.

Function STATFUNCTION(rng, op) Select Case UCase(op)

Case "SUM"

STATFUNCTION = Application.Sum(rng) Case "AVERAGE"

STATFUNCTION = Application.Average(rng) Case "MEDIAN"

STATFUNCTION = Application.Median(rng) Case "MODE"

STATFUNCTION = Application.Mode(rng) Case "COUNT"

STATFUNCTION = Application.Count(rng) Case "MAX"

STATFUNCTION = Application.Max(rng) Case "MIN"

STATFUNCTION = Application.Min(rng) Case "VAR"

STATFUNCTION = Application.Var(rng)

Case "STDEV"

STATFUNCTION = Application.StDev(rng)

Case Else

STATFUNCTION = CVErr(xlErrNA) End Select

End Function

На рис. 25.2 представлена функция STATFUNCTION, используемая вместе с раскрывающимся списком, созданным с помощью команды Excel Данные1^Проверка. Формула находится в ячейке С14:

=STATFUNCTION(С1:С12;В14)

Следующая функция STATFUNCTION2 имеет более простой вид,но работает так же, как и функция STATFUNCTION. В этой функции для вычисления выражения используется оператор Evaluate.

Рис. 25.2. Результатвыбора операции изсписка отображается в ячейке В14

Предположим, что аргумент r n g соответствует С1 :С12, а аргумент ор является строковым значением SUM. Выражение, используемое в качестве аргумента оператора E v a l u a t e , имеет следующий вид:

SUM(C1:C12)

Оператор E v a l u a t e подсчитывает аргументы и возвращает результат. Кроме того, что это довольно короткое выражение, преимущество этой версии функции STATFUNCTION заключается еще и в том, что необязательно перечислять все возможные функции.

Генерированиеслучайныхчисел

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

Генерирование неизменяемых случайных чисел

Чтобы быстро создать диапазон ячеек, состоящих из случайных чисел, воспользуйтесь в Excel функцией СЛЧИС. Но, как выяснится позднее, функция СЛЧИС генерирует новое случайное число каждый раз при пересчете рабочего листа. Если нужно создать диапазон случайных чисел, которые не изменяются при каждом пересчете, используйте процедуру STATICRAND:

Function STATICRAND()

В функции STATICRAND используется функция Rnd VBA, которая, как и функция СЛЧИС, возвращает случайное число от 0 до 1. Но при использовании STATICRAND случайные числа не меняются при пересчете листа.

При нажатии клавиши <F9> новые значения функции STATICRAND не генерируются, это можно сделать с помощью сочетания клавиш <Ctrl+Alt+F9> (клавиатурное сокращение "глобального пересчета" в Excel).

Чтобы сгенерировать серии случайных целых чисел между 1 и 1000, используйте формулу

=ЦЕЛОЕ(STATICRAND()*1000)+1

Выбор случайной ячейки

Следующая функция, которая называется DRAWONE, выбирает случайным образом одну ячейку из введенного диапазона и возвращает ее содержимое.

Funсtion DRAWONE(rng)

1 Выбор одного из чисел диапазона произвольным образом DRAWONE = rng(Int((rng.Count) * Rnd +1))

End Function

Используя эту функцию, обратите внимание, что при пересчете рабочего листа она не пересчитывается. Другими словами, эта функция не является временной (более подробно об управлении процессом пересчета рассказывается во врезке "Управление пересчетом функции" далее в этой главе). Функцию можно сделать изменяемой, добавив следующее выражение:

Application.Volatile True

Управлениепересчетом функции

Когда пересчитывается пользовательская функция, используемая в формуле рабочего листа?

Пользовательские функции ведут себя как встроенные функции рабочего листа Excel. Обычно пользовательская функция пересчитывается только тогда, когда она должна быть пересчитана, т.е. когда изменяются аргументы функции. Но пересчет функции можно делать чаще. Добавив следующее выражение в процедуру, в функции выполнится пересчет при изменении любой ячейки.

Application.Volatile True

Оператор v o l a t i l e в объекте A p p l i c a t i o n принимает один аргумент (либо True, либо False). Атрибут v o l a t i l e у функции заставляет ее пересчитываться каждый раз при пересчете любой ячейки рабочего листа.

Например, пользовательскую функцию STATICRAND, представленную в этой главе, можно заменить на ее эмулятор, функцию Excel слчис (), использовав оператор V o l a t i l e :

Function NONSTATICRAND()

Использование в операторе v o l a t i l e аргумента False заставляет функцию выполнить пересчет только в том случае, если изменяются один или несколько ее аргументов (если в функции нет аргументов, то этот метод неэффективен). По умолчанию все функции дейст-

| вуют так, как будто для них задано выражение A p p l i c a t i o n . V o l a t i l e False.

После этого функция DRAWONE будет отображать новые случайные значения каждый раз при пересчете листа.

Далее в этой главе представлены еще две функции управления случайными числами.

Вычисление комиссионных отпродаж

Менеджерам по продажам часто необходимо просчитать комиссионные, полученные от продаж. Расчеты в примере функции, представленной ниже, основаны на подвижной шкале: чем больше работник продал, тем больше комиссионных он получил (табл. 25.1). Например, менеджер с продажами в диапазоне от $10000 до $19999 получает 10,5% комиссионных.

Таблица 25.1.Ставка комиссионных дляпродажзамесяц

Комиссионные можно вычислить для различных объемов продаж, указанных на рабочем листе. Можно использовать сложную формулу со вложенными функциями IF,например:

=IF(A1<O;O;IF(AK1OOOO;A1*O,O8;IF(A1<2OOOO;A1*O,105;IF(Al<40000;А1*0,1

2;А1*0,14))))

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

Лучший способ описать эти условия — воспользоваться функцией таблицы Lookup для подсчета комиссионных, а именно:

=ПРОСМОТР(Al;Table;2)*А1

Использование функции ПРОСМОТРявляется хорошей альтернативой, но она не выполняется, если структура начисления комиссионных слишком сложная. (См. подраздел "Функция сложной структуры начисления комиссионных"). Еще одной альтернативой является создание пользовательской функции.

Функция простой структуры начисления комиссионных

Следующая функция COMMISSIONпринимает один аргумент (Sales) и вычисляет ставку комиссионных.

Function COMMISSION(Sales) As Single

1Вычисляет комиссионные с продаж Const Tierl As Double = 0.08 Const Tier2 As Double = 0.105 Const Tier3 As Double = 0.12 Const Tier4 As Double = 0.14 Select Case Sales

Приведенная ниже формула рабочего листа возвращает значение 3000 (объем продаж 25000 соответствует ставке 12%):

=COMMISSION(2 5000)

В этой функции легко разобраться. В ней используется константа для хранения ставки комиссионных и структура Selec t Case для определения того, какую ставку следует брать.

Когда структура Select Case пересчитывается, программа выходит из нее,как только выполнится необходимый оператор Case.

Функция сложной структуры начисления комиссионных

Если структура начисления комиссионных более сложная, следует воспользоваться дополнительными аргументами в функции COMMISSION. Представьте, что вышеупомянутый менеджер попродажам внедряет новую политику, чтобы уменьшить текучесть кадров: общие комиссионные повышаются на 1%в год, пока агент по продажам работает на эту компанию.

Ниже приведена измененная функция COMMISSION (онаназывается COMMISSION2). Теперь этафункция принимает двааргумента: объем продажи за месяц (Sales) и количество отработанных в компании лет (Years).

1рабочего стажа

Const Tierl As Double = 0..08 Const Tier2 As Double = 0.105 Const Tier3 As Double = 0.12

Const Tier4 As Double = 0.14 Select Case Sales

Case Is >= 40000

COMMISSION2 = Sales * Tier4 Case Is >= 20000

COMMISSION2 = Sales * Tier3 Case I s >= 10000

COMMISSION2 = Sales * Tier2 Case Is < 10000

COMMISSION2 = Sales * Tierl End Select

COMMISSION2 = COMMISSION2 + ((COMMISSION2 * Years / 100) End Function

На рис. 25.3 представлена функция COMMISSION2. Формула вячейке D2такая:

=COMMISSION2(B2;C2)

Рис. 25.3. Пересчет комиссионных на основе объема продаж: иколичестваотработанныхвкомпании лет

Функции управления текстом

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