грами.
Умовне обозначеніеНазваніе кнопки в конструкції VBA1Cmb_togo_UF22Cmb_togo_UF43Cmb_togo_UF54Cmb_togo_UF85Cmb_End
Кнопка Наявні товари відкриває налаштовувану форму Наявні товари raquo ;. Алгоритм роботи даної кнопки в конструкції VBA:
Sub Cmb_togo_UF2_Click (). Hide приховати активне окно.Show показати 4-е окноSub.
Кнопка Продати товари відкриває налаштовувану форму Продати товари raquo ;. Алгоритм роботи даної кнопки в конструкції VBA:
Sub Cmb_togo_UF4_Click (). Hide приховати активне окно.Show показати 4-е окноSub
Кнопка Про програму відкриває налаштовувану форму Про програму raquo ;. Алгоритм роботи даної кнопки в конструкції VBA:
Sub Cmb_togo_UF5_Click (). Hide приховати активне окно.Show показати 5-е окноSub
Кнопка Довідка відкриває налаштовувану форму Довідка raquo ;. Алгоритм роботи даної кнопки в конструкції VBA:
Sub Cmb_togo_UF8_Click (). Hide приховати активне окно.Show показати 8-е окноSub
Кнопка Вихід закінчує роботу програми і виходить з неї. Алгоритм роботи даної кнопки в конструкції VBA:
Sub Cmb_End_Click () Sub
При включенні головної форми відбувається її операція ініціалізації, в процесі якої таблиці 1 задається колір шапки, і операція активації, в процесі чого активується 1я таблиця і сортується по 1му стовпцю. Алгоритм даних операцій в конструкції VBA відповідно:
(Для ініціалізації)
Sub UserForm_Initialize () ( Наявні товари ). Range (Cells (1, 1), Cells (1, 7)). SelectSelection.Interior=xlGray16=xlAutomatic=49407=0=0WithSub
(Для активації)
Sub UserForm_Activate ()
включаємо функцію сортування перед зміною форми ( Наявні товари ). Activatei As ByteshR As VariantshR=ThisWorkbook.Worksheets ( Наявні товари ). Range ( A1 ). Activate шапка таблиці=32000r As Range 'діапазон комірок таблиці з шапкойr=Range (shR.Cells (1, 1), shR.Cells (i, 7)). Sort key1:=r.Cells (2, 1), key2 :=r.Cells (2, 2), key3:=r.Cells (2, 3), Header:=xlYesSub
. 2 Алгоритми додавання даних
Рис. 4.
Кнопка Додати форми Наявні товари переходить до користувальницького вікна введення даних raquo ;. Алгоритм роботи даної кнопки в конструкції VBA:
Private Sub Cmb_Add_Items_Click ()
UF2.Hide.ShowSub
Форма містить елемент Listbox (I_tovar), яка за допомогою методу Activate завантажується даними таблиці 1. Алгоритм в конструкції VBA:
Sub UserForm_Activate ()
Ліст1.Activatei As Integer, n As Byte_tovar.MultiSelect=fmMultiSelectExtendedI_tovar=7 'кількість колонок
ColumnWidths= 130,80,80,80,80,90,80 'ширина столбцовi=2 To 32000
If Cells (i + 1, 1)= Then
AddItem Cells (i, 1) (I_tovar.ListCount - 1, 1)=Cells (i, 2) (I_tovar.ListCount - 1, 2)=Cells (i, 3) (I_tovar. ListCount - 1, 3)=Cells (i, 4) (I_tovar.ListCount - 1, 4)=Cells (i, 5) (I_tovar.ListCount - 1, 5)=Cells (i, 6) (I_tovar.ListCount -1, 6)=Cells (i, 7)
Exit Sub
AddItem Cells (i, 1) (I_tovar.ListCount - 1, 1)=Cells (i, 2) (I_tovar.ListCount - 1, 2)=Cells (i, 3) (I_tovar. ListCount - 1, 3)=Cells (i, 4) (I_tovar.ListCount - 1, 4)=Cells (i, 5) (I_tovar.ListCount - 1, 5)=Cells (i, 6) (I_tovar.ListCount -1, 6)=Cells (i, 7)
End IfWithSub
Кнопка Друк виводить всі дані, що знаходяться в LISTBOXе (I_tovar) користувальницького вікна Наявні товари на друк. Алгоритм роботи даної кнопки в конструкції VBA:
Private Sub Cmb_Print_Click ()
'висновок на друк ( Аркуш2 ). PrintOutSub
Кнопка Назад виходить на попередню налаштовувану форму. Алгоритм роботи даної кнопки в конструкції VBA:
Sub Cmb_Nazad_Click (). Hide.ShowSub
Кнопка Вихід виходить з програми. Алгоритм роботи даної кнопки в конструкції VBA:
Private Sub Cmb_End_Click () Sub
Рис. 5.
Форма Введення даних (рис. 5) має 6 текстових вікон для введення даних про товар, після заповнення яких необхідно натиснути кнопку Додати для збереження даних.
Алгоритм роботи кнопки Дод...