Oleme juba tutvunud muutujate ja konstantidega meie VBA andmetüüpide - muutujate ja konstantide õpetuses. Nüüd vaatame VBA vahemiku objekti ja seda, kuidas muutuja vahemikuobjektiks kuulutada. Vahemiku objekti kasutatakse VBA lahtrite või mitme lahtri tähistamiseks. Niisiis, seda on väga kasulik oma koodis kasutada.
VBA vahemike ja rakkude kohta lisateabe saamiseks klõpsake siin.
VBA vahemiku objekt
Vahemiku objekti abil saate viidata ühele lahtrile. Näiteks kui soovite viidata oma VBA koodi lahtrile A1, võite kasutada VBA vahemiku objekti, nagu on näidatud allolevas koodis:
1234 | AlamviideToASingleCellUsingTheRangeObject ()Vahemik ("A1"). Väärtus = 89Vahemik ("A1"). Font.Bold = TrueEnd Sub |
Kui vajutate klaviatuuril nuppu Run või F5, saate koodi käivitamiseks järgmise tulemuse:
Vahemiku objekti abil saate viidata mitmele lahtrile või vahemikule. Näiteks kui soovite oma VBA -koodis viidata lahtrivahemikule (A1: C1), võite kasutada VBA vahemiku objekti, nagu on näidatud allolevas koodis:
123456 | AlamviideToMultipleCellsUsingTheRangeObject ()Vahemik ("A1: C1"). Väärtus = "ABC"Vahemik ("A1: C1"). Piirid (xlEdgeBottom) .LineStyle = xlDoubleEnd Sub |
Kui vajutate klaviatuuril nuppu Run või F5, saate koodi käivitamiseks järgmise tulemuse:
Muutuja kuulutamine vahemikuks
Muutuja vahemikuks deklareerimisel peate kasutama märksõnu Dim ja Set. Allolev kood näitab, kuidas muutuja vahemikuks deklareerida.
123456789101112 | AlamdeklaratsioonAndSettingARange ()Dim rng As RangeMäära rng = vahemik ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Tõsirng. Valigerng.Veerud.AutoFitEnd Sub |
Tulemuseks on:
Konkreetsete ridade valimine oma vahemiku objektil
Saate oma vahemiku objektist valida kindlaid ridu. Allolev kood näitab teile, kuidas seda teha:
12345678 | AlamvalikSpecificRowsInTheRangeObject ()Dim rng As RangeMäära rng = vahemik ("A1: C3")rng. Ridad (3). ValigeEnd Sub |
Tulemuseks on:
Konkreetsete veergude valimine oma vahemiku objektil
Saate oma vahemiku objektist valida konkreetseid veerge. Allolev kood näitab teile, kuidas seda teha:
12345678 | AlamvalikSpecificColumnsInTheRangeObject ()Dim rng As RangeMäära rng = vahemik ("A1: C3")rng. Veerud (3). ValigeEnd Sub |