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

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


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

2. Знакомство с редактором Visual Basic. Принципы создания собственных макросов

Лабораторная работа 2.1 Редактирование макроса и работа со справкой

Редактирование макроса VBA в Excel, файл PERSONAL.XLS, стандартные модули VBA, функция InputBox(), справка по функциям VBA

Задание 1:

Найдите созданный вами на предыдущей лабораторной работе макрос ОтвИсп и измените его таким образом, чтобы при запуске он выдавал окно сообщения, в котором запрашивалась бы фамилия ответственного исполнителя, аналогичное представленному на рис:

Для этого замените в своем макросе строку

ActiveCell.FormulaR1C1 = "Отв. Исп. Петрова М.М."

на строки

ActiveCell.FormulaR1C1 = InputBox("Введите фамилию ответственного исполнителя", _

"Ввод данных", "Отв. Исп. Петрова М.М.")

Сохраните изменения, внесенные в макрос, и убедитесь, что он работает в соответствии с заданием.

Примечание:

Код, который вы вводите в этой лабораторной работе, скорее всего, будет вам непонятен. Почему код выглядит именно так, мы узнаем в следующих разделах. Цель данной лабораторной работы — познакомиться со структурой проекта VBA и с приемами редактирования кода.

Задание 2:

Найдите справку по функции InputBox(), которая используется в этом примере и прочитайте ее.

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

1. Откройте Excel и нажмите на клавиши Alt-F11. Откроется окно редактора Visual Basic. Найдите окно Project Explorer (в левом верхнем углу). В этом окне раскройте узел VBAProject (PERSONAL.XLS) | Modules и щелкните два раза мышью по модулю Module1, чтобы он открылся в окне редактора кода справа.

2. В окне редактора кода найдите строку

ActiveCell.FormulaR1C1 = "Отв. Исп. Петрова М.М."

и впишите вместо нее две строки

ActiveCell.FormulaR1C1 = InputBox("Введите фамилию ответственного исполнителя", _

"Ввод данных", "Отв. Исп. Петрова М.М.")

Примечание:

Если такой строки вы не найдете  (это зависит от того, как вы выполняли предыдущую лабораторную работу) обратитесь за помощью к преподавателю.

3. Сохраните измененный вами макрос и закройте окно редактора Visual Basic.

4. Для проверки нажмите на клавиши Ctrl+Shift+M и убедитесь, что макрос работает в соответствии с заданием.

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

Это задание можно выполнить тремя способами:

Вариант 1:

В окне редактора кода установите курсор ввода на слове InputBox и нажмите на кнопку F1. Откроется окно справки по функции InputBox().

Вариант 2:

Нажмите на кнопку с вопросительным знаком на панели инструментов Standard. Затем в поле Поиск введите InputBox и нажмите на стрелку справа. В списке найденных результатов щелкните по строке InpuBox Function (Visual Basic for Applications).

Вариант 3:

Нажмите на кнопку с вопросительным знаком на панели инструментов Standard. Затем  раскройте узел Microsoft Visual Basic Documentation | Visual Basic Language Reference | Functions | L и щелкните по строке InputBox Function.

 

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

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


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

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