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

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

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

Range(“А2:С7”)

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

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

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

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

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

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

Worksheets(„ Аналіз”). 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

Поиск по сайту: