U VBA možemo odabrati bilo koji raspon stanica ili skupinu stanica i na njima izvoditi različit skup operacija, odabir je objekt raspona pa koristimo metodu raspona za odabir stanica jer identificira stanice, a kod za odabir stanica je Naredba "Select", sintaksa koja se koristi za odabir je raspon (A1: B2) .select.
Što je svojstvo za odabir programa Excel VBA?
Odabir je svojstvo dostupno uz VBA. Nakon što odaberemo raspon stanica, moramo odlučiti što trebamo učiniti. Koristeći ovo svojstvo VBA "Odabir" možemo učiniti sve što možemo s odabranim stanicama. Jedan od problema sa svojstvom Selection je što ne vidimo popis IntelliSense. Dakle, kada pišemo kod, moramo biti potpuno sigurni u ono što radimo bez popisa IntelliSense.
Primjeri odabira svojstva u VBA
Ovdje ćemo pogledati primjere odabira u programu Excel VBA.
Primjer # 1
Dopustite mi da vam pokažem jednostavan primjer svojstva "odabira" s VBA. Sada želim prvo odabrati ćelije od A1 do B5 da bismo mogli ovako napisati VBA kod.
Raspon ( "A1: B5" ). Odaberite
Kodirati:
Sub Selection_Example1 () Raspon ("A1: B5"). Odaberite End Sub
Ovaj će kôd odabrati raspon VBA ćelija od A1 do B5.
Ako želim umetnuti vrijednost "zdravo" u ove ćelije, mogu napisati kod ovako.
Kodirati:
Podizbor_Primjer1 () Raspon ("A1: B5"). Value = "hello" End Sub
Slično tome, nakon što se odaberu stanice, postaje "Odabir".
Kodirati:
Sub Selection_Example1 () Raspon ("A1: B5"). Odaberite Selection.Value = "Hello" End Sub
U prvom gore navedenom odabrao sam raspon stanica od A1 do B5. Dakle, ovaj će redak odabrati stanice.
Nakon što se odaberu ove stanice, na njih se možemo pozivati pomoću svojstva "Odabir" u excelu VBA. Dakle, koristeći svojstvo Selection, u ove ćelije možemo umetnuti vrijednost "Hello".
Ovo je opći pregled svojstva "Selection" u VBA.
Primjer # 2
Sada ćemo vidjeti svojstvo VBA "Odabir" s varijablama. Definirajte VBA varijablu kao Raspon.
Kodirati:
Sub Selection_Example2 () Dim Rng As Range End Sub
Raspon je objektna varijabla budući da je objektna varijabla. Moramo postaviti raspon ćelija pomoću ključne riječi "Set".
Podesit ću raspon kao "Raspon (" A1: A6 ").
Kodirati:
Sub Selection_Example2 () Dim Rng As Range Set Rng = Range ("A1: A6") End Sub
Sada se varijabla " Rng " odnosi na raspon ćelija od A1 do A6 .
Sada ću napisati kod da ubacim vrijednost " Zdravo ".
Kodirati:
Sub Selection_Example2 () Dim Rng As Range Set Rng = Range (Range ("A1: A6") Rng.Value = "Hello" End Sub
Ovo će umetnuti vrijednost "Pozdrav" u ćelije od A1 do A6.
Nije važno odakle pokrećete kôd, u aktivni radni list umetnut će vrijednost "Pozdrav" u ćeliju A1 do A6.
Ali zamislite situaciju u kojoj morate umetnuti riječ "Zdravo" gdje god odaberete ćelije jednim klikom na gumb.
Zbog toga ne možemo postaviti određeni raspon stanica. Umjesto toga, moramo postaviti raspon kao " Odabir ".
Kodirati:
Sub Selection_Example2 () Dim Rng As Range Set Rng = Selection End Sub
Sada se varijabla "Rng" odnosi na aktivnu ćeliju ili gdje god odaberemo stanice. Sad koristeći ovo svojstvo (Odabir) u excelu VBA, možemo umetnuti vrijednost "Hello".
Kodirati:
Sub Selection_Example2 () Dim Rng As Range Set Rng = Selection Selection.Value = "Hello" End Sub
Ovo će umetnuti riječ "Zdravo" u ćelije našeg odabira. Sada ću odabrati ćelije od B2 do C6 i pokrenuti kod; umetnut će vrijednost "Hello".
Primjer # 3
Sad ćemo vidjeti kako možemo promijeniti unutarnju boju odabranih stanica. Sada želim promijeniti unutarnju boju ćelija koje ću odabrati. Za ovo prvo, proglasio sam varijablu kao Raspon i postavio referencu za opseg kao "Odabir".
Kodirati:
Sub Selection_Example3 () Dim Rng As Range Set Rng = Selection End Sub
Sada se pomoću svojstva VBA Selection pristupa svojstvu "Interior" .
Kodirati:
Sub Selection_Example3 () Dim Rng As Range Set Rng = Selection Selection.Interior End Sub
Nakon što se odabere svojstvo "Unutrašnjost", trebamo odlučiti što trebamo učiniti s ovom nekretninom. Budući da moramo promijeniti boju unutrašnjosti odabrane ćelije, odaberite svojstvo "Boja".
Kodirati:
Sub Selection_Example3 () Dim Rng As Range Set Rng = Selection Selection.Interior.Color End Sub
Postavite svojstvo boje kao " vbGreen ".
Kodirati:
Sub Selection_Example3 () Dim Rng As Range Set Rng = Selection Selection.Interior.Color = vbGreen End Sub
Dakle, ovo će promijeniti unutarnju boju odabranih stanica u "vbGreen".
Kao što je ovo, u kodiranju možemo koristiti svojstvo Excel "VBA" Odabir "i učiniti puno više stvari lako.
Napomena: Jedna od najvećih prijetnji sa svojstvom “Selection” je da ne dobivamo pristup popisu IntelliSense tijekom kodiranja. Kao novi učenik, gotovo je nemoguće zapamtiti sva svojstva i metode svojstva Selection, tako da morate biti apsolutno profesionalni u VBA da biste počeli koristiti svojstvo "Selection".
