VBA vrijednost | Kako koristiti svojstvo vrijednosti Excel VBA? (Primjeri)

Svojstvo vrijednosti Excel VBA

Vrijednost je svojstvo u VBA-u koje se uglavnom koristi s metodom raspona za dodjeljivanje vrijednosti određenom rasponu, to je ugrađeni izraz u VBA-u, na primjer, ako koristimo raspon ("B3"). Value = 3 to će dodijeliti ćelija B3 vrijednost 3, ne nužno da se to svojstvo vrijednosti koristi samo s metodom raspona, možemo ga koristiti i s drugim funkcijama.

Na početku učenja s VBA-om toliko smo znatiželjni saznati kako pohraniti podatke u stanice. Ako ste toliko znatiželjni, tada morate razumjeti svojstvo "Vrijednost". U ovom ćemo vam članku objasniti svojstvo "Vrijednost", kako umetnuti ili postaviti vrijednosti, kako dobiti vrijednost iz ćelije i mnoge druge stvari.

U jednom od ranijih članaka raspravljali smo o "VBA Range Cells". Objekt raspona može nam pomoći da se uputimo na jednu ćeliju kao i na više stanica. Da bismo prvo upotrijebili objekt RANGE, moramo odlučiti u koju ćeliju trebamo umetnuti vrijednost i koja je vrijednost koju ćemo umetnuti.

Kako koristiti svojstvo vrijednosti u VBA?

Ovaj predložak funkcije funkcije VBA Excel možete preuzeti ovdje - Predložak funkcije funkcije VBA Excel

Primjer # 1 - Objekt raspona za dodjeljivanje vrijednosti ćelijama

  • Na primjer, ako želite umetnuti vrijednost u ćeliju A1, trebali biste uputiti ćeliju A1 ovako kao Raspon ("A1")

Kodirati:

 Podvrijednost () Raspon ("A1") Kraj Pod 

  • Nakon upućivanja na ćeliju pomoću RANGE objekta, stavite točku (.) Da biste vidjeli IntelliSense popis svih svojstava i metoda povezanih s ovim objektom.

Kodirati:

Podvrijednost () Raspon ("A1"). Kraj pod

  • U ovoj raznolikosti opcija odaberite svojstvo "VRIJEDNOST".

Kodirati:

 Podvrijednost () Raspon ("A1"). Vrijednost Kraj Pod 

  • Nakon što odaberemo svojstvo “VALUE”, trebamo postaviti vrijednost na ćeliju A1 stavljanjem vrijednosti u znak jednakosti.

Kodirati:

 Podvrijednost () Raspon ("A1"). Vrijednost = "Dobrodošli u VBA" Kraj pod 

  • Ok, ovo će umetnuti vrijednost "Dobrodošli u VBA" u ćeliju A1.

  • Ako želite umetnuti istu vrijednost u više stanica, uputite ćelije poput donjeg koda.

Kodirati:

 Podvrijednost () Raspon ("A1: A5"). Vrijednost = "Dobrodošli u VBA" Kraj pod 
  • Ovo će umetnuti vrijednost iz ćelije A1 do A5 .

  • Ako želite umetnuti vrijednosti u različite ćelije, ali ne i za niz ćelija, trebamo koristiti kod i adresu ćelije u zasebnim argumentima kao što je dolje.

Kodirati:

 Podvrijednost () Raspon ("A1, A5, B4, C2"). Vrijednost = "Dobrodošli u VBA" Kraj pod 
  • Ovo će umetnuti tekst "Dobrodošli u VBA" u ćelije A1, A5, B4 i C2 .

Primjer # 2 - Umetnite vrijednost pomoću svojstva CELLS

Ne putem objekta RANGE, ali i pomoću svojstva VBA CELLS možemo umetnuti vrijednosti. Ali jedan od problema s objektom CELLS je što ne dobivamo pristup popisu IntelliSense kao za objekt RANGE.

Ovdje moramo spomenuti brojeve redaka i stupaca koji trebaju umetanje vrijednosti. Na primjer, ako želite umetnuti vrijednost u ćeliju A1 tada je kod CELLS (1,1), ako želite umetnuti vrijednost u ćeliju B5, tada je kod CELLS (5,2) tj. Jednak B5 stanica.

Ne možemo umetnuti vrijednosti u više stanica pomoću svojstva CELLS, ovo je za razliku od našeg objekta RANGE.

Primjer # 3 - Dohvatite vrijednost ćelije

Vidjeli smo kako umetnuti vrijednosti u stanice, a sada ćemo vidjeti kako dobiti vrijednosti iz stanica.

Korak 1: Definirajte varijablu kao String.

Kodirati:

 Podvrijednost () Zatamni K Kao niz na kraju Pod 

Korak 2: Za ovu varijablu "k" dodijelit ćemo vrijednost ćelije A1. U ćeliju A1 upisao sam vrijednost "Dobrodošli u VBA".

Dakle, kôd će biti k = Raspon ("A1"). Vrijednost

Kodirati:

 Podvrijednost () Dim K Kao niz K = Raspon ("A1"). Vrijednost Kraj Sub 

Korak 3: Prikažite rezultat varijable „k“ u okviru VBA poruke.

Kodirati:

 Podvrijednost () Dim K Kao niz K = Raspon ("A1"). Vrijednost MsgBox K Kraj Sub 

Pokretanjem koda trebali bismo dobiti rezultat vrijednosti ćelije A1 u okviru za poruku.

Objekt RANGE također možemo koristiti za dobivanje podataka ćelije A1, donji kôd će vam pokazati isto.

Kodirati:

 Podvrijednost () Zatamni K Kao niz Set CellValue = Raspon ("A1") MsgBox CellValue End Sub 

Ovo bi također trebalo dobiti vrijednost ćelije A1 u okviru za poruku.

Primjer 4 - Vrijednost pogreške ako je potrebno više vrijednosti jedne ćelije

Za primjer pogledajte donji kod.

Kodirati:

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

Ako pokrenete gornji kod, dobit ćemo pogrešku "Type Mismatch".

Razlog zašto dobivamo ovu pogrešku jer kada je objektna varijabla postavljena na više svojstava "vrijednost" ćelije, zapravo ne razumije koju ćelijsku vrijednost treba dati, pa istovremeno može dobiti jednu vrijednost ćelije.