Створення процедур і функцій vba в excel, передача параметрів

Створення процедур і функцій 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 і натисніть +. У вікні ProjectExplorer розкрийте вузол VBAProject (PERSONAL .XLS) | Modules і клацніть два рази лівою кнопкою миші на рядку Module 1.

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)

Схожі статті