Olemme jo käyneet läpi muuttujien ja vakiot VBA -tietotyypit - Muuttujat ja vakiot -oppaassa. Tarkastelemme nyt alueobjektia VBA: ssa ja kuinka muuttuja julistetaan alueobjektiksi. Alueobjektia käytetään merkitsemään soluja tai useita soluja VBA: ssa. Joten on erittäin hyödyllistä käyttää koodissasi.
Napsauta tästä saadaksesi lisätietoja VBA -alueista ja soluista.
VBA -alueobjekti
Voit käyttää alueobjektia viittaamaan yhteen soluun. Jos esimerkiksi haluat viitata soluun A1 VBA -koodissasi, voit käyttää VBA -alueobjektia alla olevan koodin mukaisesti:
1234 | AlaviittausToASingleCellUsingTheRangeObject ()Alue ("A1"). Arvo = 89Alue ("A1"). Font.Bold = TosiEnd Sub |
Kun painat näppäimistön run- tai F5 -näppäintä suorittaaksesi koodisi, saat seuraavan tuloksen varsinaisessa laskentataulukossasi:
Voit käyttää alueobjektia viittaamaan useisiin soluihin tai alueisiin. Jos esimerkiksi haluat viitata solualueeseen (A1: C1) VBA -koodissasi, voit käyttää VBA -alueobjektia alla olevan koodin mukaisesti:
123456 | Alaviittaus useille soluilleKäyttämälläTheRangeObject ()Alue ("A1: C1"). Arvo = "ABC"Alue ("A1: C1"). Reunukset (xlEdgeBottom) .LineStyle = xlDoubleEnd Sub |
Kun painat näppäimistön run- tai F5 -näppäintä suorittaaksesi koodisi, saat seuraavan tuloksen varsinaisessa laskentataulukossasi:
Muuttujan ilmoittaminen alueeksi
Sinun on käytettävä Dim- ja Set -avainsanoja, kun ilmoitat muuttujan alueeksi. Alla oleva koodi näyttää, kuinka muuttuja ilmoitetaan alueeksi.
123456789101112 | AlailmoitusAndSettingARange ()Dim rng as RangeAseta rng = alue ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Tottarng Valitserng.Sarakkeet.AutoFitEnd Sub |
Tulos on:
Tiettyjen rivien valitseminen alueobjektissa
Voit valita tiettyjä rivejä alueobjektisi sisällä. Alla oleva koodi näyttää, miten tämä tehdään:
12345678 | AlavalintaSpecificRowsInTheRangeObject ()Dim rng as RangeAseta rng = alue ("A1: C3")rng Rivit (3) ValitseEnd Sub |
Tulos on:
Tiettyjen sarakkeiden valitseminen alueobjektissa
Voit valita aluealueesi tiettyjä sarakkeita. Alla oleva koodi näyttää, miten tämä tehdään:
12345678 | AlivalintaSpecificColumnsInTheRangeObject ()Dim rng as RangeAseta rng = alue ("A1: C3")rng Sarakkeet (3) ValitseEnd Sub |