удуть посилання на номери стовпців вибраного діапвзона. p align="justify"> Створити процедуру ініціалізації для відкриття форми: Sub UserForm_Initialize (). ShowSub
Заповнити рядок найменування полів таблиці з застосуванням необхідних властивостей і методів для зазначеного діапазону. У прикладі (див. нижче) вибраний діапазон B2: К23, в якому буде розташовуватися протокол - таблиця, з рядком 2 в діапазоні B2: К2 для заголовків. br/>В
Код програми:
Private Sub CommandButton1_Click () ("B2: K2"). Clear ("B2: K2"). BorderAround Weight: = xlThick ("B2: K2"). VerticalAlignment = xlCenter ( "B2: K2"). HorizontalAlignment = xlCenterRange ("B2: K2")
'ActiveSheet
. WrapText = TrueWithi = 2 To 11 (2, i). Value = InputBox ("Ввести найменування поля")
Next iSubSub CommandButton2_Click () 2.Hide
End Sub
Створення форми щодо заповнення таблиці
Порядок роботи:
- Створити форму зазначеним раніше способом.
Впровадити у форму текстові поля (TextBox), Label (мітки), кнопки (див. нижче)
Заповнити/додати таблицю значеннями по полях. При зверненні до кожного полю необхідна перевірка на В«пустоВ» у початковій комірці рядка. Це виконує наступний фрагмент процедури у процедурі обробки подій по першій кнопці:
Застосувати в даній процедурі до обраному діапазону відповідні властивості та методи
В
Код програми:
Sub UserForm_Initialize () ComboBox1
. AddItem "OOO Строймаркт"
. AddItem "Еко-буд"
. AddItem "ФінСейл"
. AddItem "ТОВ Еверест"
. AddItem "Future Design"
. AddItem "Cotton"
. AddItem "Модуль Форм"
. AddItem "І-Кар"
. AddItem "ТОВ Каст-буд"
End WithSubSub CommandButton1_Click () Range ("B3: K30") i = 2 To 30Cells (i, 2) = Empty Then (i, 2) = Val (TextBox1) (i, 3) = (TextBox2) (i, 4) = Val (TextBox3) (i, 5) = Val (TextBox4) (i, 6) = (ComboBox1) (i, 7) = (TextBox6) (i, 8) = (TextBox7 ) (i, 9) = (TextBox8) (i, 10) = (TextBox9) (i, 11) = Val (TextBox10) ForIfiWithSubSub CommandButton2_Click (). HideSubSub UserForm_Click () Sub
visual basic таблиця форма
В
Заповнена таблиця
Висновок
При підготовці курсової роботи, я закріпила знання з основ програмування в VBA, працюючи з об'єктами в додатках Microsoft Office. Практичні завдання допомогли мені вдосконалити навички володіння цими програмами. По ходу написання програмних кодів, ...
