Taulukoiden uudelleennimeäminen Excelissä tapahtuu tehtäväpalkista, jonka alla taulukot ovat kaksoisnapsauttamalla niitä, mutta VBA: ssa käytämme Sheets- tai Worksheet-ominaisuusmenetelmää arkin uudelleennimeämiseen, syntaksin arkin nimeämiseen VBA: ssa on seuraava Sheets (" Vanha taulukon nimi "). Nimi =" Uuden arkin nimi ".
Nimeä taulukko uudelleen Excel VBA: ssa
Olemme kaikki tehneet tämän tehtävän nimetä laskentataulukko uudelleen henkilöllisyytemme tai mukavuutemme mukaan, eikö olekin? Nimeäminen uudelleen ei ole rakettitiede hallitsemiseksi, mutta jos olet VBA-kooderi, sinun on tiedettävä tämä laskentataulukon uudelleennimeämisen tehtävä. Koska työskentelemme laskentataulukoiden kanssa käyttämällä niiden nimiä, on tärkeää tietää laskentataulukoiden nimien merkitys VBA-koodauksessa. Tässä artikkelissa näytämme, kuinka voit nimetä taulukon uudelleen käyttämällä Excel VBA -koodausta.
Kuinka nimetä arkki uudelleen VBA: ssa?
Taulukon nimen muuttaminen ei vaadi erityisiä taitoja. Meidän on vain viitattava muutettavan taulukon nimeen kirjoittamalla nykyinen taulukon nimi.
Esimerkiksi, jos haluamme nimetä uudelleen taulukon nimeltä "Sheet 1", meidän on kutsuttava taulukko sen nimellä käyttämällä Worksheet-objektia.
Taulukot (“Sheet1”)
Mainittuaan taulukon nimen, meidän on valittava "Nimi" -ominaisuus, jotta uudelleennimeä laskentataulukon nimi.
Taulukot ("Sheet1"). Nimi
Nyt meidän on asetettava Name-ominaisuudeksi haluamasi nimi.
Laskentataulukot ("Sheet1"). Nimi = "Uusi nimi"
Näin voimme nimetä laskentataulukon nimen VBA: ssa Nimi-ominaisuuden avulla.
Artikkelin seuraavissa osioissa näytämme sinulle yhä enemmän esimerkkejä laskentataulukon muuttamisesta tai uudelleennimeämisestä.
Esimerkkejä taulukkojen uudelleennimeämisestä Excel VBA: ssa
Alla on esimerkkejä VBA: n uudelleennimeämissivusta.
Esimerkki # 1 - Muuta tai nimeä taulukko uudelleen VBA-muuttujien avulla.
Katso esimerkiksi alla oleva esimerkkikoodi.
Koodi:
Sub Nimeä_esimerkki1 () Himmennä Ws taulukkosarjana Ws = Laskentataulukot ("Sheet1") Ws.Name = "Uusi taulukko" End Sub
Edellä mainitussa koodissa olen ensin ilmoittanut muuttujan laskentataulukoksi.
Himmennä Ws-taulukko
Seuraavaksi olen asettanut muuttujan viitteeksi "Sheet1" käyttämällä taulukko-objektia.
Aseta Ws = laskentataulukot ("Sheet1")
Muuttuja “Ws” sisältää nyt taulukon ”Sheet1” viitteen.
Nyt muuttuja “Ws” on nimittänyt laskentataulukon uudeksi nimeksi ”Uusi taulukko”.
Tämä koodi muuttaa "Sheet1" -nimeksi "New Sheet".
Jos suoritan koodin manuaalisesti tai pikanäppäimen F5 kautta, saamme taas Subscript Out of Range -virheen.
Syy miksi saamme tämän virheen, koska edellisessä vaiheessa itse olemme jo vaihtaneet laskentataulukon nimeltä "Taulukko1" muotoon "Uusi taulukko". Koska laskentataulukon nimeä ei enää ole, "Sheet1" ei ole käytettävissä, VBA heittää tämän virheen.
Esimerkki # 2 - Hanki kaikki laskentataulukoiden nimet yhdelle arkille.
Voimme saada kaikki työkirjan laskentataulukoiden nimet yhdeksi arkiksi. Alla oleva koodi purkaa kaikki laskentataulukon nimet.
Koodi:
Sub Renmae_Example2 () Himmennä Ws kuten laskentataulukko Dim LR niin pitkä jokaiselle W: lle ActiveWorkbook.Worksheets LR = laskentataulukot ("Main Sheet"). Solut (Rows. Count, 1) .End (xlUp) .Rivi + 1 solut (LR, 1). Valitse ActiveCell.Value = Ws.Name Next Ws End Sub
Tämä koodi purkaa kaikki käytettävissä olevat laskentataulukoiden nimet pääarkkiin.
Esimerkki # 3 - Aseta pysyvä nimi Excel-laskentataulukkoon VBA: n avulla
Koska työskentelemme koodauksessa arkkien nimien kanssa, on tärkeää asettaa niille pysyvät nimet. Kuinka asetamme heille pysyvät nimet?
Katso esimerkiksi alla oleva koodi.
Koodi:
Alinimeä uudelleen_esimerkki3 () laskentataulukot ("Arkki1"). Valitse Lopeta ali
Yllä oleva koodi valitsee Taulukko1.
Jos työkirjaasi käyttävät monet ihmiset, jos joku muutti laskentataulukon nimeä, saamme Subscript Out of Range -virheen.
To avoid this, we can set the permanent name to it. To set the permanent name to follow the below steps.
Step 1: Select the sheet we need to set the permanent name to in Visual Basic Editor.
Step 2: Press the F4 key to see the Properties window.
Step 3: Under Name, Property Change the name to “New Name.”
As you can see, one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet.”
Now in coding, we will use the new name instead of an actual visible name.
Code:
Sub Rename_Example3() NewSheet.Select End Sub
Now come back to the worksheet window. We can still see the sheet name as “Sheet1” only.
Now I will change the sheet name to “Sales.”
Jos suoritan koodin F5-näppäimellä tai manuaalisesti, se valitsee silti vain ”Myynti” -nimisen arkin. Koska olimme antaneet sille pysyvän nimen, se valitsee edelleen vain saman arkin.
