Excel VBA teksta kaste
Izcēlums ir vienkārši kā kastē, ko izmanto, lai iegūtu informāciju no lietotāja, teksta kastes ir daļa lietotāju formu un cilni izstrādātājs jebkurā Excel darblapā, ja mēs vēlamies, lai teksta kastes lietotāja veidā, mēs varam izvēlēties tekstlodziņa iespēju no lietotāja formas vadīklas VBA vai darblapā mēs to varam izvēlēties cilnē noformējums.
VBA TextBox ir viena no lietotāja veidlapas daudzo vadīklu vadīklām. Lietotāja veidlapā parādot tekstlodziņu, mēs varam lūgt viņus ievadīt datus tekstlodziņā, un lietotāja ievadītos datus darblapā var saglabāt ar vienkāršiem kodiem.
Lietotāju veidlapas ir ļoti pievilcīgas VBA kodēšanā. Tas mums ārkārtīgi palīdz, it īpaši, ja mums ir nepieciešams iegūt ieguldījumu no lietotājiem. Izmantojot lietotāju veidlapas, mums ir daudz vadības ierīču, un, lai iegūtu lietotāju ievadīto vērtību, “Text Box” ir ideāla iespēja lietotāja formā. Lietotāja formā ievietojot tekstlodziņu, mēs faktiski varam pateikt lietotājam ievadītajā tekstlodziņā nepieciešamo vērtību. Ja jums nav ne jausmas par VBA tekstlodziņiem, tad šajā rakstā tiks apskatīta VBA tekstlodziņu apskate.
Kā ievietot TextBox VBA UserForm?
Lai vispirms ievietotu tekstlodziņu, mums jāievieto lietotāja veidlapa. Lai ievietotu lietotāja veidlapu, dodieties uz Ievietot> Lietotāja forma.
Tiklīdz jūs noklikšķināsit uz Lietotāja forma, mēs veidosim Lietotāja veidlapu tāpat kā citu moduli.
Noklikšķiniet uz Lietotāja forma, lai redzētu lietotāja veidlapas vadīklas.
Šajā vadības panelī atlasiet “TextBox” un velciet lietotāja formu.
Tādējādi mēs varam redzēt daudzas īpašības, kas saistītas ar šo tekstlodziņu.
TextBox rekvizīti
Nospiediet taustiņu F4, lai redzētu teksta lodziņa rekvizītus.
Kā redzam, tekstlodziņā ir nosaukums, krāsa, apmale, tāpat kā šis. Tagad dodiet īpašvārdu, lai kodēšanas laikā mēs varētu viegli atsaukties uz šo tekstlodziņu.
TextBox izmantošanas piemērs Userform
Mēs veiksim vienu no projektiem ar VBA tekstu. Mēs izveidosim datu ievades lietotāja veidlapu, lai saglabātu darbinieku datus.
1. darbība: lietotāja veidlapā uzzīmējiet etiķeti.
2. darbība: nomainiet noklusējuma etiķetes tekstu uz “Darbinieka vārds”.
3. solis: Iezīmes priekšā uzzīmējiet tekstlodziņu.
4. darbība: tekstlodziņam piešķiriet nosaukumu “EmpNameTextBox”.
5. solis: Tagad zem pirmās etiķetes uzzīmējiet vēl vienu etiķeti un ievadiet tekstu kā “Employee ID”.
6. solis: Otrās etiķetes priekšā uzzīmējiet vēl vienu tekstlodziņu un nosauciet to kā “EmpIDTextBox”.
7. darbība: uzzīmējiet vēl vienu etiķeti un ievadiet tekstu kā “Alga”.
8. solis: Iezīmējiet vēl vienu tekstlodziņu “Alga” etiķetes priekšā un nosauciet to par “SalaryTextBox”.
9. solis: Tagad no rīkjoslas ievietojiet komandu pogu.
10. solis: Mainiet komandas pogas tekstu kā “Iesniegt”.
Labi, mēs esam pabeiguši lietotāja veidlapas noformējuma daļu. Tagad mums ir jāuzraksta kods, lai saglabātu šajā lietotāja formā ievadītos datus. Sākot ar šo, palaidiet lietotāja veidlapu, nospiežot taustiņu F5. Mums vajadzētu redzēt šādu lietotāja veidlapu.
11. solis: Logā Rekvizīti mainiet lietotāja veidlapas parakstu.
12. solis: Tagad veiciet dubultklikšķi uz pogas Iesniegt komandu. Tiklīdz veicat dubultklikšķi, jūs redzēsiet šo automātisko apakšprocedūru, piemēram, zemāk.
Kad notiek noklikšķināšana uz pogas Iesniegt, tam jānotiek. Mums jāpiemin uzdevumi VBA kodā. Šajā projektā mūsu mērķis ir saglabāt tekstlodziņā ievadītos datus, tiklīdz noklikšķinām uz pogas Iesniegt.
Lai to izveidotu, vispirms izveidojiet šādu veidni darblapā ar nosaukumu “Darbinieku lapa”.
13. solis: Tagad atgriezieties vizuālā pamata redaktorā. Pogas iekšpusē vispirms noklikšķiniet uz apakšprogrammas VBA, lai noteiktu pēdējo izmantoto rindu, izmantojot zemāk esošo kodu.
Kods:
Privātā apakšnodaļa CommandButton1_Click () Dim LR As Long LR = darblapas ("Darbinieku lapa"). Šūna (Rows.Count, 1) .End (xlUp) .Rinda + 1 End Sub
14. solis: pirmā lieta ir pirmajā slejā, kurā mēs saglabāsim darbinieka vārdu. Tāpēc mums ir jāpiekļūst tekstlodziņam ar nosaukumu “EmpNameTextBox”.
Kods:
Privātā apakšnodaļa CommandButton1_Click () Dim LR As Long LR = darblapas ("Darbinieku lapa"). Šūna (Rows.Count, 1) .End (xlUp) .Rinda + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Beigu apakšnodaļa
15. solis: otrajā slejā mums jāsaglabā darbinieka ID. Tātad tas tiks iegūts, piekļūstot tekstlodziņam ar nosaukumu “EmpIDTextBox”.
Kods:
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
Ok, we are done with the coding part as well. Now run the code using the F5 key. We should see a User Form like the below.
Pašlaik visas rūtiņas ir tukšas.
Vispirms aizpildiet informāciju.
Tagad noklikšķiniet uz pogas Iesniegt. Dati tiks saglabāti darblapā.
Šādi jūs varat turpināt ievadīt datus un nospiest un iesniegt pogu. Šī ir vienkārša datu ievades lietotāja forma ar tekstlodziņu.
