Завдання. Перепишіть текст створеного макросу і поясніть його команди

Перепишіть текст створеного макросу і поясніть його команди.

ЛАБОРАТОРНА РОБОТА №3

Тема: Використання циклів для обробки даних у таблиці.

Мета роботи: навчитися використовувати оператори циклу та властивості й методи об’єктів VBA

Оператори циклу

Циклом називають групу операторів, що повторюється багато­разово з різними значеннями деякої змінної, яка називається змінною або параметром циклу.

3.1.1 Оператор циклу з лічильником.

Синтаксис:

For параметр = значення1 To значення2 Step h

інструкції тіла циклу

Next

Оператор повторює виконання тіла циклу, змінюючи значення параметру циклу від значення1 до значення2 із кроком h. Якщо крок дорівнює 1, його можна не вказувати.

Задача 3.1. В діапазоні B2: B24 записані числа. Знайти суму і кількість додатнних чисел діапазону.

Використаємо для розв’язку задачі об’єкт Cells – клітинку.

Sub СумаТаКількість()

Dim suma as Single, k as Integer, i as Integer

suma =0: k=0

For i =2 To 24

If Cells(i, 2). Value >0 Then

k = k+1 ‘ збільшуємо кількість

suma = suma +Cells(i, 2). Value ‘ накопичуємо суму

End if

Next i

MsgBox “Додатних чисел – “ & Str(k) & “, сума – ” & Str(suma)

End Sub

3.1.2 Оператор циклу по сімейству об'єктів.

Синтаксис:

For Each змінна Іn сімейство

інструкції тіла циклу

Next

Оператор повторює виконання інструкцій тіла циклу, доки змін­на перебігає всі об'єкти із сімейство об'єктів. Ця змінна повинна бути описана як об’єкт типу Range, якщо сімейство – діапазон клітинок.

Достроковий вихід з таких операторів циклу відбувається за допомогою оператору Exit For.

Задача 3.2. Написати програму, яка заповнює діапазон C2: H21 випадковими числами з інтервалу [5; 25].

Використаємо для цього функцію Rnd () із зсувом. Результат можна округлити, використовуючи функцію Round або за допомогою властивості NumberFormat встановити вид відображення чисел.

Sub табуляція()

Dim r As Range, x As Single

For Each r In Range("C2: H21")

x = Rnd() * 20 + 5

r. Value = Round(x, 2) ‘ або

r. NumberFormat = "###. 00 "

Next