VBA vrednost | Kako uporabiti lastnost vrednosti Excel VBA? (Primeri)

Lastnost vrednosti Excel VBA

Vrednost je lastnost v VBA, ki se večinoma uporablja z metodo obsega za dodelitev vrednosti določenemu obsegu, je na primer vdelani izraz v VBA, če uporabimo obseg ("B3"). Value = 3 bo to dodelilo celica B3 vrednost 3, ni nujno, da je lastnost vrednosti uporabljena samo z metodo obsega, lahko jo uporabimo tudi z drugimi funkcijami.

Že na začetku učenja z VBA smo tako radovedni, da se naučimo, kako shraniti podatke v celice. Če ste tako radovedni, morate razumeti lastnost »Value«. V tem članku vam bomo razložili lastnost »Value«, kako vstaviti ali nastaviti vrednosti, kako pridobiti vrednost iz celice in marsikaj drugega.

V enem od prejšnjih člankov smo razpravljali o “VBA Range Cells”. Objekt Range nam lahko pomaga pri sklicevanju na eno celico in več celic. Za uporabo predmeta RANGE se moramo najprej odločiti, v katero celico moramo vstaviti vrednost in kakšno vrednost bomo vstavili.

Kako uporabiti Value Property v VBA?

To predlogo funkcije vrednosti VBA Excel lahko prenesete tukaj - Predloga vrednosti funkcije VBA Excel

Primer # 1 - Obseg predmeta za dodeljevanje vrednosti celicam

  • Na primer, če želite v celico A1 vstaviti vrednost, potem sklicujte celico A1 tako kot ta obseg ("A1")

Koda:

 Podvrednost () Obseg ("A1") Konec Sub

  • Po sklicevanju na celico z objektom RANGE zdaj postavite piko (.), Da si ogledate seznam IntelliSense vseh lastnosti in metod, povezanih s tem objektom.

Koda:

Podvrednost () Območje ("A1"). Končaj pod

  • V tej vrsti možnosti izberite lastnost »VREDNOST«.

Koda:

 Podvrednost () Obseg ("A1"). Vrednost Konec Pod

  • Ko izberemo lastnost »VALUE«, moramo vrednost nastaviti na celico A1 tako, da vrednost postavimo v enak znak.

Koda:

 Podvrednost () Obseg ("A1"). Vrednost = "Dobrodošli v VBA" Konec pod

  • Ok, to bo v celico A1 vstavilo vrednost »Dobrodošli v VBA«.

  • Če želite v več celic vstaviti isto vrednost, napotite celice, kot je spodnja koda.

Koda:

 Podvrednost () Obseg ("A1: A5"). Vrednost = "Dobrodošli v VBA" Konec pod
  • To bo vstavilo vrednost iz celice A1 do A5 .

  • Če želite vstaviti vrednosti v različne celice, ne pa tudi za zaporedje celic, moramo uporabiti kodo in naslov celice v ločenih argumentih, kot je prikazano spodaj.

Koda:

 Podvrednost () Obseg ("A1, A5, B4, C2"). Value = "Dobrodošli v VBA" End Sub
  • Tako boste v celice A1, A5, B4 in C2 vstavili besedilo »Dobrodošli v VBA« .

2. primer - Vstavite vrednost z uporabo lastnosti CELLS

Vrednosti lahko vstavimo ne prek objekta RANGE, ampak tudi z uporabo lastnosti VBA CELLS. Toda ena od težav s objektom CELLS je, da ne dobimo dostopa do seznama IntelliSense, kot smo ga dobili za objekt RANGE.

Tu moramo omeniti številke vrstic in stolpcev, ki jih potrebujemo za vstavljanje vrednosti. Če želite na primer vrednost vstaviti v celico A1, je koda CELLS (1,1), če želite vrednost vstaviti v celico B5, je koda CELLS (5,2), tj. Enaka B5 celica.

Vrednosti v več celic ne moremo vstaviti z uporabo lastnosti CELLS, to je za razliko od našega predmeta RANGE.

3. primer - Pridobite vrednost celice

Videli smo, kako v celice vstaviti vrednosti, zdaj bomo videli, kako pridobiti vrednosti iz celic.

1. korak: Spremenljivko definirajte kot niz.

Koda:

 Podvrednost () Dim K Kot niz na koncu Sub

2. korak: Za to spremenljivko "k" bomo dodelili vrednost celice A1. V celico A1 sem vnesel vrednost »Dobrodošli v VBA«.

Koda bo torej k = obseg ("A1")

Koda:

 Podvrednost () Dim K Kot niz K = obseg ("A1") Vrednost Konec Sub

3. korak: v polju za sporočila VBA prikažite rezultat spremenljivke „k“.

Koda:

 Podvrednost () Dim K Kot niz K = obseg ("A1"). Vrednost MsgBox K Konec pod

Z zagonom kode bi morali v polju za sporočilo dobiti rezultat vrednosti celice A1.

Za pridobitev podatkov celice A1 lahko uporabimo tudi objekt RANGE, spodnja koda vam bo pokazala enako.

Koda:

 Sub Value () Dim K As String Set CellValue = Range ("A1") MsgBox CellValue End Sub

To bi moralo dobiti tudi vrednost celice A1 v polju za sporočila.

Primer 4 - Vrednost napake, če zahteva več kot eno vrednost celice

Za primer si oglejte spodnjo kodo.

Koda:

 Sub Value () Dim K As Range Set CellValue = Range ("A1: A5") MsgBox CellValue End Sub

Če zaženete zgornjo kodo, bomo dobili napako »Type Mismatch«.

Razlog, zakaj dobimo to napako, ker ko je spremenljivka objekta nastavljena na več lastnosti celice "value", v resnici ne razume, katero vrednost celice je treba dati, zato lahko hkrati dobi eno vrednost celice.