( Аркуш2 ). Cells (i + 1, 7) IfIf. Hide.ShowIfSub
Також текстове поле Textbox4 має обмеження на введення і може приймати тільки числові значення. Алгоритм в конструкції VBA:
Sub TextBox4_KeyDown (ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) KeyCode=vbKeyV And Shift=2 Then=0IfSubSub TextBox4_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) InStr ( 0123456789 raquo ;, ChrW (KeyAscii))=0 Then=0IfSub
Кнопка Назад виходить на користувальницьку форму Продати товари .
Алгоритм даної кнопки в конструкції VBA:
Sub Cmb_Nazad_Click (). Hide.ShowSub
Кнопка laquo; Вихід виходить з програми. Алгоритм даної кнопки в конструкції VBA: Sub Cmb_End_Click () Sub
Рис. 8.
Користувацька форма Бланк друку товарів, готових до продажу має об'єкт Listbox1, який завантажує список продаваних товарів з табліци2, а так само 3 кнопки: Друк raquo ;, Назад і Вихід .загружается методом Activate даними з таблиці 2.
Алгоритм в конструкції VBA:
Private Sub UserForm_Activate ()
Ліст2.Activatei As Integer.MultiSelect=fmMultiSelectExtendedListBox1=7 кількість колонок= 130,80,80,80,80,90,80 ширина столбцовi=2 To 32000Cells (i + 1, 1)= Then
AddItem Sheets (2) .Cells (i, 1) (ListBox1.ListCount - 1, 1)=Sheets (2) .Cells (i, 2) (ListBox1.ListCount - 1, 2) =Sheets (2) .Cells (i, 3) (ListBox1.ListCount - 1, 3)=Sheets (2) .Cells (i, 4) (ListBox1.ListCount - 1, 4)=Sheets (2) .Cells ( i, 5) (ListBox1.ListCount - 1, 5)=Sheets (2) .Cells (i, 6) (ListBox1.ListCount - 1, 6)=Sheets (2) .Cells (i, 7)
Exit Sub
AddItem Sheets (2) .Cells (i, 1) (ListBox1.ListCount - 1, 1)=Sheets (2) .Cells (i, 2) (ListBox1.ListCount - 1, 2) =Sheets (2) .Cells (i, 3) (ListBox1.ListCount - 1, 3)=Sheets (2) .Cells (i, 4) (ListBox1.ListCount - 1, 4)=Sheets (2) .Cells ( i, 5) (ListBox1.ListCount - 1, 5)=Sheets (2) .Cells (i, 6) (ListBox1.ListCount - 1, 6)=Sheets (2) .Cells (i, 7)
End IfWithSub
склад товар алгоритм інтерфейс
Кнопка Друк виводить готові дані на друк. Алгоритм даної кнопки в конструкції VBA:
Private Sub Cmb_Print_Click ()
'висновок на друк ( Аркуш2 ). PrintOutSub
Кнопка Вихід виходить з програми. Алгоритм даної кнопки в конструкції VBA:
Private Sub Cmb_End_Click () Sub
Кнопка Назад виводить на попереднє користувальницьке вікно .. Алгоритм даної кнопки в конструкції VBA:
Sub Cmb_Nazad_Click (). Hide.ShowSub
Рис. 9.
Користувацька форма Наявні товари має функцію зміни рядка.
Алгоритм даної кнопки в конструкції VBA:
Private Sub CommandButton8_Click ()
Ліст3.Activate
Ліст3.Range (Cells (2, 1), Cells (3, 7)). Select.ClearContents
створюємо новий список із даної табліциi As Integer, r As Integer, j As Integer=2 початок по строкамi=0 To Me.I_tovar.ListCount - 1Me.I_tovar.Selected (i) Thenj=0 To Me.I_tovar.ColumnCount - 1 ( Ліст3 ). Cells (r, j + 1)=Me.I_tovar.List (i, j)=r + 1If.ShowSub
Рис. 10.
На цьому етапі вбиваються нові дані, причому 3 текстових поле приховані для зміни або обмежені ім.Затем натискається кнопка Зберегти і нові дані міняють старі.
Алгоритм даної кнопки в конструкції VBA:
Sub CommandButton1_Click ()
Dim n1 As Variant, n2 As Variant, n3 As Variant, n4 As Variant, n5 As Date, n6 As Variant
Dim i As Integer, n As Byte, j As IntegerK As IntegerTextBox1.Text=Empty Or TextBox2.Text=Empty Or TextBox3.Text=Empty Or TextBox4.Text=Empty Or TextBox5.Text=Empty Or TextBox6.Text=Empty ThenMsgBox ( не всі поля заполнени.Ви не обрали змінювану рядок на попередньому етапі! raquo ;, vbInformation) вихід вікна оповещеніяSub якщо не всі поля заповнені, то достроковий вихід з собитіяIf
TextBox5.Value=TextBox3.Value * TextBox4.Value
Worksheets ( Наявні товари ). Activate ( Ліст3 ). Cells (3, 1)=TextBox1.Text ( Ліст3 ). Cells (3, 2)=TextBox2.Text ( Ліст3 ). Cells (3, 3)=TextBox3.Text ( Ліст3 ). Cells (3, 4)=TextBox4.Text ( Ліст3 ). Cells (3, 5)= TextBox5.Text ( Ліст3 ). Cells (3, 7)=TextBox6.Text ( Ліст3 ). Cells (3, 6)=TextBox7.Text=2Work...
