Створення процедур і функцій VBA в Excel, передача параметрів процедур і функцій
Завдання 1:
Створіть в модулі Module 1 особистої книги макросів Personal. xls нову функцію fMultiply (). яка б:
· Приймала як входять параметрів два числа;
· Перемножуємо їх і повертала отримане значення.
Завдання 2:
Створіть в цьому ж модулі макрос Макрос5_1 з наступним кодом:
Public Sub Макрос5_1 ()
Dim nMult1 As Integer
Dim nMult2 As Integer
Dim nResult As Integer
nMult 1 = CInt (InputBox ( "Введіть перше число:"))
nMult 2 = CInt (InputBox ( "Введіть друге число:"))
Змініть процедуру Макрос5_1 таким чином, щоб вона передавала значення змінних nMult1 і nMult2 функції fMultiply () і брала від неї значення для змінної nResult (це значення має використовуватися замість жорстко певного значення 10).
Запустіть Макрос5_1 на виконання і переконайтеся, що значення передаються функції fMutliply () і приймаються від неї відповідно до завдання.
Рішення до завдання 1:
1. Запустіть Excel і натисніть
Public Function fMultiply (nM1 As Integer, nM2 As Integer)
fMultiply = nM1 * nM2
Рішення до завдання 2:
Код для макросу Макрос5_1 () може виглядати так (змінений код виділений напівжирним):
Public Sub Макрос 5_1 ()
Dim nMult1 As Integer
Dim nMult2 As Integer
Dim nResult As Integer
nMult 1 = CInt (InputBox ( "Введіть перше число:"))
nMult 2 = CInt (InputBox ( "Введіть друге число:"))
nResult = fMultiply (nMult1, nMult2)