АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. A) способом формирования банковских ресурсов из недепозитных источников
  2. A) это основные или ведущие начала процесса формирования развития и функционирования права
  3. A. формируется фотохимический туман
  4. Cущность, виды, источники формирования доходов. Дифференциация доходов населения.
  5. D. Визначення енергетичної цінності та нутрієнтного складу добового раціону на підставі статистичної обробки меню-розкладок
  6. D. Формирование структуры отдела
  7. E) формирование правительства из членов партии, располагающих большинством мест в Парламенте
  8. I. Подготовка к процедуре
  9. I. Подготовка к процедуре.
  10. I. Подготовка к процедуре.
  11. I. Подготовка к процедуре.
  12. I. Подготовка к процедуре.

Хід роботи:

  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 і вимагайте від викладача залік автоматом.

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 |

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



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.006 сек.)