Програмування процедур обробки даних для форми в VBA

Хід роботи:

1. Відкрити з персональної папки робочий файл.
2. Перейти на лист “Доходи” та викликати редактор Visual Basic.
3. Відкрити вікно редактора коду для форми “Введення доходів”:

- - натиснути клавішу F7 (або вибрати пункт меню View Þ Code).

1. Оголосити глобальні змінні для форми:

- - у вікні редактора коду встановити параметри загального оголошення змінних так як показано на рис.;

- - записати оголошення глобальних змінних наступним чином:

Option Explicit

Dim Дата As Date

Dim Товар As String

Dim Постачальник As String

Dim Кількість As Integer

Dim Ціна_закупки As Single

1. Перейти у режим редагування форми:

- - натиснути клавішу Shift+F7 (або вибрати пункт меню View Þ Object).

1. Для кнопки “Очистити” записати код програми для очищення всіх полів вводу та полів зі списком

- - виділити кнопку “Очистити” і двічі натиснути на ній лівою кнопкою миші;

- - записати наступний код програми:

' Очистка всіх полів вводу даних

TextBox_Дата.Text = ""

ComboBox_Найменування.Value = ""

ComboBox_Постачальник.Value = ""

TextBox_Кількість.Text = ""

TextBox_Ціна.Text = ""

1. Запустити форму та перевірити правильність роботи записаного коду для кнопки “Очистити”, додавши нові дані.
2. Для кнопки “Додати” записати код програми додавання даних на листі “Доходи”

- - виділити кнопку “Додати” і двічі натиснути на ній лівою кнопкою миші;

- - записати наступний код програми:

Dim Колонка As Integer

Dim Дозвіл_запису As Boolean

'Перевірка чи всі дані введені у форму

'Якщо дані введені неправильно,

'то поля очищуються обробниками помилок кожного з обєктів вводу

Дозвіл_запису = True

If TextBox_Дата.Text = "" Then Дозвіл_запису = False

If ComboBox_Найменування.Text = "" Then Дозвіл_запису = False

If ComboBox_Постачальник.Text = "" Then Дозвіл_запису = False

If TextBox_Кількість.Text = "" Then Дозвіл_запису = False

If TextBox_Ціна.Text = "" Then Дозвіл_запису = False

'якщо не всі дані введно, то проводиться переривання процедури

If Дозвіл_запису = False Then

Exit Sub

End If

'Пошук вільного рядка для запису даних в базу даних

Worksheets("Доходи").Activate

Range("A3").Select

If Range("A3").Value = "" Then

Range("A3").Activate

Else

Range("A3").CurrentRegion.Select

ActiveCell.Offset(Selection.Rows.Count, 0).Activate

End If

'Копіювання форматування клітинок та копіювання формул

With ActiveCell

For Колонка = 0 To 10

.Offset(-1, Колонка).Select

Selection.Copy

.Offset(0, Колонка).Select

ActiveSheet.Paste

Next Колонка

End With

'Очищення рамки, яка залишилася після копіювання

Application.CutCopyMode = False

'Повернення на початок рядка

ActiveCell.Offset(0, (1 - Колонка)).Select

'Занесення в базу даних з форми вводу

With ActiveCell

.Offset(0, 1).Value = Дата

.Offset(0, 2).Value = Товар

.Offset(0, 3).Value = Постачальник

.Offset(0, 4).Value = "шт"

.Offset(0, 5).Value = Кількість

.Offset(0, 6).Value = Ціна_закупки

End With

'очистка всіх полів на формі

CommandButton_Очистити_Click

1. Перед процедурою Private Sub CommandButton_Додати_Click() вставити наступний код процедур обробників помилок:

Private Sub ComboBox_Постачальник_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Постачальник = ComboBox_Постачальник.Text

End Sub

Private Sub ComboBox_Найменування_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Товар = ComboBox_Найменування.Text

End Sub

Private Sub TextBox_Дата_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next

Дата = TextBox_Дата.Text

If Err.Number <> 0 Then

TextBox_Дата.Text = ""

End If

End Sub

Private Sub TextBox_Кількість_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next

Кількість = TextBox_Кількість.Text

If Err.Number <> 0 Then

TextBox_Кількість.Text = ""

'TextBox_Количество.SetFocus

End If

End Sub

Private Sub TextBox_Ціна_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next

Ціна_закупки = TextBox_Ціна.Text

If Err.Number <> 0 Then

TextBox_Ціна.Text = ""

End If

End Sub

1. Запустити форму та перевірити правильність роботи записаного коду, додавши нові дані.
2. Перейти в Excel на робочий лист “Доходи”.
3. Розмістити праворуч від таблиці даних об’єкт “Кнопка”.

- - на панелі “Элементы управления” натиснути на “Кнопка”;

- - при допомозі миші встановити кнопку в необхідному місці;

- - на панелі “Элементы управления” натиснути на “Свойства”, як результат з’явиться вікно властивостей створеної кнопки (Properties);

- - змінити деякі властивості кнопки: колір кнопки (BackColor) – бірюзовий; колір тексту кнопки (ForeColor) – голубий; шрифт тексту кнопки (Font) – Arial, напівжирний; текст кнопки (Caption) – Введення даних;

- - закрити вікно властивостей;

- - змінити розмір кнопки.

1. Записати для кнопки програму виклику форми, яка буде виконуватися при натисненні на кнопці:

- - виділити кнопку і двічі натиснути на ній лівою кнопкою миші;

- - записати наступний код програми:

Доходи.Show

- - виключити режим “Свойства” та режим “Конструктор”

1. Перевірити роботу кнопки.
2. Привітайте себе з успішним вивченням розділу Excel та VBA і вимагайте від викладача залік автоматом.

Поиск по сайту: