Excel VBA imenovani raspon
Kada radimo s velikom količinom podataka kako bismo izbjegli upućivanje na određenu ćeliju ili raspone ćelija, obično stvaramo imenovane raspone i to nam omogućuje da se kroz navedeni raspon uputimo na potreban raspon ćelija. U VBA za stvaranje raspona imena imamo funkciju Add Name.
Možemo odabrati ćeliju ili raspon stanica i dati joj ime. Nakon imenovanja stanica, na te se stanice možemo pozivati unošenjem definiranih imena umjesto uobičajenih referenci redaka ili stupaca.
Ovdje možete preuzeti ovaj VBA Named Range Excel predložak - VBA Named Range Excel PredložakKako stvoriti imenovane domete?
Stvaranje imenovanih raspona posao je u šetnji parkom. Prvo što moramo učiniti je identificirati stanice u kojima želimo stvoriti raspon imena u excelu.
Za primjer pogledajte donju sliku.
Da bih stigao do dobiti u B4 ćeliji primijenio sam formulu B2 - B3.
To je uobičajena stvar koju svi rade. Ali kako bi bilo stvoriti Imena i primijeniti formulu poput "Prodaja" - "Trošak".
Postavite kursor na ćeliju B2> Idi na okvir Ime i nazovite ga Prodaja.
Postavite kursor na ćeliju B3 i nazovite je Cost.
Sada se u stupcu dobiti možemo uputiti na ta imena umjesto referenci na ćelije.
Ovo je osnovna stvar o imenovanim lancima.
Kako stvoriti imenovane domete pomoću VBA koda?
Primjer # 1
Jeste li ikad pomislili stvoriti imenovani raspon pomoću VBA koda?
Slijedite korake u nastavku za stvaranje imenovanog raspona.
Korak 1: Definirajte varijablu kao "Raspon".
Kodirati:
Sub NamedRanges_Example () Dim Rng As Range End Sub
Korak 2: Sada postavite varijablu "Rng" na određene stanice kojima želite dati naziv.
Kodirati:
Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") End Sub 
Korak 3: Korištenje objekta „ThisWorkbook“ pristupa svojstvu Imena.
Imamo toliko parametara s metodom Names.Add . Ispod su objašnjenja.
[Ime]: Ime nije ništa drugo već ono koje bismo ime željeli dati rasponu koji smo naveli.
Iako imenuje ćeliju, ona ne smije sadržavati nikakve posebne znakove, osim znaka za podvlačenje (_), a ne smije sadržavati i razmake, ne smije započinjati numeričkim vrijednostima.
[Odnosi se]: To nije ništa drugo doli koliki je raspon stanica na koje se pozivamo.
Mislim da su ova dva parametra dovoljno dobra da započnu postupak.
Korak 4: U ime argument unosi ime koje želite dati. Imenovao sam kao „Prodajni brojevi”.
Kodirati:
Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range (Range ("A2: A7") ThisWorkbook.Names.Add Name: = "SalesNumbers" End Sub 
Korak 5: U argument upućuje na argument unesite raspon ćelija koje želimo stvoriti. U ime varijable “Rng” već smo dodijelili raspon ćelija kao A2 do A7, zato argument navedite kao “Rng”.
Kodirati:
Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") ThisWorkbook.Names.Add Name: = "SalesNumbers", RefersTo: = Rng End Sub 
Ok, ovaj će kôd stvoriti imenovani raspon za stanice od A2 do A7.
Sada sam na radnom listu stvorio neke brojeve od A2 do A7.
U ćeliji A8 želim imati ukupan broj gore navedenih brojeva ćelija. Pomoću imenovanog raspona stvorit ćemo ZBOR ovih brojeva.
Kodirati:
Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range (Range ("A2: A7") ThisWorkbook.Names.Add Name: = "SalesNumbers", RefersTo: = Rng Range ("A8"). Value = WorksheetFunction.Sum (Range ( "SalesNumbers")) Kraj Sub 
Ako ovaj kod pokrenete ručno ili pritiskom na tipku f5, dobit ćemo zbroj imenovanog raspona u ćeliji A8.
Ovo su osnovne činjenice koje treba znati o „imenovanim lancima“.
Primjer # 2
U VBA pomoću objekta RANGE možemo se pozvati na stanice. Slično tome, na te se stanice možemo pozvati i pomoću imenovanih raspona.
Na primjer, u gornjem primjeru, ćeliju B2 imenovali smo "Prodaja", a B3 kao "Trošak" .
By using actual cell reference we refer to those cells like this.
Code:
Sub NamedRanges() Range("B2").Select 'This will select the B2 cell Range("B3").Select 'This will select the B3 cell End Sub 
Since we already created these cells we can refer to using those names like the below.
Code:
Sub NamedRanges() Range("Sales").Select 'This will select cell named as "Sales" i.e. B2 cell Range("Cost").Select 'This will select cell named as "Cost" i.e. B3 cell End Sub 
Like this using Named Ranges, we can make use of those cells. Using these named we can calculate the profit amount in cell B4. For this first name the cell B4 as Profit.
Now in the VBA editor apply this code.
Code:
Sub NamedRanges_Example1() Range("Profit").Value = Range("Sales") - Range("Cost") End Sub 
This will calculate the profit amount in the cell named “Profit”.
