Задание №1 Для данных, представленных в заданной таблице, вывести на лист список товаров фирмы HP и их цену.

Рассмотрим таблицу. Данные о поставщике записаны во втором столбце, начиная со второй строки. Будем просматривать второй столбец, и, если мы встретим значение равное “ HP ”, выводить на лист название товара и его цену, а также итоговую сумму.

Эта задача реализует алгоритмы:

· вывода списка элементов, удовлетворяющих определенному условию;

· подсчета суммы элементов, удовлетворяющих определенному условию;

· подсчета количества элементов, удовлетворяющих определенному условию.

При решении задачи применяются конструкции:

· For Next

· If then

Else

End if

· With

End With

1. Переименуйте Лист1 в «Задача»
2. Создайте таблицу Товар- Поставщик- Цена.
3. Перейдите в VBA.
4. Создайте модуль.
5. Создайте процедуру с именем HP.
6. Составьте макрос формирования списка:

Public Sub HP()

Dim I As Integer, y As Integer, S As Integer, j As Integer

‘Переменная для подсчета количество единиц товара фирмы HP

y = 0

‘Переменная для накопления суммы

S = 0

‘Переменная для формирования номера строки товара в списке

j=1

‘Открываем цикл с параметром цикла I (номер строки), изменяющимся от 2 до 100 (предполагаем, что количество товара могут занимать строки от 2 до 100)

With Sheets(“Задача”)

For I = 2 To 100

If. Cells(I, 2) = "HP" Then

‘Переносим на лист содержимое таблицы, удовлетворяющие условию

j=j+1

.Cells(j, 6) =.Cells(I, 1)

.Cells(j, 7) =.Cells(I, 3)

S = S +.Cells(I, 3)

y = y + 1

End If

Next I

‘Проверка наличия товара фирмы HP

If y > 0 Then

.Cells(1, 6) = "Товар"

.Cells(1, 7) = "Цены"

.Cells(j + 1, 6) = "Итого"

.Cells(j + 1, 7) = S

.Cells(j + 2, 6) = "Количество единиц товара фирмы"

.Cells(j + 2, 7) = y

Else

.Cells(1, 6) = "Такого товара нет"

End If

End With

End Sub

1. Запишите макро-рекордер «Очистка» для удаления списка.

Программа:

Макрос записан с помощью макро-рекордера

Sub Очистка()

' Очистка Макрос

'

Range("E1:H21").Select

Selection.ClearContents

End Sub

1. Подготовьте два графических объекта.
2. Назначьте им подготовленные макросы.
3. Проверьте работоспособность макросов.
4. На листе у Вас должно получиться:

1. Сохраните работу, результат предъявите преподавателю.

Не нашли, что искали? Воспользуйтесь поиском: