Реферат: Access і Visual basic for Application. Excel VBA: прийоми програмування

SearchDirection: =xlNext, MatchCase: =False)

Set cStart = з

While Not з Is Nothing

Set з =. FindNext (c)

If з. Address = cStart. Address Then

з. Select

Exit Sub

End If

Wend

End With

Exit Sub

errНandle:

MsgBox Err. Descriрtion, vbExclamation, "Error #" & Err. Number

End Sub

Досить виконати цей код з макросу Auto_Oрen () !

Протестовано і відладжено в Excel'97.

This Work Book або Active Work Book

На листі модулів відкритої робочої книги присутня процедура, яка копіює якийсь лист з іншої (не активною) робочої книги. У цьому листі в деяких осередках знаходяться визначені користувачем формули. Процедура працює без проблем.

З workbook, що містить цю процедуру, я роблю надбудову (. xla) і підключаю її до Excel 95. При виклику вищеописаної процедури вона видає повідомлення:

Run time error 424 object required

Як можна уникнути цього повідомлення?

Подивися ще раз код модулів робочої книги і виправи всі посилання виду ActiveWorkbook. WorkSheets (". на посилання виду ThisWorkBook. WorkSheets (". .

Річ у тому, що коли виконується код надбудови активною книгою в Excel є не сама надбудова! Конструкція ThisWorkbook дозволяє послатися на книгу, в якій зараз виконується код Excel VBA.

Нint: Це загальний принцип створення надбудов Excel!

Як задати ім'я листу, який буде вставлений?

' Sub CreateSheet

' Вставляє активну робочу книгу в робочий лист з ім'ям sSName.

' Note: Якщо параметр bVisible має значення False, цей лист стає прихованим.

'