/ / Loop ar kontrolēm Excel VBA

Cikls ar kontrolēm programmā Excel VBA

Ar dažām koda līnijām mēs varam viegli cilpa ar kontrolēm uz a Excel VBA Userform. Lietotāja forma, kuru mēs veidosim, izskatās šādi:

Cikls ar kontrolēm programmā Excel VBA

Lai izveidotu šo Userform, izpildiet šādas darbības.

1. Atveriet Visual Basic Editor. Ja Project Explorer nav redzams, noklikšķiniet uz Skatīt, Project Explorer.

2. Noklikšķiniet uz Ielikt, Lietotāja forma. Ja rīkjosla neparādās automātiski, noklikšķiniet uz Skatīt, rīkjoslu. Jūsu ekrāns ir jāiestata tā, kā parādīts zemāk.

Userform ekrāna iestatīšana programmā Excel VBA

3 Pievienojiet etiķeti, atzīmējiet rūtiņas (pirmā augšdaļā, otrajā vietā zem pirmā un tā tālāk) un komandu pogu. Kad tas ir pabeigts, rezultātam jāatbilst iepriekš redzamā lietotāja formas attēlam. Piemēram, izveidojiet izvēles rūtiņas vadību, noklikšķinot uz CheckBox no rīkjoslas. Tālāk jūs varat vilkt izvēles rūtiņu lietotāja formā.

4 Jūs varat mainīt vadības ierīču nosaukumus un parakstus. Vārdi tiek izmantoti Excel VBA kodā. Paraksti ir tie, kas tiek parādīti ekrānā. Laba prakse ir mainīt kontroles nosaukumus, taču šeit tas nav nepieciešams, jo šajā piemērā ir tikai dažas kontroles. Lai mainītu Userform, etiķetes, izvēles rūtiņu un komandu pogas nosaukumu, noklikšķiniet uz Skatīt, rekvizītu loga un noklikšķiniet uz katras vadības pogas.

5. Lai parādītu Userform, ievietojiet komandas pogu savā darblapā un pievienojiet šādu koda rindiņu:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Tagad mēs esam izveidojuši lietotāja formas pirmo daļu. Lai gan tas izskatās pievilcīgs, vēl nekas nenotiks, kad noklikšķināsim uz pogas Notīrīt.

6. Atveriet Visual Basic Editor.

7. Projekta Explorer divreiz noklikšķiniet uz UserForm1.

8. Divreiz noklikšķiniet uz pogas Notīrīt.

9. Pievienojiet šādas koda līnijas:

Private Sub CommandButton1_Click()

Dim contr As control

For Each contr In UserForm1.Controls
    If TypeName(contr) = "CheckBox" Then
        contr.Value = False
    End If
Next

End Sub

Paskaidrojums: Excel VBA cilpas, izmantojot visas Userform formāta pārbaudes. TypeName funkcija tiek izmantota, lai filtrētu izvēles rūtiņas vadīklas. Ja atzīmējiet izvēles rūtiņu, Excel VBA noņem iespēju atzīmēt izvēles rūtiņu. Šeit ir nejauši izvēlēts contr, jūs varat izmantot jebkuru nosaukumu. Neaizmirstiet atsaukties uz šo vārdu pārējā kodā.

Rezultāts, noklikšķinot uz pogas Notīrīt:

Kontūrs caur kontrole rezultātu

Lasīt arī: