Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Excel для пользователей
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

5. Понятие процедур и функций. Создание собственных макросов

Лабораторная работа 5.1 Создание процедур и функций. Передача параметров

Создание процедур и функций VBA в Excel, передача параметров процедурам и функциям

Задание 1:

Создайте в модуле Module1 личной книги макросов Personal.xls новую функцию fMultiply(), которая бы:

·                принимала в качестве входящих параметров два числа;

·                перемножала их и возвращала полученное значение.

Задание 2:

Создайте в этом же модуле макрос Макрос5_1 со следующим кодом:

Public Sub Макрос5_1()

    Dim nMult1 As Integer

    Dim nMult2 As Integer

    Dim nResult As Integer

    nMult1 = CInt(InputBox("Введите первое число: "))

    nMult2 = CInt(InputBox("Введите второе число: "))

    nResult = 10

    MsgBox nResult

End Sub

Измените процедуру Макрос5_1 таким образом, чтобы она передавала значения переменных nMult1 и nMult2 функции fMultiply() и принимала от нее значение для переменной nResult (это значение должно использоваться вместо жестко определенного значения 10).

Запустите Макрос5_1 на выполнение и убедитесь, что значения передаются функции fMutliply() и принимаются от нее в соответствии с заданием.

Решение к заданию 1:

1.     Запустите Excel и нажмите <Alt>+<F11>. В окне Project Explorer раскройте узел VBAProject (PERSONAL.XLS) | Modules и щелкните два раза левой кнопкой мыши на строке Module1.

2.     Вставьте в модуль Module1 в окне редактора кода следующие строки для функции fMultiply():

Public Function fMultiply(nM1 As Integer, nM2 As Integer)

    fMultiply = nM1 * nM2

End Function

Решение к заданию 2:

Код для макроса Макрос5_1() может выглядеть так (измененный код выделен полужирным):

Public Sub Макрос5_1()

    Dim nMult1 As Integer

    Dim nMult2 As Integer

    Dim nResult As Integer

    nMult1 = CInt(InputBox("Введите первое число: "))

    nMult2 = CInt(InputBox("Введите второе число: "))

    nResult = fMultiply(nMult1, nMult2)

    MsgBox nResult

End Sub

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru