Примеры и задания на Visual Basic for Application. Задания для заполнения таблицы расчетными данными. Решение задачи, использующей линейный алгоритм

Примеры и задания на VBA . Нужно написать данные процедуры в модуле,  запустить их на выполнение, проверить результат.

Пример 1 Записать число 5 в ячейку В1 текущего рабочего листа активной рабочей книги.

‘Объявляется процедура с именем programma1- Это комментарий, можно не вводить

Программу (процедуру) лучше создавать через меню  VBA (Insert – Module, Insert-Procedure –имя обязательно с буквы).

Sub programma1()

‘В ячейку В1 записывается число 5

Cells(1,2).Value=5     ‘.Value  можно не писать, это свойство выбирается по умолчанию

‘Окончание работы процедуры programma1

End Sub

Пример 2.  Записать в ячейку D5 текущего рабочего листа активной рабочей книги символы “Test”. Символьная информация всегда в кавычках.

Sub programma4()

Range(“D5”).Value=”Test”

End Sub

Пример 3.  Записать значение  ячейки  А1 (предварительно ввести число) текущего рабочего листа активной рабочей книги в переменную с именем ПроцентнаяСтавка.

Sub programma6()

ПроцентнаяСтавка= Range(“А1”)

End Sub

Эту же процедуру можно записать и так :

Sub programma6()

ПроцентнаяСтавка= Cells(1,1)

End Sub

Задание.  Создать процедуру. В программе записать в ячейку А2 число 4. Выбрать из этой ячейки число в переменную  р,  умножить выбранное число на 3 и записать в ячейку A1.

Ввод-вывод информации в VBA можно организовать в виде диалоговых окон, которые создаются с помощью функций ввода-вывода InputBox и MsgBox.

Пример 4.Создайте программу для ввода и вывода стоимости товара.

Sub ВводВывод()

‘ Формирование окна диалога, содержащее

‘ сообщение «Введите стоимость товара»,

‘ поле для ввода информации,

‘ заголовок окна «Ввод стоимости товара»

‘ и запись введенной стоимости товара в переменную Стоимость

Стоимость=InputBox(“Введите стоимость товара”)

‘ Формирование окна диалога, содержащее

‘ сообщение «Вы ввели стоимость товара, равную »,

‘ значение введенной стоимости,

‘ кнопку ОК,

‘ заголовок окна «MicrosoftExcel»

MsgBox “ Вы ввели стоимость товара, равную “  & Стоимость

End Sub

Примечание. В структуре функции MsgBox используется знак конкатенации  &, обрамленную с двух сторон пробелами, для слияния текстовой строки и числового значения стоимости.

Пример 5.Создайте программу для ввода исходных данных, расчета и заполнения ЭТ.

Sub СтоимостьТовара()

Range("A3") = InputBox("Введите наименование товара")

Range("B3") = Val(InputBox("Введите цену товара")

Range("C3") = Val(InputBox("Введите количество товара")

'запись вычисленной стоимости в ячейку D3

Range("D3") = Range("B3") * Range("C3")

End Sub

Примечание. Для ввода чисел с десятичной точкой используется разделитель точка (.). Например, 6.4.

Задания для заполнения таблицы расчетными данными из программы (вариант по № компьютера). Таблицу предварительно создать в EXCEL.

Вариант 1

Определите стоимость отправленных и возвращенных изделий и общую стоимость возвращенных изделий.

Наименование изделия	Цена (руб.)	Количество		Стоимость
		отправлено	возвращено	отправлено	возвращено
А	14	1480	50
С	23	1740	80
D	17	1150	40
Итого	X

Вариант 2

Определите объем и стоимость реализации продукции, урожайность с гектара и общий объем реализации продукции в центнерах. Объем реализации составляет 85 % валового сбора.

Овощные культуры	Цена реализа-ции, (1 ц/га)	Валовой сбор, (ц)	Размеры посевных площадей, (га)	Объем реализации продукции, (ц)	Стоимость реализации,(руб.)	Урожай-ность
Помидоры	13,92	38319	312
Свекла	6,38	1064	65
Капуста	6,18	989	89
Итого	X

Вариант 3

Рассчитайте потребность в материалах на выполнение производственной программы по всем видам изделий.