seychellesartprojects.org

Excel VBA nosauktais diapazons

Kad mēs strādājam ar lielu datu apjomu, lai izvairītos no atsauces uz konkrētu šūnu vai šūnu diapazoniem, mēs parasti izveidojam nosauktos diapazonus, un tas ļauj mums atsaukties uz vajadzīgo šūnu diapazonu caur nosaukto diapazonu. VBA, lai izveidotu nosaukumu diapazonu, mums ir funkcija Add Name.

Mēs varam atlasīt šūnu vai šūnu diapazonu un piešķirt tai nosaukumu. Pēc šūnu nosaukšanas mēs varam atsaukties uz šīm šūnām, ierasto rindu vai kolonnu atsauču vietā ievadot šos definētos nosaukumus.

Šo VBA nosaukto diapazonu Excel veidni varat lejupielādēt šeit - VBA nosaukto diapazonu Excel veidne

Kā izveidot nosaukto diapazonu?

Tā ir pastaiga parka darbā, lai izveidotu nosauktu diapazonu. Pirmais, kas mums jādara, ir identificēt šūnas, kuras vēlamies izveidot nosaukumu diapazonā programmā Excel.

Piemēru skatiet zemāk esošajā attēlā.

Lai iegūtu peļņu B4 šūnā, esmu izmantojis formulu B2 - B3.

Tā ir parasta lieta, ko dara visi. Bet kā būtu ar nosaukumu izveidošanu un formulas lietošanu, piemēram, “Pārdošana” - “Izmaksas”.

Novietojiet kursoru šūnā B2> Iet uz lodziņu un izsauciet to kā Pārdošana.

Novietojiet kursoru B3 šūnā un sauciet to par Izmaksas.

Tagad peļņas slejā mēs varam norādīt šos nosaukumus, nevis šūnu atsauces.

Šī ir galvenā lieta nosauktajos diapazonos.

Kā izveidot nosaukto diapazonu, izmantojot VBA kodu?

1. piemērs

Vai esat kādreiz domājis izveidot nosauktu diapazonu, izmantojot VBA kodu?

Veiciet tālāk norādītās darbības, lai izveidotu nosaukto diapazonu.

1. darbība: definējiet mainīgo kā “Range”.

Kods:

 Sub NamedRanges_Example () Dim Rng As Range End Sub 

2. solis: Tagad iestatiet mainīgo “Rng” noteiktām šūnām, kuras vēlaties nosaukt.

Kods:

 Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") Beigas Sub 

3. darbība. Izmantojot “ThisWorkbook” objekta piekļuves vārdu īpašumus.

Mums ir tik daudz parametru ar Names.Add metodi. Zemāk ir paskaidrojumi.

[Vārds]: vārds nav nekas cits kā nosaukums, kuru mēs vēlētos piešķirt mūsu norādītajam diapazonam.

Nosaucot šūnu, tajā nedrīkst būt nevienas īpašas rakstzīmes, izņemot pasvītrojuma (_) simbolu, un tajā nedrīkst būt arī atstarpes rakstzīmes, to nedrīkst sākt ar skaitliskām vērtībām.

[Atsaucas uz]: Tas ir nekas cits kā tas, uz kādu šūnu diapazonu mēs atsaucamies.

Es domāju, ka šie divi parametri ir pietiekami labi, lai sāktu procesu.

4. solis: nosaukumā arguments ievadiet vārdu, kuru vēlaties dot. Es nosaucu kā “SalesNumbers”.

Kods:

 Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") ThisWorkbook.Names.Add Name: = "Pārdošanas numuri" End Sub 

5. solis: argumentā atsauces ievadiet šūnu diapazonu, kuru mēs vēlamies izveidot. Mainīgā “Rng” nosaukumā mēs jau esam piešķīruši šūnu diapazonu no A2 līdz A7, tāpēc norādiet argumentu kā “Rng”.

Kods:

 Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") ThisWorkbook.Names.Add Name: = "Pārdošanas numuri", RefersTo: = Rng End Sub 

Labi, šis kods izveidos nosaukto diapazonu šūnām no A2 līdz A7.

Tagad darblapā esmu izveidojis dažus skaitļus no A2 līdz A7.

Šūnā A8 es vēlos, lai būtu iepriekš minēto šūnu skaits kopā. Izmantojot nosaukto diapazonu, mēs izveidosim šo skaitļu SUM.

Kods:

 Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") ThisWorkbook.Names.Add Name: = "SalesNumbers", RefersTo: = Rng Range ("A8"). Value = WorksheetFunction.Sum (Range ( "Pārdošanas numuri")) Beigu apakšnodaļa 

Ja jūs palaižat šo kodu manuāli vai nospiežot taustiņu f5, mēs saņemsim nosaukto diapazonu kopumu šūnā A8.

Šis ir pamatzināšanas, kas jāzina par “Nosauktajiem diapazoniem”.

2. piemērs

VBA, izmantojot objektu RANGE, mēs varam atsaukties uz šūnām. Līdzīgi mēs varam atsaukties arī uz šīm šūnām, izmantojot arī nosauktos diapazonus.

Piemēram, iepriekš minētajā piemērā šūna B2 ir nosaukta kā “Pārdošana” un B3 kā “Izmaksas” .

Izmantojot faktisko šūnu atsauci, mēs atsaucamies uz šādām šūnām.

Kods:

 Sub NamedRanges () diapazons ("B2"). Atlasiet "Tas atlasīs B2 šūnu diapazonu (" B3 "). Atlasiet" Tas atlasīs B3 šūnas beigu apakšdaļu 

Tā kā mēs jau esam izveidojuši šīs šūnas, mēs varam atsaukties uz šo vārdu izmantošanu, piemēram, zemāk.

Kods:

 Sub NamedRanges () diapazons ("Pārdošana"). Atlasiet "Tas atlasīs šūnu, kuras nosaukums ir" Pārdošana ", ti, B2 šūnu diapazons (" Izmaksas "). Atlasiet" Tas atlasīs šūnu, kuras nosaukums ir "Izmaksas", ti, B3 šūnas Beigu apakšdaļa 

Šādi izmantojot nosaukto diapazonu, mēs varam izmantot šīs šūnas. Izmantojot šos nosauktos, mēs varam aprēķināt peļņas summu šūnā B4. Šim vārdam šūna B4 jānorāda kā Peļņa.

Tagad VBA redaktorā lietojiet šo kodu.

Kods:

 Sub NamedRanges_Example1 () Diapazons ("Peļņa"). Vērtība = Diapazons ("Pārdošana") - Diapazons ("Izmaksas") Beigas Sub 

Tas aprēķinās peļņas summu šūnā ar nosaukumu “Peļņa”.