Excelin VBA-nimetty alue
Kun työskentelemme suuren datamäärän kanssa välttääksemme viittaamista tiettyyn soluun tai solualueisiin, luomme yleensä nimettyjä alueita, ja se antaa meille mahdollisuuden viitata vaadittuun solualueeseen nimetyn alueen läpi. VBA: ssa nimialueiden luomiseksi meillä on Lisää nimi -toiminto.
Voimme valita solun tai solualueen ja antaa sille nimen. Solujen nimeämisen jälkeen voimme viitata näihin soluihin kirjoittamalla nämä määritetyt nimet tavallisten rivi- tai sarakeviitteiden sijaan.
Kuinka luoda nimettyjä alueita?
Nimettyjen alueiden luominen on kävely puistotyössä. Ensimmäinen asia, joka meidän on tehtävä, on tunnistaa solut, jotka haluamme luoda nimialue Excelissä.
Katso esimerkiksi alla olevaa kuvaa.
B4-solun voiton saavuttamiseksi olen käyttänyt kaavaa B2 - B3.
Tämä on yhteistä asia, jota kaikki tekevät. Mutta entä Namesin luominen ja kaavan käyttäminen esimerkiksi "Myynti" - "Kustannukset".
Aseta kohdistin soluun B2> Siirry Nimi-ruutuun ja kutsu sitä nimellä Myynti.
Aseta kohdistin B3-solulle ja kutsu sitä kustannukseksi.
Nyt voitto-sarakkeessa voimme viitata näihin nimiin soluviittausten sijaan.
Tämä on nimettyjen alueiden perusasia.
Kuinka luoda nimettyjä alueita VBA-koodilla?
Esimerkki 1
Oletko koskaan ajatellut luoda nimettyä aluetta VBA-koodilla?
Luo nimetty alue noudattamalla seuraavia vaiheita.
Vaihe 1: Määritä muuttujaksi Range.
Koodi:
Ala NamedRanges_Example () Dim Rng Range End Sub
Vaihe 2: Aseta nyt muuttuja “Rng” tiettyihin soluihin, jotka haluat nimetä.
Koodi:
Sub NamedRanges_Example () Dim Rng As Range Set Rng = Alue ("A2: A7") Loppu Sub
Vaihe 3: ”ThisWorkbook” -objektin käyttö käyttää Nimi-ominaisuutta.
Meillä on niin paljon parametreja Names.Add- menetelmällä. Alla on selitykset.
(Nimi): Nimi ei ole mitään, mutta minkä nimen haluamme antaa määritetylle alueelle.
Solun nimeämisen aikana siinä ei saa olla mitään erikoismerkkejä paitsi alaviiva (_) -symboli, eikä siinä saa olla myös välilyöntejä. Sen ei pitäisi alkaa numeerisilla arvoilla.
(Viittaa): Tämä ei ole mitään muuta kuin mikä on solualue, johon viittaamme.
Mielestäni nämä kaksi parametria ovat riittävän hyvät menettelyn aloittamiseksi.
Vaihe 4: Nimessä argumentti antaa nimen, jonka haluat antaa. Olen nimennyt "Myyntinumerot".
Koodi:
Sub NamedRanges_Example () Dim Rng Range Range Rng = Range ("A2: A7") ThisWorkbook.Names.Add Name: = "Myyntinumerot" End Sub
Vaihe 5: Viittaa argumenttiin syötä solualue, jonka haluamme luoda. "Rng" -muuttujan nimessä olemme jo määrittäneet solualueeksi A2: n ja A7: n, joten anna argumentti nimellä "Rng".
Koodi:
Sub NamedRanges_Example () Dim Rng As Range Set Rng = Range ("A2: A7") ThisWorkbook.Names.Add Name: = "Myyntinumerot", RefersTo: = Rng End Sub
Ok, tämä koodi luo nimellisen alueen soluille A2: sta A7: een.
Nyt laskentataulukossa olen luonut joitain numeroita A2: sta A7: een.
In the A8 cell, I want to have the total of the above cell numbers. Using the named range, we will create a SUM of these numbers.
Code:
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("SalesNumbers")) End Sub
If you run this code manually or by pressing the f5 key then, we will get the total of a named range in cell A8.
This is the basic must-know facts about “Named Ranges.”
Example #2
In VBA using RANGE object, we can refer to the cells. Similarly, we can also refer to those cells by using named ranges as well.
For example, in the above example, we have named the cell B2 as “Sales” and B3 as “Cost.”
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 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 names, 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
Tämä laskee voiton määrän solussa nimeltä "Voitto".
