Lietotāja definēta funkcija programmā Excel VBA

Tālāk mēs apskatīsim programmu programmā Excel VBA kas rada Lietotāja definēta funkcija. Excel ir liela funkciju kolekcija. Vairumā gadījumu šīs funkcijas ir pietiekamas, lai veiktu darbu. Ja nē, jūs varat izveidot savu funkciju ar nosaukumu Lietotāja definēta funkcija vai pielāgota Excel funkcija. Jūs varat piekļūt lietotāja definētajai funkcijai tāpat kā jebkura cita Excel funkcija.

Mēs vēlamies izveidot funkciju SUMEVENNUMBERS, kas atrod vienmērīgi izvēlētu diapazonu summu.

Situācija:

Lietotāja definēta funkcija programmā Excel VBA

Lietotāja definētās funkcijas ir jāievieto modulī.

1. Atveriet Visual Basic Editor un noklikšķiniet uz Insert, Module.

2. Pievienojiet šādu koda rindiņu:

Function SUMEVENNUMBERS(rng As Range)

Mūsu funkcijas nosaukums ir SUMEVENNUMBERS. Daļa starp iekavām nozīmē, ka Excel VBA tiek dota kā izejmateriāls. Nosaucam mūsu rādītāja diapazonu, taču jūs varat izmantot jebkuru nosaukumu.

3. Pēc tam mēs deklarējam Range objektu un saucam par šūnu.

Dim cell As Range

4. Mēs vēlamies pārbaudīt katru šūnu nejauši izvēlētajā diapazonā (šis diapazons var būt jebkura izmēra). Programmā Excel VBA varat to izmantot katrai nākamajai cilpai. Pievienojiet šādas koda līnijas:

For Each cell In rng

Next cell

Piezīme. Šūnu nejauši izvēlas šeit, jūs varat izmantot jebkuru nosaukumu.

5 Tālāk mēs pārbaudām katru vērtību šajā diapazonā neatkarīgi no tā, vai tā ir vai nav. Mēs šim nolūkam izmantojam mod komandu. Mod operators piešķir pārējo sadalījumu. Tātad 7 mod 2 dotu 1. 7 tiek dalīts ar 2 (3 reizes), lai piešķirtu atlikušo daļu no 1. Tā kā tas ir teikt, ir viegli pārbaudīt, vai numurs ir pat vai nē. Tikai tad, ja atlikušais skaitlis, kas dalīts ar 2, ir 0, skaitlis ir vienāds. 8 mod 2 dod 0, 8 ir dalīts ar 2 precīzi 4 reizes, tāpēc 8 ir pat. Pievienojiet tālāk norādīto paziņojumu katrai nākamajai cilpai.

If cell.Value Mod 2 = 0 Then

End If

6. Tikai tad, ja šis apgalvojums ir taisnība, mēs pievienojam vērtību SUMEVENNUMBERS. Ja norādē pievieno šādu koda rindiņu.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7. Neaizmirsti pārtraukt funkciju (ārpus cilpas).

End Function

8. Tagad jūs varat izmantot šo funkciju, tāpat kā jebkuru citu Excel funkciju, lai atrastu nejauši izvēlēta diapazona vienmērīgu skaitļu summu.

Rezultāts: