VBA väärtus
VBA teekond algab teadmisega, kuidas väärtused lahtritesse salvestatakse. Seetõttu on VBA funktsiooni VALUE tundmine olulisem. Pärast VBA VÄÄRTUSE omaduste uurimist saate teada, kuidas väärtused VBA alla salvestatakse. See artikkel selgitab kõiki VBA funktsioonide VÄÄRTUS tüüpe, näiteks kuidas väärtus lahtritesse salvestatakse, väärtuse seadmiseks kuum, kuidas sisestada väärtus ja palju muud.
Kuidas kasutada Exceli VBA väärtusfunktsiooni?
Õpime VBA väärtuse funktsiooni kasutama koos mõne näitega Excelis.
Selle VBA väärtuse Exceli malli saate alla laadida siit - VBA väärtuse Exceli mallNäide nr 1 - määrake lahtri väärtus funktsiooni Range.Value abil
Lahtri väärtuse määramine vahemiku abil. Väärtusfunktsioon koosneb laias laastus kahest olulisest sammust:
- Vahemiku määramine, kuhu soovite väärtust salvestada.
- Väärtuse määramine valitud vahemikule.
Excel VBA väärtuse määramiseks toimige järgmiselt.
1. samm: sisestage Visual Basic Editori (VBE) uus moodul.
2. samm: määratlege sisestatud mooduli all uus alamprotseduur, nii et makro saab sellesse salvestada.
Kood:
Alam VBA_Value_Ex1 () Lõpp Alam
3. samm: määratlege uus muutuja vahemikuna, mida saab kasutada vahemiku määratlemiseks, kuhu soovite väärtuse salvestada.
Kood:
Sub VBA_Value_Ex1 () Dim setValue_Var As Range End Sub
4. samm: määrake funktsiooni VBA RANGE abil lahtrid vahemikus muutujale, mis on määratletud määramisoperaatori abiga.
Kood:
Alam VBA_Value_Ex1 () Dim setValue_Var As Range Set SetValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") End Sub
5. samm. Määratud vahemikule väärtuse määramiseks kasutage atribuuti Range.Value. Tippige muutuja nimi „setValue_Var”, mille alla vahemik on määratletud.
Alam VBA_Value_Ex1 () Dim setValue_Var As Range Set SetValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var End Sub
6. samm: sisestage muutuja järele punkt (.), Et saaksite valida selle määratletud vahemiku muutuja jaoks saadaolevate funktsioonide IntelliSense'i loendi.
Kood:
Alam VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var. Lõpu alam
7. samm: lohistage loendist alla ja valige funktsioon Väärtus, et väärtus selle vahemiku muutuja alla salvestada.
Kood:
Alam VBA_Value_Ex1 () Dim setValue_Var As Range Set SetValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var.Value End Sub
8. samm: määrake ülesandeoperaatori abil selle vahemiku väärtuseks „Tere tulemast VBA maailma!“.
Kood:
Alam VBA_Value_Ex1 () Dim setValue_Var As Range Set SetValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1") setValue_Var.Value = "Tere tulemast VBA maailma!" Lõpu alam
9. samm: oleme kodeerimisega valmis. Käivitage see kood, vajutades VBE all nuppu F5 või nuppu Käivita ja vaadake väljundit.
Samuti saate väärtuse määrata lahtrivahemikule. Kõik, mida peate tegema, on väljundi vahemiku määramisel anda ühe lahtri viite asemel ühemõõtmeline massiiv.
10. samm: muutke sama koodi abil vahemik vahemikust „A1” väärtuseks „A1: A5”.
Kood:
Alam VBA_Value_Ex1 () Tühi setValue_Var As Range Set SetValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Range ("A1: A5") setValue_Var.Value = "Tere tulemast VBA maailma!" Lõpu alam
11. samm: vajutage nuppu F5 või nuppu Käivita ja vaadake väljundit.
Näide 2 - lahtri väärtuse määramine, kasutades VBA lahtrite atribuuti
See on veel üks meetod lahtri väärtuse seadmiseks VBA-s. Erinevalt funktsioonist RANGE, ei vaja rakud neid isegi. Väärtuse operaator suudab konkreetse lahtri (te) väärtuse seada.
Lahtri väärtuse seadmiseks rakenduses Excel VBA toimige järgmiselt.
1. samm: sisestage VBE alla uus moodul, kus saate alustada uue kooditüki kirjutamist.
2. samm: lisage sisestatud mooduli alla uus alamprotseduur, kuhu saate makrokoodi salvestada.
Kood:
Alam VBA_Väärtus_Ex2 () Lõpp Alam
3. samm: alustage selle tööraamatu tippimist. Tööleht, et pääseda töölehele nimega „Setting_Cell_Value_2”.
Kood:
Alam VBA_Väärtus_Ex2 () Selle tööraamatu.lehed lõpevad alamjaotusega
4. samm: mainige sulgude all lehe nime kahes jutumärkides.
Kood:
Alam VBA_Value_Ex2 () See tööraamat.Töölehed ("Setting_Cell_Value_2") End Sub
5. samm. Lahtri vahemiku määramiseks antud Exceli lehelt kasutage .Cellsi atribuuti.
Kood:
Alam VBA_Value_Ex2 () See tööraamat.Töölehed ("Setting_Cell_Value_2"). Lahtrid (1, 1) Lõpp Alam
Lahtri omaduse esimene argument tähistab ridu ja teine argument tähistab veergu. Seetõttu tähendab lahter (1, 1) lahtrit, mis on seotud lehe “Setting_Cell_Value_2” esimese rea ja esimese veeruga.
6. samm: määrake määramisoperaatori abiga sellele lahtrikomplektile väärtus.
Kood:
Alam VBA_Value_Ex2 () See tööraamat.Töölehed ("Setting_Cell_Value_2"). Lahtrid (1, 1) = "VBA on paindlik." Lõpu alam
Vaadake, et me ei vaja .Väärtusfunktsiooni, mida peame väärtuse määramisel funktsiooni Range abil kasutama. Lahtrite meetodil pole selliseid IntelliSense'i võimalusi.
7. samm: selle koodi käivitamiseks ja väljundi nägemiseks klõpsake nuppu F5 või nuppu Käivita. Näete väljundit, nagu on näidatud alloleval ekraanipildil.
Näide 3 - lahtri väärtuse hankimine VBA-s
Siiani oleme kahes näites näinud, kuidas seada lahtri või lahtrite väärtust. Oletame nüüd, et juhtum on täpselt vastupidine, peame saama Exceli lehe konkreetsele lahtrile määratud väärtuse. Kuidas me seda saame? Tutvume samm-sammult juhisega.
Oletame, et ma olen määranud väärtuse, nagu on näidatud alloleval ekraanipildil, veeru A esimesse lahtrisse lehel „Getting_Cell_Value”.
Lahtri väärtuse saamiseks rakenduses Excel VBA toimige järgmiselt.
1. samm: sisestage uus moodul VBE alla.
2. samm: lisage alamprotseduur, nii et makro saab salvestada koodina.
Kood:
Alam VBA_Value_Ex3 () Lõpp Alam
3. samm: määratlege uus muutuja nimega Get_Value variandina, kasutades funktsiooni VBA Dim.
Kood:
Alam VBA_Value_Ex3 () Dim Get_Value Variant End Sub
Nüüd peate lahtris A1 oleva väärtuse määrama eespool määratletud muutujale.
4. samm: tippige „Get_Value = ThisWorkbook.Worksheets”. See võimaldab VBA kompilaatoril juurde pääseda exceli lehele, kus teie väärtus on salvestatud.
Kood:
Alam VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets End Sub
5. samm: nimetage sulgude all töölehe nimi koos tsitaatidega, kuhu väärtus on salvestatud.
Kood:
Alam VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value") End Sub
6. samm: kasutage punkti (.) Vahemiku meetodit, et anda täpne lahter, kus väärtus salvestatakse lehel nimega „Getting_Cell_Value”.
Kood:
Alam VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1") End Sub
7. samm. Lõpuks kasutage punkti (.) Väärtuse meetodit, et kompilaator pääseb lahtri A1 tegelikule väärtusele.
Kood:
Alam VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1"). Value End Sub
8. samm: Nagu me juba rääkisime, peame hankima lahtrisse A1 salvestatud väärtuse. Selleks kasutage MsgBoxi, et näidata muutuja Get_Value väärtust (millel on juba juurdepääs lahtrisse A1 sisestatud väärtusele).
Kood:
Alam VBA_Value_Ex3 () Dim Get_Value Variantina Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Range ("A1"). Väärtus MsgBox Get_Value End Sub
9. samm: selle koodi käivitamiseks klõpsake nuppu F5 või nuppu Käivita, saate väärtus lahtrisse A1 lahtrisse.
Vaadake, seda väärtust nimetasime lehe „Getting_Cell_Value” lahtris A1. Õige?
Näide 4 - kas me saame korraga mitu lahtri väärtust?
Oletame, et mul on väärtused salvestatud kolme erinevasse lahtrisse A1, A2, A3, nagu on näidatud alloleval ekraanipildil:
Ärge segi ajage, kui näete teksti piki veerge A kuni E. See on lihtsalt nähtav paigutus (kuna ma olen lahtrid ühendanud) ja tegelik väärtus salvestatakse ainult lahtritesse A1, A2, A3.
Excel VBA väärtuse kasutamiseks toimige järgmiselt.
1. samm: määratlege muutuja variandina VBA mooduli uue alaprotseduuri all.
Kood: alam VBA_Value_Ex4 () Dim Get_Value_2 Variant End Sub
2. samm. Lahtrite A1: A3 väärtuse leidmiseks kasutage meetodit Range.Value ja määrake eelmises etapis määratletud uuele muutujale.
Kood:
Alam VBA_Value_Ex4 () Dim Get_Value_2 Variant Get_Value_2 = ThisWorkbook.Worksheets ("Getting_Cell_Value_2"). Range ("A1: A3"). Value End Sub
3. samm. Lõpuks kasutage funktsiooni MsgBox, et kuvada lahtrisse A1: A3 salvestatud väärtused.
Kood:
Alam VBA_Value_Ex4 () Dim Get_Value_2 Variant Get_Value_2 = ThisWorkbook.Worksheets ("Getting_Cell_Value_2"). Range ("A1: A3"). Value MsgBox Get_Value_2 End Sub
4. samm: vajutage nuppu F5 või nuppu Käivita ja vaadake selle koodi väljundit.
Saate käitusaja vea '13 ': Sisestage sobimatus. Selle vea saamise põhjuseks on see, et määratleme ühe muutuja ja määrame sellele ühemõõtmelise massiivi (kolme reaga) väärtused. Mis pole loogiliselt võimalik.
See on sellest artiklist. Mässime asjad kokku mõne meeldejääva punktiga.
Asjad, mida meeles pidada
VBA CELLS-meetodi kasutamisel ei saa mitu lahtrit väärtust määrata, kuna see võtab argumentidena ridu ja veerge. Selles saate määrata ainult rea ja veeru numbri.
Samuti ei saa te ühes sõnumikastis mitmesse lahtrisse salvestatud väärtusi. Kui peate hankima väärtuste vahemiku, peate iga väärtuse jaoks kirjutama eraldi hankimisargumendid.
Soovitatavad artiklid
See on olnud VBA väärtuse juhend. Siin oleme arutanud, kuidas kasutada Exceli VBA väärtusfunktsiooni koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -
- VBA Vigade täielik juhend
- Kuidas kasutada VBA numbrivormingut?
- VBA VLOOKUP funktsioon näidetega
- VBA funktsiooni loomine Excelis
- Kuidas kasutada VBA Val funktsiooni?