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 naučiti o tome 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?
Primjer # 1 - Objekt raspona za dodjeljivanje vrijednosti ćelijama
- Na primjer, ako želite umetnuti vrijednost u ćeliju A1, tada biste trebali uputiti ćeliju A1 ovako kao Raspon ("A1")
Kodirati:
Podvrijednost () Raspon ("A1") Kraj Pod
- Nakon upućivanja na ćeliju pomoću objekta RANGE, stavite točku (.) Da biste vidjeli IntelliSense popis svih svojstava i metoda povezanih s ovim objektom.
Kodirati:
Podvrijednost () Raspon ("A1"). Kraj pod
- Oblikujte ovu raznolikost opcija, odaberite svojstvo "VRIJEDNOST".
Kodirati:
Podvrijednost () Raspon ("A1"). Vrijednost Kraj Pod
- Jednom kada je odabrano 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 ćelija, navedite ć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, tada moramo 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 kroz objekt RANGE, već i pomoću svojstva VBA CELLS, možemo umetnuti vrijednosti. Ali jedan od problema sa 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 ćeliji.
Vrijednosti ne možemo umetnuti u više ćelija pomoću svojstva CELLS. Ovo je za razliku od našeg RANGE objekta.
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. Ispod ć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
Na 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 od jedne "vrijednosti vrijednosti" ćelije, svojstvo zapravo ne razumije koju ćelijsku vrijednost treba dati, pa istovremeno može dobiti jednu vrijednost ćelije.
