Šajā rakstā tiks parādīts, kā lietot vadības ierīces programmā UserForms programmā Excel VBA.
VBA ir iespēja izveidot veidlapas, ar kurām lietotājs var mijiedarboties, piemēram, rēķinu veidlapas vai kontaktinformāciju. Veidlapā var būt dažādas veidlapu vadīklas, piemēram, tekstlodziņi, kombinētie lodziņi, sarakstu lodziņi un komandu pogas. Šajā rakstā tiks apskatītas populārākās lietotāja veidlapās izmantotās vadīklas, proti, teksta kastes, etiķetes, kombinētās kastes, sarakstu kastes, izvēles rūtiņas un opciju grupas.
Lai uzzinātu vairāk par iebūvētām lietotāju veidlapām un pielāgotu lietotāja veidlapu izveidi programmā Excel, noklikšķiniet šeit.
UserForm izveide
Lai programmā Excel VBA izveidotu UserForm, mums vispirms ir jāatver VBE redaktors.
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, izmantojot vadīklas - tekstlodziņa vadīkla ir populārākā vadīkla kopā ar etiķetes vadības un komandu pogu.
Lai veidlapu aizpildītu ar vadīklām, mums ir jāieslēdz rīkkopa.
Iekš Izvēlne, izvēlieties Skats> Rīkjosla.
Teksta lodziņa izveide
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.
Mēs varam turpināt izveidot tik daudz tekstlodziņu mūsu veidlapā, cik mums nepieciešams, un nosaukt tos pēc vajadzības, izmantojot rekvizītu Name rekvizītu logā.
Etiķetes kontroles izveide
Etiķetes vadīkla norāda, kas tekstlodziņā tiks izmantots. 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.
Tāpat kā tekstlodziņos, turpiniet izveidot tik daudz, cik nepieciešams veidlapā.
Kombinētās kastes vadības izveide
Kombinētais lodziņš (vai nolaižamais lodziņš) ļauj lietotājam izvēlēties vērtību sarakstu. Lai izveidotu kombinēto lodziņu, noklikšķiniet uz vadības paneļa rīkjoslas un savā veidlapā noklikšķiniet un velciet kombinēto lodziņu.
Atbilstoši nosauciet kombinēto lodziņu.
Vērtību pievienošana kombinētajam lodziņam
Lai to aizpildītu ar vērtībām, mums ir jāievada kods Palaist lietotāja veidlapas objekta metode.
Lai piekļūtu veidlapas kodam (CBF), veiciet dubultklikšķi uz veidlapas vai noklikšķiniet uz koda pogas Project Explorer, lai pārslēgtos uz koda skatu.
Kreisās puses nolaižamajā sarakstā atlasiet Lietotāja veidlapa un pēc tam labās puses nolaižamajā sarakstā atlasiet Inicializēt.
Lai aizpildītu nolaižamo lodziņu, apakšdaļā un beigās ievadiet šādu kodu:
| 1234 | Me.cboState.AddItem "Alabama"Me.cboState.AddItem "Aļaska"Me.cboState.AddItem "Arizona"Me.cboState.AddItem "Arkanzasa" |
Mēs, protams, varam papildināt sarakstu ar pārējiem ASV štatiem!
Lai palaistu lietotāja veidlapu, lai redzētu sarakstu darbībā, 1) pārslēdzieties atpakaļ uz veidlapas skatu un pēc tam 2) rīkjoslā noklikšķiniet uz Skrien pogu.
Noklikšķiniet uz nolaižamās bultiņas, lai redzētu sarakstu.
Mēs varam arī izmantot diapazonu programmā Excel, lai aizpildītu kombinēto lodziņu.
| 123456 | Privāts apakšlietotājsForm_Initialize ()Dim rng As RangeKatram diapazonam ("A1: A50")Me.cboState.AddItem rng.ValueNākamais rngBeigu apakš |
Tas uztvers visas vērtības, kas saglabātas diapazonā no A1 līdz A50, un attiecīgi aizpildīs nolaižamo sarakstu.
Saraksta lodziņa vadīklas izveide
Saraksta lodziņa vadīkla darbojas tāpat kā kombinētā lodziņa vadīkla, taču ļauj mums redzēt visas veidlapas opcijas saraksta formātā.
Rīkjoslā atlasiet saraksta lodziņa vadīklu un pēc tam velciet, lai veidlapā izveidotu saraksta lodziņu.
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
Vērtību pievienošana saraksta lodziņam
Veidlapas inicializācijas notikumā ierakstiet šādu kodu:
| 123456 | Privāts apakšlietotājsForm_Initialize ()Dim rng As RangeKatram diapazonam ("A1: A50")Me.lstState.AddItem rng.ValueNākamais rngBeigu apakš |
Izpildot veidlapu, tiks parādīts saraksta lodziņš, kā parādīts attēlā:
Izveidojiet izvēles rūtiņas vadīklu
Atzīmējot izvēles rūtiņas, lietotājs var atzīmēt vai noņemt opciju.
Atzīmējiet izvēles rūtiņu vadīklu un pēc tam noklikšķiniet uz veidlapas, kurā vēlaties to novietot.
Rekvizītu logā mainiet izvēles rūtiņas parakstu un nosaukumu.
Opciju grupas vadības izveide ar opciju pogām
Opciju grupa ļauj lietotājam izvēlēties no vairākām pieejamām opcijām. Pirmais solis opciju grupas izveidei ir pievienot veidlapai kadru vadīklu un pēc tam pievienot opciju pogas pievienotajā rāmī. To darot, mēs nodrošinām, ka, palaižot veidlapu, vienlaikus var atlasīt tikai vienu no opciju pogām rāmī.
Rīkjoslā atlasiet vadīklu Rāmis un pēc tam velciet, lai veidlapā izveidotu rāmi.
Rīkjoslā atlasiet opciju Pogas vadīkla un pēc tam noklikšķiniet uz Iepriekš izveidotā rāmja, lai rāmim pievienotu opcijas pogu. Atkārtojiet pēc vajadzības.
Noklikšķiniet uz rāmja un 1) mainiet rāmja nosaukumu un parakstu. Pēc tam 2) noklikšķiniet uz katras opciju pogas un mainiet parakstu.
Komandas pogas izveide, lai izietu no veidlapas
Šajā posmā vienīgais veids, kā aizvērt veidlapu, ir izmantot aizvēršanas pogu veidlapas vadības joslas labajā stūrī. Efektīvāks veids, kā iziet no veidlapas un kurā mēs varam vairāk kontrolēt, ir veidlapā izveidot pogu Iziet. Tas tiek darīts, izmantojot rīkjoslā esošo komandu pogas vadību.
Atlasiet komandu pogas vadīklu un pēc tam noklikšķiniet uz formas un velciet to, lai izveidotu pogu.
Izmantojot parakstu rekvizītu, nomainiet komandas pogas parakstu uz Labi un paātrinātāju uz “O”
Paātrinātāja mērķis ir lietotājs, lai šajā gadījumā izmantotu pogu, lai aktivizētu pogu Alt+O. aktivizētu pogu.
Lielisks produkts. AutoMacro ne tikai raksta jūsu kodu, bet arī māca jums ejot! " - Tonijs, Lielbritānija
Uzzināt vairākIzlasiet mūsu 900+ pārskatus
Koda pievienošana komandu pogai
Lai komandu poga darbotos, mums aiz tās jāpievieno kods, lai, noklikšķinot uz pogas, kods darbotos. To sauc par pogas klikšķa notikumu.
Lai nokļūtu klikšķa notikumā, veidlapas noformējuma skatā veiciet dubultklikšķi uz pogas.
1) Noklikšķināšanas notikums tiks automātiski izveidots, jo šis ir notikums, ko visbiežāk izmanto komandu pogām.
2) Ja mēs noklikšķinātu uz nolaižamā lodziņa Procedūra labajā pusē, mēs redzētu visu komandu pogai pieejamo notikumu metožu sarakstu. Šis saraksts mainās atkarībā no tā, kāda veida vadīklu esam izveidojuši, jo dažāda veida vadīklām ir pieejami dažādi notikumi.
Komandas pogas klikšķa notikumā ierakstiet šādu kodu.
| 123456789101112131415 | Privāts apakš cmdOK_Click ()Diapazons ("E1") = Me.txtFirstnameDiapazons ("E2") = Me.txtSurnameDiapazons ("E3") = Me.txtCellPhoneDiapazons ("E4") = Me.cboStateJa Me.ckContactInfo = PatiessDiapazons ("E5") = "SMS ir atļauts"CitādiDiapazons ("E5") = "Īsziņas nav atļautas"Beigas JaJa Me.opt1.Value = True, tad diapazons ("E6") = Me.opt1.CaptionJa Me.opt2.Value = True, tad diapazons ("E6") = Me.opt2.CaptionJa Me.opt3.Value = True, tad diapazons ("E6") = Me.opt3.CaptionIzkraut ManiBeigu apakš |
Pēc tam mēs varam palaist veidlapu, aizpildīt tekstlodziņus un atlasīt nolaižamajā sarakstā. Pēc tam mēs noklikšķiniet uz Labi, lai ievadītu informāciju programmā Excel.
