Головна

Завдання

  1. Б) Цілі і завдання.
  2. Варіанти індивідуального завдання
  3. Варіанти практичного завдання
  4. Варіанти практичного завдання
  5. Визначення та основні завдання пожежної безпеки. Основні терміни.
  6. Визначення та основні завдання техніки безпеки. Основні терміни.
  7. ВИКОНАННЯ ЗАВДАННЯ

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

ЛАБОРАТОРНА РОБОТА №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



End With | End Sub

Процедура MsgBox | Текст процедури | Текст процедури | Результати роботи програми | ЛАБОРАТОРНА РОБОТА №2 | End Function | End Sub | End Sub | ЛАБОРАТОРНА РОБОТА №5 | End Sub |

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