Ведомость покупок. 
Информационно-аналитическая система магазина "Игрушки"

На этом листе можно проводить сортировку по коду, по названию товара, по количеству, а также добавление с календарем, поиск и изменение данных. таблица excel access макрос Сортировка Для того чтобы отсортировать таблицу необходимо нажать на кнопку «Сортировка», в результате появиться диалоговое окно. На окне выбрать критерий сортировки, путём нажатия на кнопку. При необходимости можно отменить сортировку, нажатием на кнопку «Отмена».

Добавление с календарём Для того чтобы добавит данные с календарём необходимо нажать на кнопку «Добавление с календарём». В результате чего появиться диалоговое окно.

Програмный код на кнопку «Добавить»:

Private Sub CommandButton1_Click ().

Dim i As Integer, j As Single.

Dim текущая As Object, следующая As Object.

If TextBox1 = «» Or TextBox2 = «» Then.

MsgBox («Введены не все данные!»).

Exit Sub.

End If.

ActiveWorkbook.Sheets («Ведомость покупок»).Select.

Set текущая = ActiveSheet. Range («A11»).

Do While Not IsEmpty (текущая).

Set следующая = текущая. Offset (1, 0).

Set текущая = следующая.

Loop.

текущая.Value = Calendar1.Value.

текущая.Offset (0, 1).Value = ComboBox1.Text.

текущая.Offset (0, 2).Value = TextBox1.Text.

текущая.Offset (0, 3).Value = TextBox2.Text.

текущая.Offset (0, 4).Value = «=VLOOKUP (RC[-3],'Регистрация поступлений'!R10C1:R700C5,4,FALSE)*RC[-1]» .

TextBox1.Text = «» .

TextBox2.Text = «» .

ComboBox1.Text = «» .

End Sub.

В поле со списком «Код товара» выбираем код, автоматически выходит наименование товара соответствующий выбранному коду. Далее вводим количество и нажимаем на кнопку «Добавить».

Особенность такого добавления в том, что продукты в ходе реализации выбирается из списка, который формируется на листе «Прейскурант». Для этой цели в форме создан элемент ComboBox (поле со списком), данные в который попадают из первого столбца таблицы «Регистрация поступлений» (т.е. коды продуктов).

Поиск и изменение данных Для поиска и изменения данных необходимо нажать на кнопку «Поиск и изменение данных», в результате появиться диалоговое окно. После чего, необходимо выбрать в поле со списком конкретный продукт, затем заполняются два текстовых поля соответствующими данными. При нажатии кнопки «Изменить» активизируется другое диалоговое окно, в которой можно изменить количество реализованного продукта. При этом изменённые данные попадают в таблицу на листе «Ведомость покупок» и происходит перерасчет суммы.