АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. Архівування, видобування об’єктів
  2. Блок обчислення математичних функцій Math Function
  3. Види аналізу за об’єктами управління
  4. Види робочого часу.
  5. Виділення, копіювання, переміщення, вставка, видалення об’єктів та робота з буфером обміну Windows
  6. ВИЗНАЧЕННЯ ФУНКЦІЙ ВЛАДИ
  7. ВИЗНАЧЕННЯ ФУНКЦІЙ ДЕРЖАВИ
  8. Вимірювання високих напруг з використанням електрооптичних ефектів Керра і Поккельса
  9. Випишіть та запам'ятайте латинські юридичні терміни, формули, сентенції, наведені в Додатку III ( всі № №, що закінчуються на цифру 1, наприклад: № 1, № 11, № 21 . . . №1141 ).
  10. Випишіть та запам'ятайте латинські юридичні терміни, формули, сентенції, наведені в Додатку III (всі № №, що закінчуються на цифру 0, наприклад: № 10, № 20, № 30 . . . №1140).
  11. Випишіть та запам'ятайте латинські юридичні терміни, формули, сентенції, наведені в Додатку III (всі № №, що закінчуються на цифру 3, наприклад: № 3, № 13, № 23 . . . №1143)
  12. Випишіть та запам'ятайте латинські юридичні терміни, формули, сентенції, наведені в Додатку III (всі № №, що закінчуються на цифру 4, наприклад: № 4, № 14, № 24 . . . №1144).

Альтернативним способом звернення до комірки робочого аркуша є властивість 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”).

Якщо і вказаний робочий аркуш є активним, то посилання можна скоротити ще: 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


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 |

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



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)