Екцел ВБА кориснички образац
Кориснички образац у ВБА су прилагођени кориснички дефинисани обрасци који су направљени тако да узимају унос од корисника у формату обрасца, он има различите скупове контрола за додавање, као што су оквири за текст, ознаке у пољу за потврду итд. Да би водили корисника да унесе вредност и вредност чува у радном листу, сваки део корисничког обрасца има јединствени код.
Усерформ је објекат унутар Екцел интерфејса и унутар овог корисничког обрасца можемо створити друге корисне прилагођене дијалошке оквире да бисмо податке добили од корисника. Када радите са макро датотеком коју је креирао ваш старији или се може преузети са Интернета, сигурно сте видели овакав кориснички образац.
У овом чланку ћемо вам показати како да направите сличан кориснички образац за чување података од корисника.
Како направити кориснички образац?
Као што на сличан начин убацујете нови модул, потребно је да кликнете на дугме ИНСЕРТ у програму Висуал Басиц Едитор да бисте уметнули Усерформ.
Чим кликнете на ово, биће убачен и кориснички образац.
Пре него што вам кажем како да ово програмирате, показаћу вам како да форматирате овај кориснички образац.
Форматирање корисничког облика
Одабиром корисничког обрасца притисните тастер Ф4, показаће вам се прозор са својствима.
Помоћу овог прозора својстава можемо форматирати овај кориснички образац. Можемо то именовати. Можемо променити боју, стил обруба итд.…
Овако, испробајте друга својства да бисте стекли поглед на кориснички облик.
Сада за овај кориснички образац убаците Тоолбок.
Сад ћемо видети овакав алат.
Тренутно је кориснички образац само уметнут, а не програмиран. Да бисте знали како то ради, само кликните на дугме за покретање. Образац ћемо видети на радном листу Екцела.
Сада користимо ознаку за цртање ТоолБок.
Унесите текст као име запосленог унутар налепнице.
За ову ознаку, тако да можемо форматирати користећи својства. Сада смо текст унели као „Име запосленог:“, сада то можемо видети у прозору својстава под насловима.
Уметните још једну етикету. Да бисте уметнули још једну налепницу, можете кликнути на оквир са алаткама или повући тренутну ознаку држањем тастера Цтрл . Имаћете копију тренутне налепнице.
Сада ћемо имати исту ознаку.
Промените име у ИД запосленог.
Сада слично уметните још једну етикету и назовите је као „Одељење“.
Сада из оквира са алаткама убаците оквир за текст.
Назовите овај оквир за текст именом ЕмпНаме у прозору својстава.
Овако, убаците још два поља за текст из ИД-а запосленика и одељења. Именујте та поља за текст према њиховом наслову.
Слично томе, урадите то за Одељење.
Сада из оквира са алаткама уметните дугме Цомманд.
Промените име командног дугмета у „СубмитБуттон“ и промените наслов у „Субмит“.
Insert one more button and call it “Cancel.”
Now just to see run, press the run button or use the F5 key and see how your userform looks like in Excel.
Now it is coming to the shape.
VBA Code
Now the user will enter data in this, so we need to program this to store the data entered by the user on this form.
Double click on the SUBMIT button, it will take you to the macro window with an auto-created macro like the below.
It says SubmitButton click, remember we had given a name for the SUBMIT button as SubmitButton.
So, whenever we want to call this button, we can call this by this name (submit button). Inside this macro, copy and paste the below code.
Code:
Private Sub SubmitButton_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Value = EmpName.Value Cells(LR, 2).Value = EmpID.Value Cells(LR, 3).Value = Dept.Value EmpName.Value = "" EmpID.Value = "" Dept.Value = "" End Sub
- EmpName.Value here EmpName is the text box name we had given while creating the employee name text box.
- EmpID.Value here EmpID is the text box name of the Employee ID text box.
- Dept.Value this is the department text box name.
So, on the click on the submit button, it will store the values in the mentioned cells.
Now double click on the Cancel button. This will also show you the auto macro name like this.
Copy the below code and paste.
Code:
Private Sub CancelButton_Click() MyUserForm.Hide End Sub
МиУсерФорм је име које смо дали корисничком облику. МиУсерФорм.Хиде значи да ће кликом на дугме ЦАНЦЕЛ сакрити кориснички образац.
Ок, сада креирајте овакав образац на радном листу.
Избришите све остале листове у радној свесци осим овог листа шаблона.
Сада идите на Висуал Басиц Едитор.
И покрените макро помоћу тастера Ф5 или ручно, видећемо образац корисника испред себе.
Унесите име запосленог, ИД запосленог и име одељења.
Ако кликнете на дугме ПОШАЉИ, вредности ће се сачувати у предлошку који смо креирали.
Овако, можете и даље уносити имена. Кориснички образац ће и даље чувати вредности које је корисник унео у наведене ћелије.
Тако да помоћу КОРИСНИЧКОГ ОБРАЗЦА заправо можемо створити дивне пројекте како бисмо информације добили од корисника.
