Головна

Програмування з використанням об'єктів EXCEL.

Розробляти програми в редакторі VBA можна і з використанням об'єктів додатків Office (об'єктів EXCEL, WORD та ін.)

Розглянемо розробку програми прикладу 2 з використанням об'єктів EXCEL. Будемо використовувати об'єкти:

- WORKSHEETS () -для позначення листа EXCEL

- RANGE (), або Ctlls () - для позначення діапазону комірок або одного осередку

- Властивість .Value для звернення до значенням осередки.

Тобто, якщо ми хочемо записати в осередок значення F програмним способом, потрібно написати в програмі так:

Worksheets (). Range (). Value = F,де в дужках вказати ім'я або номер листа EXCEL і адреса комірки, абоWorksheets (). Cells (). Value = F . Наприклад, щоб:

 виконати Вирази в процедурі
 Присвоїти осередку С1На аркуші "лист1" значення змінної F  Worksheets ("Лист1"). Range ("C1"). Value = FіліWorksheets ("Лист1"). Cells (1,3) .Value = F
 Присвоїти змінної X значення, що міститься в комірці D2  X = WorkSheets ("Лист1"). Range ("D2"). ValueіліX = WorkSheets ("Лист1"). Cells (2,4) .Value

Порядок виконання роботи:

1. Відкрити редактор VBE

2. Виконати команду Insert / Module

3. У вікно введення кодів вставити процедуру Insert / Procedure

Написати програмний код.

Public Sub Pr_1 ()

Dim a As Integer, b As Integer, c As Integer

'Зчитування показників

a = WorkSheets ("Лист1"). Cells (2,1) .Value

b = WorkSheets ("Лист1"). Cells (2,1) .Value

'Формування рядки заголовків

Worksheets ("Лист1"). Cells (1,1) .Value = a

Worksheets ("Лист1"). Cells (1,2) .Value = b

'Обчислення

c = a + b

'Висновок обчисленого значення на лист Excel

Worksheets ("Лист1"). Cells (1,3) .Value = c

End Sub

Пояснення до програми:

2.3. Розглянуту задачу вирішимо, використовуючи функції введення / виводу InputBox (), MsgBox ()

Порядок виконання роботи:

  1. Вставити процедуру в наявний в проекті модуль.
  2. Написати програмний код.

Public Sub Pr_2 ()

'Оголошення змінних

Dim a As Integer, b As Integer, c As Integer, Pr As Integer

'Введення значень змінних

a = CInt (InputBox ("Введіть значення a"))

b = CInt (InputBox ("Введіть b"))

c = a + b 'Обчислення значення з

Pr = MsgBox ("Значення з одно" & c, 35, "Дані введені")

Debug.Print Pr

End Sub

Розглянуту задачу вирішимо, використовуючи введення / виведення з листа / на лист Ехсеl | середа VBA


Елементи об'єктно-орієнтованого програмування в Excel VBA. | Workbooks ("Фінанси"). Worksheets ("Квартал_3"). Activate | Меню і панелі інструментів. | вікно властивостей | Інструменти панелі елементів | Поле зі списком | вимикач | MultiPage | ЗАВДАННЯ ДО ВИКОНАННЯ |

© 2016-2022  um.co.ua - учбові матеріали та реферати