Microsoft Ехсеl 2010. Профессиональное программирование на VBA

мации об Excel:
http://spreadsheetpage.co

В приложении А приведен полный список источников, которые помогут вам в решении той или иной проблемы.

Пробную 30-дневную версию пакета Power Utility Рак можно загрузить на сайте http://spreadsheetpage.com.

Еще лучше (тогда не нужно использовать таблицу соответствия) создать пользова­
тельскую функцию, представленную ниже.
Fu n c t io n Co m m issio n ( Sales)
Co n st T ie r l = 0.08
Co n st T ie r 2 = 0.105
Co n st T ie r 3 = 0.12 Co n st T ie r 4 = 0.14
' Вы числяет ком иссионны е с объема продаж
S e le c t Case Sa le s
Case 0 To 99 9 9 .9 9 : Com m ission = Sa le s * T ie r l
Case 1000 To 19999.99: Com m ission = Sa le s * T ie r 2
Case 20000 To 3 9 999.99: Com m ission = Sa le s * T ie r 3
Глава 10. Создание функций 301
Case I s >= 40000: Com m ission = Sa le s * T ie r 4
End S e le c t
End Fu n ct io n

Еще один способ решения “проблемы регистра” — добавить в начало моду­ля следующий оператор:
O p t io n Com pare T ex t
В этом случае VBA выполняет сравнение строк на основе нечувствительных
к регистру правил сортировки. Другими словами, А считается тем же, что и а.

1. Создайте пустую рабочую книгу с пятью рабочими листами: названия — Л и ст1 ,
Л и ст2 , Л и стЗ, Л и ст4 и Л и ст5 .
2. Разместите листы произвольно, чтобы они следовали не по порядку.
3. Сохраните рабочую книгу как T e st. xlsm.
4. Активизируйте VBE и выберите проект Personal .xlsb в окне Project (Проект).
Если Personal .x lsb не отображается в окне Project, значит, вы никогда не
использовали личную книгу макросов. Excel создаст для вас эту книгу, когда вы
запишете макрос (любой) и определите, что он должен сохраняться в личной кни­
ге макросов.
5. Добавьте новый модуль VBA (используя команду Inserts Module (Вставить1 ^
Модуль)).
6. Создайте пустую процедуру с названием Sort Sheets (рис. 9.10).
Макрос можно с

В следующем примере кода демонстрируется обработка ошибок путем перехода по метке.
Sub Erro rD em o ()
On E r r o r GoTo H a n d le r
S e le c t io n . V a lu e = 123
E x it Sub
H a n d le r :
MsgBox "Невозможно п рисвоить значение выделенному ди ап азо н у."
End Sub

Sub Se le c t Fo r m u la s2 ()
On E r r o r Resume N ext
S e le c t io n . S p e c ia lC e lls ( x lF o r m u la s , x lN u m b e r s) .Se le c t
On E r r o r GoTo 0
1 . . . [код]
End Sub
Обратите внимание, что оператор On Error GoTo 0 восстанавливает нормальную обработку ошибок перед выходом из процедуры.

После нажатия комбинации клавиш происходит проверка
всех зависимых формул, а также вычисляются значения во всех

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