ommandButton1_Click (). Hide.ShowSub
Кнопка «Пошук» викликає форму «Пошук». Алгоритм роботи даної кнопки в конструкції VBA: Sub CommandButton4_Click (). Hide.ShowSub
Кнопка «Вихід» дозволяє завершити роботу з програмою, приховуючи налаштовувану форму. Алгоритм роботи даної кнопки в конструкції VBA: Sub CommandButton3_Click () Sub
таблиця дані програма алгоритм
2.2 Алгоритми додавання даних
Додавання в таблиці відбувається за допомогою спеціальних форм, які містять поля призначені для введення в них відповідної інформації. Після введення необхідно натиснути на одну з кнопок (з січня по грудень), запуститися процедура, яка вносить в таблицю дані з полів форми.
Дані процедури працюють на основі оператора If..Then.
Розглянемо код для кнопки «Січ»: Sub CommandButton5_Click () TextBox6.Text=1 Then Ліст5.Activate=3=i + 1Cells (i, 1)=TextBox1.Text Then=i - 2 ( i + 2, 1)=TextBox1.Text (i + 2, 11)=TextBox2.Text (i + 2, 20)=TextBox3.Text (i + 2, 23)=TextBox4.Text (i + 2, 29) =TextBox5.Text (i + 2, 31)=TextBox6.Text (i + 2, 27)=Cells (i + 2, 29) (i + 2, 24)=Cells (i + 2, 28) * Cells ( i + 2, 29) (i + 2, 7)=Cells (i + 2, 6) * Cells (i + 2, 4) (i + 2, 9)=Cells (i + 2, 8) * Cells ( i + 2, 4) (i + 2, 10)=(Cells (i + 2, 8) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 12)= Cells (i + 2, 11) * Cells (i + 2, 40) (i + 2, 13)=(Cells (i + 2, 11) * Cells (i + 2, 5))/Cells (i + 2 , 3) (i + 2, 15)=Cells (i + 2, 13) * Cells (i + 2, 4) (i + 2, 16)=(Cells (i + 2, 14) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 17)=Cells (i + 2, 11) - (Cells (i + 2, 20) + Cells (i + 2, 23)) (i + 2, 18)=Cells (i + 2, 17) * Cells (i + 2, 4) (i + 2, 19)=(Cells (i + 2, 17) * Cells (i + 2, 5 ))/Cells (i + 2, 3) (i + 2, 21)=Cells (i + 2, 20) * Cells (i + 2, 4) (i + 2, 21)=(Cells (i + 2 , 20) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 24)=Cells (i + 2, 23) * Cells (i + 2, 4) (i + 2, 26)=Cells (i + 2, 25) * Cells (i + 2, 4) (i + 2, 30)=Cells (i + 2, 29) * Cells (i + 2, 4)=i + 2=1IfUntil Cells (i, 2)=Emptya lt; gt; 1 Then=i - 2 (i + 2, 1)=TextBox1.Text (i + 2, 11)=TextBox2.Text (i + 2, 20)=TextBox3.Text (i + 2, 23)=TextBox4.Text (i + 2, 29)=TextBox5.Text (i + 2, 31)=TextBox6.Text (i + 2, 27)=Cells (i + 2, 29) (i + 2, 24)=Cells (i + 2, 28) * Cells (i + 2, 29) (i + 2, 7)=Cells (i + 2, 6) * Cells (i + 2, 4) (i + 2, 9)=Cells (i + 2, 8) * Cells (i + 2, 4) (i + 2, 10)=(Cells (i + 2, 8) * Cells (i + 2, 5))/Cells (i + 2, 3) ( i + 2, 12)=Cells (i + 2, 11) * Cells (i + 2, 40) (i + 2, 13)=(Cells (i + 2, 11) * Cells (i + 2, 5) )/Cells (i + 2, 3) (i + 2, 15)=Cells (i + 2, 13) * Cells (i + 2, 4) (i + 2, 16)=(Cells (i + 2, 14) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 17)=Cells (i + 2, 11) - (Cells (i + 2, 20) + Cells ( i + 2, 23)) (i + 2, 18)=Cells (i + 2, 17) * Cells (i + 2, 4) (i + 2, 19)=(Cells (i + 2, 17) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 21)=Cells (i + 2, 20) * Cells (i + 2, 4) (i + 2, 21) =(Cells (i + 2, 20) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 24)=Cells (i + 2, 23) * Cells (i + 2, 4) (i + 2, 26)=Cells (i + 2, 25) * Cells (i + 2, 4) (i + 2, 30)=Cells (i + 2, 29) * Cells (i + 2, 4)=i + 2=1IfSub
Коди для інших місяців будуть аналогічні коду для кнопки «Січ». Буде лише змінюватися рядок «If TextBox6.Text =« номер місяця »Then Лист« номер відповідного аркуша ».Activate»
Оператор If ... Then перевіряє, чи немає такого ж ключа в даній таблиці (ключ - унікальне значення для рядка, яке однозначно визначає рядок).
Решта процедури також використовують цей оператор і мають схожу структуру програми.
2.4 Алгоритми пошуку
Кнопка «Пошук» на формі «Пошук» служить для пошуку з таблиці «Виливки» дані про кожну з позиції. Результат пошуку відображається на окремих для кожного значення полях. Наприклад, для TextBox2 відповідає значення стовпця «Найменування».
Малюнок 2.3
Код програми пошуку: Sub CommandButton1_Click ()
Ліст1.Activate=i + 1Until Cells (i, 1)=Emptya lt; gt; 1 Then=TextBox7=1If
Ліст1.Activate=i + 1Until Cells (i, 1)=Emptyi=1 To ji=TextBox6.Text.Text=iTextBox6.Text lt; gt; Then.Text=TextBox7IfTextBox7=TextBox6.Text Then.Text=Cells (i + j, 2) IfTextBox7=TextBox6.Text Then.Text=Cells (i + j, 3) IfTextBox7=TextBox6.Text Then.Text=Cells (i + j, 4) IfTextBox7=TextBox6.Text Then.Text=Cells (i + j, 5) IfSub
. Проектування інтерфейсів