Как да създадете формуляри с Excel

Отворете книга в Excel. Ако знаете в коя книга искате вашата форма да бъде, тогава сега е времето да я отворите. Използвайте менюто Файл за достъп до книгата.

Кликнете върху менюто "Инструменти", изберете "Макро" и кликнете върху "Редактор на Visual Basic".

Кликнете върху "Вмъкване" и след това изберете "UserForm".

Преместете с мишката командния бутон към формуляра. За този пример се нуждаете от поне три от тях.

Дайте име на командните бутони и етикетите. Кликнете върху прозореца "Преглед" и "Свойства". Кликнете върху един от командите, които сте поставили във формуляра.

Напишете командния бутон, който ще прочете "OK", като кликнете върху настройките за име в прозореца "Свойства" и напишете "cmdOK". Кликнете върху настройката "Легенда" в прозореца "Свойства" и въведете "OK".

Кликнете върху друг команден бутон. Поставете името "cmdCancel" и задайте заглавието, за да прочетете "Cancel" в прозореца Properties.

Кликнете върху третия команден бутон и го наименувайте "cmdClearForm" и променете настройките за заглавието, за да прочетете "Изтриване на формуляр"

Натиснете клавиша "F7" на клавиатурата, за да изведете прозореца на кода.

Кликнете върху падащия списък в горната част на прозореца с кода. Кликнете върху списъка в горния ляв ъгъл, за да отворите подпрограмата, наречена "Потребителски формуляр", и кликнете върху другия падащ списък, за да изберете "Старт".

Премахнете гореспоменатата подпроцедура, която гласи: UserForm_Click ().

Напишете следния код в прозореца на кода (не пишете на синия текст, просто добавете текста в черно): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" С cboDepartment .AddItem "Служители ".AddItem" Мениджъри "Край с YourCourse.Value =" "optIntroduction = Истинско chkWork = False chkVacation = False txtName.SetFocus End Sub

Въведете кода на бутона "Отказ". Щракнете двукратно върху бутона Отказ, за ​​да отворите прозореца на кода. Въведете кода си така, че прозорецът на кода да прочете: Частен Sub cmdCancel_Click () Unload Me End Sub

Отворете прозореца с кода за бутона "Изтриване на формуляр". Не забравяйте да кликнете два пъти върху "Изтриване на формуляр".

Въведете кода си в прозореца на кода, за да прочетете: Private Sub cmdClearForm_Click () Call UserForm_Initialize End Sub

Щракнете двукратно върху бутона "Accept", за да добавите следния код в прозореца на кода: Private Sub cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboДруга (1, 0) Избор на края Ако Loop До IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value .Value ActiveCell.Offset (0, 3) = cboCourse.Value Ако optIntroduction = True тогава ActiveCell.Offset (0, 4) .Value = "Enter" ElseIf optIntermediate = True Тогава ActiveCell.Offset (0, (0, 5) .Value = "Да" Else ActiveCell.Offset (0, 4) .Value = "Адв" Край Ако Ако chkLunch = True След това ActiveCell.Offset (0, 6) .Value = "Да" Други Ако chkVacation = False След това ActiveCell.Offset (0, 6) .Value = "" Друг ActiveCell.Offset (0, 6) .Value = "Не" Край Ако завърши Ако диапазон ("A1")