ВБА ТектБок - Како уметнути и користити ТектБок у ВБА Усерформ?

Преглед садржаја

Екцел ВБА ТектБок

Екцел ВБА ТектБок

Текстуално поље је једноставно попут оквира који се користи за добијање уноса од корисника, оквири за текст су део корисничких образаца и на картици програмера у било ком радном листу Екцел. Ако желимо да направимо оквире за текст у корисничком облику, можемо одабрати опцију текстуалног оквира из контрола корисничког обрасца у ВБА или на радном листу можемо га одабрати на картици дизајна.

ВБА ТектБок је једна од контрола многих контрола Корисничког обрасца. Приказивањем оквира за текст на корисничком обрасцу можемо затражити да унесу податке у поље за текст, а подаци које је корисник унео могу се са једноставним кодовима сачувати на радном листу.

Кориснички обрасци су веома атрактивни у ВБА кодирању. Неизмерно нам помаже, посебно када треба да добијемо информације од корисника. Код корисничких образаца имамо много контрола, а да бисмо добили улазну вредност од корисника, „Оквир за текст“ је идеална опција у корисничком облику. Стављањем оквира за текст на кориснички образац, заправо можемо рећи кориснику да унесе потребну вредност у оквир за текст који приказујемо. Ако немате појма о ВБА пољима за текст, овај чланак ће обилазити ВБА оквире за текст.

Како уметнути ТектБок у ВБА УсерФорм?

Да бисмо прво убацили оквир за текст, морамо да убацимо кориснички образац. Да бисте уметнули кориснички образац, идите на Убаци> Кориснички образац.

Чим кликнете на Кориснички образац, ми ћемо Кориснички образац, као и други модул.

Кликните на Кориснички образац да бисте видели контроле корисничког обрасца.

Из овог оквира са алаткама Цонтролс изаберите „ТектБок“ и превуците Кориснички образац.

Овим можемо видети многа својства повезана са овим оквиром за текст.

Својства ТектБок-а

Притисните тастер Ф4 да бисте видели својства оквира за текст.

Као што видимо, оквир за текст има име, боју и обруб попут овог броја. Сада дајте властито име да бисмо се лако могли позивати на овај оквир за текст док кодирамо.

Пример употребе ТектБок-а у Усерформ-у

Извешћемо један од пројеката са ВБА текстом. Направићемо кориснички образац за унос података за чување података о запосленима.

Корак 1: На корисничком обрасцу нацртајте налепницу.

Корак 2: Промените подразумевани текст налепнице у „Име запосленог“.

Корак 3: Испред налепнице нацртајте оквир за текст.

Корак 4: Дајте одговарајуће име оквиру за текст као „ЕмпНамеТектБок“.

Корак 5: Сада нацртајте још једну налепницу испод прве налепнице и унесите текст као „ИД запосленог“.

Корак 6: Испред друге налепнице нацртајте још једно поље за текст и назовите га „ЕмпИДТектБок“.

Корак 7: Нацртајте још једну налепницу и унесите текст као „Плата“.

Корак 8: Нацртајте још једно поље за текст испред налепнице „Плата“ и назовите је „СалариТектБок“.

Корак 9: Сада уметните „Цомманд Буттон“ из ТоолБок-а.

Корак 10: Промените текст командног дугмета у „Пошаљи“.

Ok, we are done with the User Form design part. Now we need to write the code to store the data entered in this user form. As of now, run the user form by pressing the F5 key. We should see a user form like this.

Step 11: Change the Caption of the User Form in the Properties window.

Step 12: Now double click on the Submit Command Button.As soon as you double click you will see this auto sub procedure like the below.

This is when you click on the Submit button, what should happen. We need to mention the tasks in the VBA code. In this project, our aim is to store the data entered in the text box as soon as we click on the Submit Button.

For this, first, create a Template like this in the worksheet named “Employees Sheet.”

Step 13: Now come back to the visual basic editor. Inside the button, click subroutine in VBA first to determine the last used row by using the below code.

Code:

Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub

Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named “EmpNameTextBox.”

Code:

Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value End Sub

Step 15: In the second column, we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox.”

Code:

Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub

Step 16: At last, we need to store the salary part. For this, we need to access to text box named “SalaryTextBox.”

Code:

Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub