VBA Vrednost
Pot VBA se začne z vedenjem, kako se vrednosti shranijo v celicah. Zato je poznavanje funkcije VALUE v sistemu VBA bolj pomembno. Po študiju o lastnostih VBA VALUE boste lahko vedeli, kako vrednosti shranjujejo pod VBA. Ta članek razloži vse vrste funkcije VALUE v VBA, na primer, kako se vrednost shrani v celice, vroče za nastavitev vrednosti, kako vstaviti vrednost in še veliko več.
Kako uporabljati vrednost vrednosti Excel VBA?
Spoznali bomo uporabo funkcije VBA Vrednost z nekaj primeri v Excelu.
To predlogo VBA Value Excel lahko prenesete tukaj - Predloga VBA Value ExcelPrimer # 1 - Nastavite vrednost celice s funkcijo Range.Value
Nastavitev vrednosti celice / s s pomočjo Range. Vrednostno funkcijo približno sestavljata dva pomembna koraka:
- Nastavitev obsega, v katerem želite shraniti vrednost.
- Dodelitev vrednosti naboru obsega.
Za nastavitev vrednosti v Excelu VBA sledite spodnjim korakom:
1. korak: Vstavite nov modul pod Visual Basic Editor (VBE).
2. korak: Pod vstavljenim modulom določite nov podproces, tako da lahko v njem shranite makro.
Koda:
Sub VBA_Value_Ex1 () Konec Sub
3. korak: Novo spremenljivko določite kot obseg, ki ga lahko uporabite za določitev obsega, v katerem želite vrednost shraniti.
Koda:
Pod VBA_Value_Ex1 () Dim setValue_Var As Range End Sub
4. korak: S pomočjo funkcije VBA RANGE celice v območju dodelite spremenljivki, definirani s pomočjo operaterja za dodeljevanje.
Koda:
Pod VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Obseg ("A1") End Sub
5. korak: Zdaj uporabite lastnost Range.Value, da lahko dodelite vrednost definiranemu območju. Vnesite ime spremenljivke „setValue_Var“, pod katerim je opredeljeno območje.
Pod VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Obseg ("A1") setValue_Var End Sub
6. korak: Za spremenljivko vstavite piko (.), Da boste lahko izbrali seznam funkcij, ki so na voljo za določeno spremenljivko obsega.
Koda:
Pod VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Obseg ("A1") setValue_Var. Končni pod
7. korak: Povlecite navzdol po seznamu in izberite funkcijo »Vrednost«, da vrednost shranite pod to spremenljivko obsega.
Koda:
Pod VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Obseg ("A1") setValue_Var.Value End Sub
Korak 8: S tem operaterjem dodelitve dodelite vrednost »Dobrodošli v svetu VBA!« Kot vrednost tega razpona.
Koda:
Pod VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Obseg ("A1") setValue_Var.Value = "Dobrodošli v svetu VBA!" Končni pod
9. korak: Končali smo s kodirnim delom. Zaženite to kodo s pritiskom na tipko F5 ali Run pod VBE in si oglejte izhod.
Vrednost lahko dodelite tudi številnim celicam. Vse, kar morate storiti, je, ko nastavite obseg za izhod, ki mu boste namenili enodimenzionalno matriko namesto ene same celice.
Korak 10: V isti kodi zgoraj spremenite območje z "A1" v "A1: A5".
Koda:
Pod VBA_Value_Ex1 () Dim setValue_Var As Range Set setValue_Var = ThisWorkbook.Worksheets ("Setting_Cell_Value_1"). Obseg ("A1: A5") setValue_Var.Value = "Dobrodošli v svetu VBA!" Končni pod
11. korak: Pritisnite tipko F5 ali Run in poglejte izhod.
Primer # 2 - Nastavite vrednost celice s pomočjo lastnosti VBA Cells
To je še ena metoda za nastavitev vrednosti celice pod VBA. Za razliko od funkcije RANGE jih celice sploh ne potrebujejo. Operater vrednosti, ki bo lahko nastavil vrednost za določeno celico / celice.
Za nastavitev vrednosti celice v Excelu VBA sledite spodnjim korakom:
1. korak: V VBE vstavite nov modul, kjer lahko začnete pisati nov kos kode.
Korak 2: Dodajte nov podproces pod vstavljen modul, kamor lahko shranite makro kodo.
Koda:
Pod VBA_Value_Ex2 () Konec Sub
3. korak: Začnite tipkati thisWorkbook.Worksheet za dostop do lista z imenom "Setting_Cell_Value_2".
Koda:
Pod VBA_Value_Ex2 () ThisWorkbook.worksheets Konec Pod
4. korak: V oklepajih v dvojnih narekovajih navedite ime lista.
Koda:
Pod VBA_Value_Ex2 () ThisWorkbook.Worksheets ("Nastavitev_Cell_Value_2") End Sub
5. korak : Lastnost .Cells nastavite obseg celic iz danega lista excel.
Koda:
Pod VBA_Value_Ex2 () ThisWorkbook.Worksheets ("Setting_Cell_Value_2"). Celice (1, 1) End Sub
Prvi argument lastnosti Celice predstavlja vrstice, drugi argument pa stolpec. Zato Celice (1, 1) pomenijo celico, povezano s prvo vrstico in prvim stolpcem lista „Setting_Cell_Value_2“.
6. korak: Zdaj s pomočjo operaterja za dodeljevanje dodelite vrednost temu nizu celic.
Koda:
Pod VBA_Value_Ex2 () ThisWorkbook.Worksheets ("Setting_Cell_Value_2"). Celice (1, 1) = "VBA je prilagodljiv." Končni pod
Poglejte, da ne potrebujemo .Value funkcije, ki jo moramo uporabiti pri nastavitvi vrednosti s funkcijo Range. Metoda Cells nima takšnih možnosti IntelliSense.
7. korak: Pritisnite tipko F5 ali Run in zaženite to kodo in si oglejte izhod. Rezultat boste videli, kot je prikazano na posnetku zaslona spodaj.
Primer # 3 - Pridobite vrednost celice v VBA
Do zdaj smo v dveh primerih videli, kako nastaviti vrednost za celico ali obseg celic. Predpostavimo, da je primer ravno obratno, pridobiti moramo vrednost, dodeljeno določeni celici lista excel. Kako lahko to dosežemo? Pojdimo skozi vodnik po korakih.
Recimo, da sem dodelil vrednost, kot je prikazano na spodnjem posnetku zaslona pod prvo celico stolpca A na listu "Getting_Cell_Value".
Za pridobitev vrednosti celice v Excelu VBA sledite spodnjim korakom:
1. korak: Vstavite nov modul pod VBE.
2. korak: Dodajte podproces, da lahko makro shranite kot kodo.
Koda:
Sub VBA_Value_Ex3 () Konec Sub
3. korak: S pomočjo funkcije VBA Dim določite novo spremenljivko, imenovano Get_Value, kot varianto.
Koda:
Pod VBA_Value_Ex3 () Dim Get_Value kot varianta konec Sub
Zdaj morate vrednosti, ki je prisotna v celici A1, dodeliti zgoraj definirani spremenljivki.
4. korak: Vnesite "Get_Value = ThisWorkbook.Worksheets". To bo omogočilo prevajalniku VBA dostop do seznama excel, kjer je shranjena vaša vrednost.
Koda:
Pod VBA_Value_Ex3 () Dim Get_Value kot varianta Get_Value = ThisWorkbook.Worksheets End Sub
5. korak: V oklepajih navedite ime delovnega lista z navedki, v katerih je vrednost shranjena.
Koda:
Pod VBA_Value_Ex3 () Dim Get_Value kot varianta Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value") End Sub
6. korak: Zdaj z uporabo metode pik (.) Določite točno celico, v kateri je vrednost shranjena pod listom z imenom "Getting_Cell_Value".
Koda:
Pod VBA_Value_Ex3 () Dim Get_Value kot varianta Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Obseg ("A1") End Sub
7. korak: Na koncu uporabite metodo vrednosti pike (.), Tako da lahko prevajalnik dostopa do dejanske vrednosti pod celico A1.
Koda:
Pod VBA_Value_Ex3 () Dim Get_Value kot varianta Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Obseg ("A1") Vrednost konec Sub
Korak 8: Kot smo že govorili, moramo dobiti vrednost, shranjeno v celici A1. Za to uporabite MsgBox, da pokažete vrednost spremenljivke Get_Value (Do katere je že dostopna vrednost, vnesena v celico A1).
Koda:
Pod VBA_Value_Ex3 () Dim Get_Value kot varianta Get_Value = ThisWorkbook.Worksheets ("Getting_Cell_Value"). Obseg ("A1") Vrednost MsgBox Get_Value End Sub
9. korak: Pritisnite tipko F5 ali Run, da zaženete to kodo, v oknu s sporočilom dobite vrednost, ki je prisotna v celici A1.
Glej, to je bila vrednost, ki smo jo omenili v celici A1 lista "Getting_Cell_Value". Prav?
Primer # 4 - Ali lahko hkrati dobimo več vrednosti celic?
Predpostavimo, da imam vrednosti shranjene v treh različnih celicah A1, A2, A3, kot je prikazano na spodnjem posnetku:
Samo ne zmedite se, če vidite, da se besedilo širi vzdolž stolpcev od A do E. je le vidna postavitev (ker sem celice združil) in dejanska vrednost je shranjena samo pod celicami A1, A2, A3.
Če želite uporabiti vrednost Excel VBA, sledite spodnjim korakom:
1. korak: V novem podprocedu v vašem modulu VBA določite spremenljivko kot varianto.
Koda: Pod VBA_Value_Ex4 () Dim Get_Value_2 Kot variant End Sub
2. korak: Uporabite metodo Range.Value za pridobivanje vrednosti celic A1: A3 in dodelitev novi spremenljivki, definirani v prejšnjem koraku.
Koda:
Pod VBA_Value_Ex4 () Dim Get_Value_2 kot varianta Get_Value_2 = ThisWorkbook.Worksheets ("Getting_Cell_Value_2"). Obseg ("A1: A3"). Vrednost konec Sub
Korak 3: Na koncu uporabite funkcijo MsgBox, da prikažete vrednosti, shranjene v celici A1: A3.
Koda:
Pod VBA_Value_Ex4 () Dim Get_Value_2 kot varianta Get_Value_2 = ThisWorkbook.Worksheets ("Getting_Cell_Value_2"). Obseg ("A1: A3"). Vrednost MsgBox Get_Value_2 End Sub
4. korak: Pritisnite tipko F5 ali Run in poglejte izhod za to kodo.
Prikaže se napaka med izvajanjem'13 ': Vtipkajte neusklajenost. Razlog za to napako je, da definiramo eno spremenljivko in ji dodelimo vrednosti enodimenzionalnega niza (s tremi vrsticami). Kar logično ni mogoče.
To je iz tega članka. Stvari si oglejmo z nekaj točkami, ki jih je treba zapomniti.
Stvari, ki jih je treba zapomniti
Med uporabo metode VBA CELLS ne morete nastaviti vrednosti več celic, ker kot argumente vzame vrstice in stolpce. V njem lahko določite samo številko vrstice in številko stolpca.
V enem samem oknu ne morete dobiti vrednosti, shranjenih v več celicah. Če morate pridobiti obseg vrednosti, morate za vsako vrednost napisati ločene argumente za pridobivanje.
Priporočeni članki
To je vodnik za vrednost VBA. Tu smo razpravljali o uporabi vrednosti Excel VBA Value Function skupaj s praktičnimi primeri in naložljivo predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -
- Popoln vodnik za napako VBA
- Kako uporabljati format številke VBA?
- VBA VLOOKUP Funkcija s primeri
- Ustvarjanje funkcije VBA v Excelu
- Kako uporabljati funkcijo VBA Val?