See õpetus õpetab teile, kuidas VBA abil rakkude väärtustega suhelda.
Määrake lahtri väärtus
Lahtri väärtuse määramiseks kasutage objekti Vahemik või Lahtrid atribuuti Väärtus.
VahemikVäärtus ja lahtrid.Väärtus
VBA lahtritesse viitamiseks on kaks võimalust:
- Vahemiku objekt - Vahemik (“A2”). Väärtus
- Lahtrite objekt - Lahtrid (2,1). Väärtus
Objekt Range võimaldab viidata lahtrile, kasutades standardset A1 -märget.
See määrab vahemiku A2 väärtuse = 1:
1 | Vahemik ("A2"). Väärtus = 1 |
Objekt Lahtrid võimaldab teil viidata lahtrile selle rea ja veeru numbri järgi.
See määrab vahemiku A2 väärtuse = 1:
1 | Lahtrid (2,1). Väärtus = 1 |
Pange tähele, et sisestate esmalt rea numbri:
1 | Lahtrid (ridade arv, veerg) |
Määrake mitme lahtri väärtused korraga
Selle asemel, et viidata ühele lahtrile, saate viidata lahtrivahemikule ja muuta kõiki lahtri väärtusi korraga.
1 | Vahemik ("A2: A5"). Väärtus = 1 |
Lahtri väärtuse määramine - tekst
Ülaltoodud näidetes määrasime lahtri väärtuseks arvu (1). Selle asemel saate määrata lahtri väärtuse võrdseks tekstistringiga. VBA -s peab kogu tekst olema ümbritsetud tsitaatidega:
1 | Vahemik ("A2"). Väärtus = "Tekst" |
Kui te ei ümbritse teksti tsitaatidega, arvab VBA, et viitate muutujale …
Määra lahtri väärtus - muutuja
Samuti saate määrata lahtri väärtuse, mis on võrdne muutujaga
1234 | Hämardage strText stringinastrText = "Teksti string"Vahemik ("A2"). Väärtus = strText |
Hankige lahtri väärtus
Lahtrite väärtusi saate kasutada sama väärtuse atribuudi abil, mida kasutasime ülal.
Hankige ActiveCelli väärtus
ActiveCelli väärtuse hankimiseks ja selle kuvamiseks sõnumikastis tehke järgmist.
1 | MsgBox ActiveCell.Value |
Määrake muutujale lahtri väärtus
Lahtri väärtuse saamiseks ja muutujale määramiseks toimige järgmiselt.
123 | Dim var Variantvar = Vahemik ("A1"). Väärtus |
Siin kasutasime Variant tüüpi muutujat. Muutujad võivad aktsepteerida mis tahes tüüpi väärtusi. Selle asemel võite kasutada muutujat String:
123 | Hämardage stringinavar = Vahemik ("A1"). Väärtus |
Stringi muutuja tüüp aktsepteerib arvväärtusi, kuid salvestab numbrid tekstina.
Kui teate, et teie lahtri väärtus on numbriline, võite kasutada kahekordse muutuja tüüpi (topeltmuutujad võivad salvestada kümnendväärtusi):
123 | Dim var kui Doublevar = Vahemik ("A1"). Väärtus |
Kui aga proovite salvestada teksti sisaldava lahtri väärtuse kahekordse muutujaga, kuvatakse tüübi mittevastavuse viga:
Muud lahtrite väärtuste näited
Kopeeri lahtri väärtus
Lahtri väärtust on lihtne seada teise lahtri väärtusega (või „kopeerida”):
1 | Vahemik ("A1"). Väärtus = vahemik ("B1"). Väärtus |
Seda saate teha isegi lahtrivahemikega (vahemikud peavad olema ühesuurused):
1 | Vahemik ("A1: A5"). Väärtus = vahemik ("B1: B5"). Väärtus |
Võrrelge rakkude väärtusi
Lahtrite väärtusi saate võrrelda standardsete võrdlusoperaatorite abil.
Kontrollige, kas lahtrite väärtused on võrdsed:
1 | MsgBoxi vahemik ("A1"). Väärtus = vahemik ("B1"). Väärtus |
Tagastab väärtuse TRUE, kui lahtri väärtused on võrdsed. Muidu vale.
Lahtrite väärtuste võrdlemiseks saate luua ka If -avalduse.
12345678910111213 | Kui vahemik ("A1"). Väärtus> Vahemik ("B1"). Väärtus SiisVahemik ("C1"). Väärtus = "suurem kui"Elseifi vahemik ("A1"). Väärtus = vahemik ("B1"). Väärtus siisVahemik ("C1"). Väärtus = "Võrdne"MuiduVahemik ("C1"). Väärtus = "vähem kui"Lõpp Kui |
Teksti saate võrrelda samamoodi (pidage meeles, et VBA on tõstutundlik)