Совет

Когда дело доходит до подсчета времени, ситуация усложняется. Если вре­ мя вводится без даты, в качестве даты берется 0 января 1900 года (соответствует значению 0). Это не проблема, если только в результате под­ счетов не получится отрицательное значение времени. В подобном случае Excel выведет сообщение об ошибке (в виде #########). Что делать в такой ситуации? Перейти к формату дат 1904 года. Перейдите в диалоговое окно Параметры Excel (Excel Options), выберите раздел Дополнительно (Advanced) и установите флажок Использовать систему дат 1904 (Use 1904 Date System). Не забывайте, что переход к этой системе может привести к неадекватному толкованию дат, ранее введенных в текущий рабочий лист или в связанные рабочие книги.

ОСовет

Иногда значения времени используются для представления длительности времени. Например, может возникнуть необходимость подсчитать количе­ ство рабочих часов в неделе. При складывании значений времени обнару­ живается, что нельзя получить значение, которое больше 24 часов. Для каж­ дого 24-часового периода Excel добавляет к дате еще один день. Решить данную проблему можно путем изменения числового формата — выделите квадратными скобками ту часть значения, в которой указано количество ча­ сов. Например, ниже представлен числовой формат, в котором может ото­ бражаться более 24-х часов.

[ч ч ]:м м

Использование дат до 1900 года

Как вы понимаете, мир начал свое существование не с 1 января 1900 года. И тем, кто использует Excel для работы с исторической информацией, часто приходится иметь дело с датами, намного более ранними, чем 1 января 1900 года. К сожалению, для управления та­ кими датами подходит только один способ — их необходимо вводить в ячейку, как текст. Например, Excel не будет против, если в ячейку вы введете дату 4 июля 1776 года.

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

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

Перекрестная ссылка

Дополнительные сведения по работе с дополнительными функциями дат можно найти в главе 10.

Создание мегаформул

Зачастую для получения необходимого результата в электронных таблицах исполь­ зуются промежуточные формулы, т.е. формула может зависеть от других формул, кото­ рые, в свою очередь, зависят от еще каких-либо формул. Добившись, чтобы все они ра­

Таблица 3.5. Промежуточные формулы, введенные в столбцах B:G

Можно избавиться от всех промежуточных формул, создав мегаформулу. Для этого выполните следующее: создав промежуточные формулы, перейдите к конечной резуль­ тирующей формуле и замените в ней каждую ссылку на ту или иную ячейку копией фор­ мулы, которая в этой ячейке находится (копия вводится без знака равенства). К счастью, для копирования и вставки можно использовать буфер обмена. Повторяйте эти действия до тех пор, пока в ячейке Н2 не исчезнут все ссылки, кроме ссылок на ячейку А2. В ко­ нечном итоге у вас в одной ячейке получится следующая мегаформула.

=ЛЕВСИМВ(СЖПРОБЕЛЫ(А2) , НАЙТИ (" " , СЖ ПРОБЕЛЫ(А2), 1 ) ) &ПРАВСИМВ(СЖПРОБЕЛЫ(А2) ,Д Л СТР(

СЖ ПРОБЕЛЫ(А2)) - ЕСЛИ(ЕОШ ИБКА(НАЙТИ(" " , СЖПРОБЕЛЫ(А 2 ) , НАЙ ТИ(" " , СЖПРОБЕЛЫ(А2) , 1 ) + 1 ) ) , Н АЙ ТИ("

" , СЖПРОБЕЛЫ(А 2 ) , 1 ) , Н АЙ ТИ(" " , СЖПРОБЕЛЫ(А 2 ) , НАЙТИ (" " , СЖПРОБЕЛЫ(А2) , 1)+ 1) ) )

Убедившись, что мегаформула работает, можете удалить столбцы с промежуточными формулами, поскольку последние вам больше не понадобятся.

Мегаформула выполняет те же самые задачи, что и все промежуточные формулы, од­ нако понять, как она работает, может только ее автор. Если вы собираетесь использовать мегаформулы, то перед их созданием проверьте, правильно ли работают промежуточные формулы. Или еще лучше — сохраните отдельно копию этих формул (на тот случай, ес­ ли в расчетах обнаружится ошибка или в их алгоритм потребуется внести изменения).

Еще один способ решения этой проблемы заключается в создании пользовательской VBAфункции рабочего листа. Затем мегаформула заменяется следующей простой формулой:

=NOMIDDLE(А 1 )

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

F u n c t i o n NOM ID DLE(n) A s S t r i n g

D im F i r s t N a m e A s S t r i n g , L a s tN a m e A s S t r i n g n = A p p l i c a t i o n . W o r k s h e e t F u n c t i o n . T r i m ( n )

En d F u n c t i o n

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

Рабочая книга, которая содержит промежуточные формулы, мегаформулу и VBA-функцию n o m id d le , находится на прилагаемом компакт-диске. Соот­ ветствующий файл называется m e g a f o r m u l a . x ls m .