Šajā rakstā tiks parādīts, kā lietot tekstlodziņu programmā Excel VBA.
VBA ir iespēja izveidot veidlapas, ar kurām lietotājs var mijiedarboties, piemēram, rēķinu veidlapas vai kontaktinformāciju. Teksta lodziņi ir vadīklas, kuras var izmantot šajās veidlapās, vai arī tekstlodziņus var izveidot tieši programmā Excel.
Teksta lodziņu izveide VBA veidlapās
Lai tekstlodziņu ievietotu VBA veidlapā, mums vispirms ir jāizveido veidlapa. Tas tiek darīts VBE redaktorā.
Vispirms programmā Excel atveriet VBE redaktoru.
Lai kodā ievietotu jaunu lietotāja veidlapu, izvēlieties UserForm opciju izvēlnē Ievietot.
Ekrānā parādīsies jauna lietotāja veidlapa Projektu pētnieks un tiks parādīts koda logā labajā pusē.
Veidlapu var pārdēvēt, izmantojot Rekvizīti kaste. Tam vajadzētu parādīties zem jūsu Projektu pētnieks.
Ja tas ir redzams, nospiediet F4 vai noklikšķiniet Skatīt, Rekvizītu logs.
Noklikšķiniet uz Vārds īpašumu un pārdēvēt savu veidlapu.
Tagad mēs varam sākt aizpildīt mūsu veidlapu ar vadīklām - tekstlodziņa vadīkla ir populārākā vadīkla kopā ar etiķetes vadīklu.
Lai veidlapu aizpildītu ar vadīklām, mums ir jāieslēdz rīkkopa.
Iekš Izvēlne, izvēlieties Skats> Rīkjosla.
Lai veidlapā izveidotu tekstlodziņu, rīkjoslā atlasiet teksta lodziņa vadīklu.
Velciet veidlapā lodziņa formu ar peli, turot nospiestu kreiso pogu un pēc tam atlaidiet peles pogu.
Tā kā šī ir pirmā mūsu izveidotā teksta kaste, tā nosaukums būs TextBox1. Tāpat kā veidlapā, tekstlodziņa pārdēvēšanai varat izmantot logu Rekvizīti.
Iespējams, veidlapas tekstlodziņam būs jāizveido iezīme. Tas tiek darīts ar etiķetes vadīklu. Jūs velciet veidlapu tāpat kā tekstlodziņu, un pēc tam etiķetes vadīklā varat ierakstīt nepieciešamo tekstu, piemēram: Vārds, kā parādīts zemāk.
Lai izmantotu veidlapu VBA kodā, veidlapai jāpievieno komandas poga. Lai to izdarītu, rīkjoslā atlasot komandu pogas vadīklu un velkot pogu uz veidlapas.
Pēc tam varat turpināt veidot veidlapu, izmantojot tekstlodziņus, etiķetes un komandu pogas, pēc vajadzības tos pārdēvējot.
Kodu rakstīšana aiz veidlapām
Kad esam izveidojuši savu veidlapu, mums ir jāraksta VBA kods, lai mūsu veidlapā ievietotu informāciju mūsu Excel darblapā. Šo kodu sauc par CBF (Kods aiz veidlapām).
VBE veiciet dubultklikšķi uz komandas pogas, lai pārietu uz kodu aiz pogas.
Tiks izveidots apakšpasākums pogas klikšķa notikumam. Šajā rutīnā mēs varam ierakstīt savu VBA kodu. Piemēram:
| 123456 | Privāts apakš cmdOK_Click ()Diapazons ("A1") = Me.txtFirstNameDiapazons ("A2") = Me.txt UzvārdsDiapazons ("A3") = Me.txtCellPhoneIzkraut ManiBeigu apakš |
Šī kārtība ievadīs tekstlodziņos ievadīto informāciju programmā Excel un pēc tam aizvērs veidlapu.
Teksta lodziņu izveide Excel darblapā
Excel izklājlapā ir iespējams izveidot arī tekstlodziņus. Lai to izdarītu, jums ir jāieslēdz izstrādātāja lente.
Piezīme. Ja neredzat izstrādātāja lenti, tā ir jāiespējo.
Lentē atlasiet Izstrādātājs> Ievietot> ActiveX vadīklas> TextBox.
Noklikšķiniet un velciet savā Excel darblapā, lai darblapā uzzīmētu tekstlodziņu vēlamajā vietā. Atlaidiet peles pogu, lai pabeigtu tekstlodziņa zīmēšanu.
Tekstlodziņš būs dizaina režīmā. Šajā režīmā mēs varam mainīt lodziņa lielumu un atlasīt tekstlodziņa rekvizītus.
Noklikšķiniet uz Rekvizīti pogu, lai parādītu tekstlodziņa rekvizītu logu. Šajā logā mēs varam mainīt dažādus tekstlodziņa rekvizītus, piemēram, lodziņa nosaukumu, teksta krāsu, fonu vai apmali, apmales stilu un fontu, kas izmantots, piemēram, tekstlodziņa tekstam.
Lai tekstlodziņu izmantotu tieši programmā Excel, kā mēs to izmantojām iepriekšējā VBA veidlapā, mums ir nepieciešams veids, kā atgriezt tekstlodziņā ievadītos datus Excel lapā. To var izdarīt, darblapai pievienojot ActiveX komandas pogu un izmantojot šīs komandas pogas click_event, lai tekstlodziņā esošo informāciju atgrieztu Excel lapā.
Lentē atlasiet Izstrādātājs> Ievietot> ActiveX vadīklas> Komandu poga lai savai Excel lapai pievienotu komandu pogu. Ieslēdziet logu Rekvizīti un mainiet pogas nosaukumu, pogas parakstu un pogas paātrinātāju, kā parādīts attēlā.
Veiciet dubultklikšķi uz pogas, lai pārietu uz pogas VBA klikšķa notikumu un ierakstiet šādu kodu:
| 123 | Privāts apakš cmdOK_Click ()Diapazons ("A1") = Me.txtFirstNameBeigu apakš |
Pārslēdzieties atpakaļ uz Excel darblapu, pārliecinieties, vai dizaina režīms ir izslēgts, un pēc tam ierakstiet izveidoto tekstlodziņu.
Noklikšķiniet uz komandas pogas, lai atgrieztu tekstu programmā Excel.
