Dohvatite vrijednost ćelije u programu Excel VBA (primjeri korak po korak)

Nabavite vrijednost ćelije pomoću programa Excel VBA

Stanica je pojedinačna stanica i također je dio raspona, tehnički postoje dvije metode za interakciju sa ćelijom u VBA i to su metoda opsega i metoda stanica, metoda opsega koristi se poput raspona ("A2") .Vrijednost koja će nam dati vrijednost A2 stanice ili metodu stanica možemo koristiti kao ćelije (2,1) .vrijednost koja će nam dati i vrijednost A2 ćelija.

Bio to izvanredan rad ili rad s VBA-om, svima nam je potreban rad sa stanicom ili stanicama, jer će se svi podaci pohraniti u stanice, tako da se sve svodi na to koliko dobro znamo o stanicama u VBA-u. Dakle, ako su stanice tako presudan dio VBA, važno ih je dobro razumjeti, a ako ste početnik u vezi s VBA stanicama, ovaj će vas članak detaljno uputiti kako dobiti vrijednosti stanica u Excelu VBA.

Prvo što možemo, možemo se referencirati ili raditi sa stanicama u VBA na dva načina, tj. Pomoću svojstva CELLS i RANGE objekta. Zašto su STANICE svojstvo i zašto RANGE objekt je druga analogija, a kasnije u članku doći ćemo do te točke.

Primjeri dobivanja vrijednosti ćelije u programu Excel VBA

Ispod su primjeri Dohvaćanja vrijednosti ćelije u programu Excel VBA.

Ovdje možete preuzeti ovaj VBA Dobiti predložak vrijednosti vrijednosti ćelije ovdje - VBA Dobiti predložak vrijednosti vrijednosti ćelije Excel

Primjer # 1 - Korištenje svojstva RANGE ili CELLS

Na primjer, u ćeliji A1 imamo vrijednost "Indija".

Da bismo referencirali ovu ćeliju, možemo koristiti svojstvo CELLS ili RANGE objekt, pogledajmo ih obje u detalje.

Korištenje svojstva raspona

Prvo pokrenite makro postupak.

Kodirati:

 Sub Get_Cell_Value () Kraj Sub 

Sada otvorite objekt RANGE.

