Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Курс лекцій_Інформатика_Одинець.doc
Скачиваний:
14
Добавлен:
22.04.2019
Размер:
20.88 Mб
Скачать

Основні об’єкти та сімейства:

Таблиця 4.1.14.

Об’єкт

Сімейство

Опис

Application

Активний додаток Ms Excel

WorkBook

WorkBooks

Сімейство об’єктів, кожний з яких являє собою робочу книгу

Worksheet

Worksheets

Сімейство об’єктів, кожний з яких являє собою робочий аркуш даної робочої книги

Chart

Charts

Сімейство об’єктів, кожний з яких являє собою діаграму у даній робочій книзі

Name

Names

Сімейство об’єктів, кожний з яких є ім’ям об’єкта , наприклад ім’ям робочого аркуша

Style

Styles

Сімейство об’єктів, кожний з яких є вбудованим стилем або стилем користувача, який використовується у робочій книзі

Window

Windows

Сімейство об’єктів, кожний з яких є вікном робочої книги

WorksheetFunction

Об’єкт, який являє собою контейнер для функцій робочого аркуша

Range

Діапазон комірок робочого аркуша.

Приклади:

Range(“A:G”) – діапазон комірок вказаного діапазону стовпців;

Range(“2:2”) - діапазон комірок другого рядка;

Range(“А2”) - комірка А2.

Діапазон комірок може задаватись не тільки як об’єкт Range, а й з використанням функцій робочого аркуша (об’єкта Worksheet) Rows та Columns. Наприклад: Rows(4); Columns(3).

Альтернативним способом звернення до комірки робочого аркуша є властивість Cells робочого аркуша (об’єкта Worksheet). Наприклад, комірку А5 робочого аркуша можна описати як Range(“А5”) або Cells(1, 5) (комірка першого стовпця і п’ятого рядка).

Крім того можливі такі способи опису діапазону комірок А2:С7:

  1. Range(“А2:С7”)

  2. Range(Cells(1, 2), Cells(3, 7).

Повне та неявне посилання на об’єкт. Повне посилання на об’єкт складається з переліку імен вкладених один в одного об’єктів. Наприклад, повне посилання на комірку А3 робочого аркуша з ім’ям Аналіз робочої книги Облік має вигляд:

Application. WorkBooks(„Облік”).Worksheets(„Аналіз”). Range(„А3”)

Кожного разу застосовувати таке посилання досить обтяжливо і не завжди в цьому є потреба. Натомість в багатьох випадках застосовують неявне посилання на об’єкт. Якщо посилання використовується у програмі, яка буде виконуватись у середовищі Ms Excel, то достатньо застосувати відносне посилання у вигляді

WorkBooks(„Облік”).Worksheets(„Аналіз”). Range(„А3”).

Якщо вказана книга є активною, то посилання можна ще скоротити

Worksheets(„Аналіз”). Range(„А3”).

Якщо і вказаний робочий аркуш є активним, то посилання можна скоротити ще: Range(„А3”).

При роботі з властивостями і методами одного й того ж об’єкта потрібно повторювати при кожному зверненні одне й теж ім’я об’єкта. Між тим існує оператор with, який дозволяє спростити написання програми і водночас покращити читабельність тексту програми. Наприклад замість коду

Range(“A3”).Value=32

Range(“A3”).Font.Italic=True

Range(“A3”).Font.Color=vbRed

можна записати

with Range(“A3”)

.Value=32

.Font.Italic=True

.Font.Color=vbRed

end with

або ще так

with Range(“A3”)

.Value=32

with Font

.Italic=True

.Color=vbRed

end with

end with

Цей приклад показує як виділити клітинку та помістити туди число, або формулу, або діапазон

Private Sub CommandButton1_Click()

' Вказуємо робочий файл

With Application.Workbooks.Item("M4_1_1.xls")

Надаємо значення клітинці А2

Range("A2") = 2+RND

Надаємо значення клітинці А3

Range("A3") = 3+RND

Задаємо у клітинку А4 формулу

Range("A4") = "=A2+A3" ' формула

Надаємо значення діапазону

Range("b2:b5") = 2+RND ' діапазон

MsgBox "Перейти на Лист2?"

Відкриваємо "Лист2"

Worksheets("Лист2").Activate

Надаємо нове значення клітинціА2 цього листа

Worksheets("Лист2").Range("A3") = 5+RND

MsgBox "Повернутися на Лист1?"

Відкриваємо "Лист1"

Worksheets("Лист1").Activate

Закінчуємо роботу з блоком With

End With

End Sub