Учет реализации товаров

На листе Учет реализации товаров расположена таблица, содержащая следующие данные:

1. Отдел

2. Ф.И.О. продавца

3. Дата продажи

4. Код товара

5. Наименование товара

6. Количество проданного товара

7. Выручка

Кнопки, используемые на листе «Учет реализации товаров»

1. Кнопка «Титульный лист».

При нажатии на кнопку «Титульный лист» появляется главное меню управления программой.

2. Кнопка «Сортировка».

При нажатии на кнопку «Сортировка» выводится пользовательская форма «Сортировка», предназначенная для сортировки товаров по ниже перечисленным разделам:

• Отдел

• Ф.И.О. продавца

• Дата продажи

• Код товара

• Наименование

• Количество проданного товара

• Выручка

При нажатии кнопки Отмена форма закрывается.

Программный год для кнопки «Сортировка»

Private Sub CommandButton1_Click()

Range("A5").Select

Selection.Sort Key1:=Range("D7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton2_Click()

Range("A5").Select

Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton3_Click()

Range("A5").Select

Selection.Sort Key1:=Range("F7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton4_Click()

UserForm7.Hide

End Sub

Private Sub CommandButton5_Click()

Range("A5").Select

Selection.Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton6_Click()

Range("A5").Select

Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Private Sub CommandButton7_Click()

Range("A5").Select

Selection.Sort Key1:=Range("G7"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

3. Кнопка «Поиск и изменение».

При нажатии на кнопку «Поиск и изменение» выводится пользовательская форма «Поиск данных», предназначенная для поиска товаров по указанной дате.

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

Программные для этой формы следующие:

Private Sub CommandButton1_Click()

UserForm8.Show

End Sub

Private Sub ComboBox1_Change()

` эта процедура очищает ранее заполненные поля формы, и после выбора из списка конкретную дату, заполняет соответствующими названиями товаров ListBox1

ListBox1.Clear

TextBox1.Text = ""

TextBox2.Text = ""

1 For sss = 2 To 5000

If ComboBox1.Text = Sheets("Учет реализации товаров").Cells(sss, 1).Text Then ListBox1.AddItem Sheets("Учет реализации товаров").Cells(sss, 3).Text

Next

End Sub

Private Sub CommandButton1_Click()

` эта процедура для кнопки «Изменить». После выбора конкретного товара,заполняются его данные в текстовых полях в форме «Изменение данных»

If ListBox1.Text = "" Then MsgBox "Выберите дату реализации продукта": Exit Sub

UserForm9.TextBox1.Text = UserForm8.ListBox1.Text

UserForm9.TextBox2.Text = UserForm8.TextBox2.Text

Dim ddd

UserForm8.Hide

UserForm9.Show

End Sub

Private Sub CommandButton2_Click()

UserForm8.Hide

End Sub

Private Sub ListBox1_Click()

For i = 2 To 8000

If ListBox1.Text = Sheets("Учет реализации товаров").Cells(i, 3).Text Then

TextBox1.Text = Sheets("Учет реализации товаров").Cells(i, 3).Text

TextBox2.Text = Sheets("Учет реализации товаров").Cells(i, 4).Text

Label5.Caption = i

End If

Next

End Sub

Private Sub UserForm_Activate()

Sheets("Учет реализации товаров ").Select

Range("A1:C8000").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

1 For ads = 2 To 8000

If Sheets("Учет реализации товаров ").Cells(ads, 1).Text = "" Then Exit Sub

If Sheets("Учет реализации товаров ").Cells(ads, 1).Text = Sheets("Учет реализации товаров ").Cells(ads + 1, 1).Text Then GoTo 3

ComboBox1.AddItem Sheets("Учет реализации товаров ").Cells(ads, 1).Text

3 Next

End Sub

Private Sub CommandButton1_Click()

ddd = UserForm8.Label5.Caption

Worksheets("Учет реализации товаров ").Cells(ddd, 4) = TextBox2.Text

End Sub

Private Sub CommandButton2_Click()

Sheets("Учет реализации товаров ").Select

Range("A1:C800").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Unload UserForm9

Unload UserForm8

Load UserForm8

UserForm8.Show

End Sub

Private Sub CommandButton3_Click()

UserForm9.Hide

End Sub