Kodirati:

 Sub Get_Cell_Value () Raspon (Kraj Sub 

Prvi argument ovog objekta je "Cell1", tj. Na koju ćeliju mislimo. U ovom je slučaju riječ o ćeliji A1, pa moramo adresu ćelije unijeti u dvostrukim navodnicima za objekt RANGE.

Kodirati:

 Sub Get_Cell_Value () Raspon ("A1") Kraj Sub 

Budući da se samo jedna ćelija odnosi na druge parametre, irelevantno je, zato zatvorite zagradu i stavite točku da biste vidjeli popis intellisense.

Kao što vidite iznad, u trenutku kada stavimo točku, možemo vidjeti sav raspoloživi intellisense popis svojstava i metoda objekta raspona.

Budući da odabiremo ćeliju, moramo odabrati metodu "SELECT" s popisa intellisense.

Kodirati:

 Sub Get_Cell_Value () Raspon ("A1"). Odaberite End Sub 

Sada odaberite ćeliju koja nije A1 i pokrenite kôd.

Nije važno koju ste ćeliju odabrali u trenutku kada pokrenete kod koji je odabrala spomenutu ćeliju, tj. A1 ćeliju.

Korištenje svojstva stanica

Slično tome, sada koristimo svojstvo CELLS.

Kodirati:

 Sub Get_Cell_Value () Raspon ("A1"). Odaberite ćelije (Kraj Sub 

To je za razliku od RANGE objekta gdje bismo mogli izravno dostaviti adresu ćelije, ali pomoću ovog svojstva CELLS to ne možemo učiniti.

Prvi argument ovog svojstva je "Redni indeks", tj. Na koji red se pozivamo. Budući da odabiremo ćeliju A1, mislimo na prvi redak, zato spomenite 1.

Sljedeći je argument "Indeks stupaca", tj. Na koji stupac se pozivamo. Stupac A1 ćelije je prvi stupac, pa unesite 1.

Naš kod glasi CELLS (1, 1), tj. Prvi redak prvi stupac = A1.

Sad stavite točku i pogledajte hoćete li vidjeti popis intellisense ili ne.

Sa svojstvima CELLS ne možemo vidjeti nijedan popis IntelliSense, pa moramo biti apsolutno sigurni u ono što pišemo. Unesite "Select" kao metodu.

Kodirati:

 Sub Get_Cell_Value () Raspon ("A1"). Odaberite ćelije (1, 1). Odaberite End Sub 

Ovo će također odabrati ćeliju A1.

Primjer # 2 - Dohvatite vrijednost iz ćelije u programu Excel VBA

Odabir je prva stvar koju smo naučili, sada ćemo vidjeti kako dobiti vrijednost iz stanica. Prije nego što odaberemo ćeliju, moramo definirati varijablu za pohranu vrijednosti iz ćelije.

Kodirati:

 Sub Get_Cell_Value1 () Dim CellValue kao niz na kraju Sub 

Sada spomenite adresu ćelije pomoću objekta RANGE ili svojstva CELLS. Budući da ste početnik, koristite objekt RANGE samo zato što s objektom RANGE vidimo popis intellisense.

Za definiranu varijablu stavite znak jednakosti i spomenite adresu ćelije.

Kodirati:

 Sub Get_Cell_Value1 () Zatamni CellValue kao niz CellValue = Raspon ("A1") Kraj Sub 

Još jednom stavite točku da biste vidjeli popis intellisense.

Na popisu vba intellisense odaberite svojstvo "Value" da biste dobili vrijednost iz spomenute ćelije.

Kodirati:

 Sub Get_Cell_Value1 () Priguši vrijednost ćelije kao niz CellValue = Raspon ("A1"). Vrijednost Kraj Sub 

Sada varijabla "CellValue" sadrži vrijednost iz ćelije A1. Prikažite ovu vrijednost varijable u okviru za poruke u VBA.

Kodirati:

 Sub Get_Cell_Value1 () Zatamni CellValue kao niz CellValue = Raspon ("A1"). Vrijednost MsgBox CellValue End Sub 

Ok, pokrenite kôd i pogledajte rezultat u okviru za poruku.

Budući da u ćeliji A1 postoji vrijednost "INDIA", ista se stvar pojavila i u okviru za poruke. Ovako, prema VBA vrijednosti stanice možemo dobiti vrijednost stanice.

Primjer # 3 - Dobijte vrijednost od jedne ćelije do druge ćelije

Znamo kako dobiti vrijednost iz ćelije pomoću vba, sada je pitanje kako umetnuti vrijednost u ćeliju. Uzmimo samo isti primjer, za ćeliju A1 moramo umetnuti vrijednost "INDIA", a to se može učiniti iz donjeg koda.

Kodirati:

 Sub Get_Cell_Value2 () Raspon ("A1"). Vrijednost = "INDIA" Kraj Sub 

Ovo će umetnuti vrijednost "INDIA" u ćeliju A1, slično da bismo dobili vrijednost iz jedne ćelije u drugu, možemo napisati kod kao dolje.

Kodirati:

 Sub Get_Cell_Value2 () Raspon ("A5"). Vrijednost = Raspon ("A1"). Vrijednost Kraj Sub 

Dopustite mi da vam objasnim kod.

"Za ćeliju A5 trebamo vrijednost koja je iz vrijednosti ćelije A1", to je sve što ovaj kôd kaže. Dakle, ovo će dobiti vrijednost od ćelije A1 do A5 pomoću VBA koda.

Stvari koje treba zapamtiti

  • Umetanje vrijednosti u ćelije i dobivanje vrijednosti iz ćelije zahtijeva korištenje svojstva VBA "VALUE".
  • Pomoću svojstva CELLS možemo odabrati samo jednu ćeliju, ali pomoću objekta RANGE možemo odabrati više ćelija.