VBA mes galime pasirinkti bet kurį langelių diapazoną arba ląstelių grupę ir atlikti jiems skirtingas operacijų rinkinius, pasirinkimas yra diapazono objektas, todėl mes naudojame diapazono metodą, kad pasirinktume ląsteles, nes jis identifikuoja ląsteles, o kodas yra Komanda „Pasirinkti“, pasirinkta sintaksė yra diapazonas (A1: B2). Pasirinkite.
Kas yra „Excel VBA Selection“ ypatybė?
Pasirinkimas yra VBA turtas. Pasirinkę langelių diapazoną, turime nuspręsti, ką turime daryti. Naudodami šią VBA „Selection“ ypatybę, galime atlikti visus dalykus, kuriuos galime padaryti su pasirinktomis ląstelėmis. Viena iš ypatybių „Selection“ problemų yra ta, kad mes nematome „IntelliSense“ sąrašo. Taigi, kai rašome kodą, turime būti visiškai tikri, ką darome be „IntelliSense“ sąrašo.
VBA pasirinkimo savybės pavyzdžiai
Čia apžvelgsime pasirinkimo „Excel VBA“ pavyzdžius.
1 pavyzdys
Leiskite man parodyti paprastą „pasirinkimo“ nuosavybės su VBA pavyzdį. Dabar noriu pirmiausia pasirinkti langelius nuo A1 iki B5, kad galėtume taip parašyti VBA kodą.
Diapazonas ( „A1: B5“ ). Pasirinkite
Kodas:
Sub Selection_Eample1 () Range ("A1: B5"). Pasirinkite End Sub
Šis kodas parinks VBA langelių diapazoną nuo A1 iki B5.
Jei noriu į šias langelius įterpti „labas“ vertę, kodą galiu parašyti taip.
Kodas:
Sub Selection_Eample1 () Range ("A1: B5"). Reikšmė = "labas" Pabaiga Sub
Panašiai, pasirinkus langelius, jis tampa „Pasirinkimas“.
Kodas:
Sub Selection_Example1 () Range ("A1: B5"). Pasirinkite Selection.Value = "Hello" End Sub
Pirmiausia, aukščiau, aš pasirinkau langelių diapazoną nuo A1 iki B5. Taigi, ši eilutė parinks langelius.
Pasirinkus šias langelius, galime nurodyti šias langelius naudodami „Excel VBA“ savybę „Selection“. Taigi naudodamiesi ypatybe Selection į šias langelius galime įterpti „Hello“ vertę.
Tai yra bendra VBA ypatybės „Pasirinkimas“ apžvalga.
2 pavyzdys
Dabar pamatysime VBA „Selection“ ypatybę su kintamaisiais. Apibrėžkite VBA kintamąjį kaip diapazoną.
Kodas:
Sub Selection_Example2 () Dim Rng As Range End Sub
Diapazonas yra objekto kintamasis, nes jis yra objekto kintamasis. Turime nustatyti langelių diapazoną naudodami raktinį žodį „Nustatyti“.
Aš nustatysiu diapazoną kaip „Diapazonas („ A1: A6 “).
Kodas:
Sub Selection_Eample2 () Dim Rng As Range Set Rng = Range ("A1: A6") End Sub
Dabar kintamasis „ Rng “ nurodo langelių diapazoną nuo A1 iki A6 .
Dabar parašysiu kodą, kad įterpčiau „ Hello “ vertę .
Kodas:
Sub Selection_Example2 () Dim Rng As Range Set Rng = Range ("A1: A6") Rng.Value = "Hello" End Sub
Tai įterps „Hello“ reikšmę į langelius A1 – A6.
Nesvarbu, kur vykdote kodą, aktyviame darbalapyje į langelį A1 – A6 bus įterpta reikšmė „Sveiki“.
Bet įsivaizduokite situaciją, kai jūs turite įterpti žodį „Labas“ visur, kur tik pasirenkate langelius, spustelėdami mygtuką.
Tam mes negalime nustatyti konkretaus langelių diapazono. Verčiau turime nustatyti diapazoną kaip „ Pasirinkimas “.
Kodas:
Sub Selection_Example2 () Dim Rng As Range Set Rng = Pasirinkimo pabaiga Sub
Dabar kintamasis „Rng“ reiškia aktyvią ląstelę arba bet kur, kur pasirenkame langelius. Dabar naudodami šią nuosavybę (pasirinkimą) „Excel VBA“, galime įterpti vertę „Sveiki“.
Kodas:
Sub Selection_Example2 () Dim Rng As Range Set Rng = Selection Selection.Value = "Hello" End Sub
Tai į mūsų pasirinktas langelius įterps žodį „Labas“. Dabar aš pasirinksiu langelius nuo B2 iki C6 ir paleisiu kodą; ji įterpia „Hello“ vertę.
3 pavyzdys
Dabar pamatysime, kaip galime pakeisti pasirinktų langelių vidinę spalvą. Dabar noriu pakeisti langelių, kuriuos pasirenku, interjero spalvą. Pirmiausia aš paskelbiau kintamąjį kaip diapazoną ir nustatiau diapazono nuorodą kaip „Pasirinkimas“.
Kodas:
Sub Selection_Example3 () Dim Rng As Range Set Rng = Pasirinkimo pabaiga Sub
Dabar naudojate „VBA Selection“ nuosavybės prieigą prie „Interjero“ nuosavybės.
Kodas:
Sub Selection_Pample3 () Dim Rng As Range Set Rng = Selection Selection. Vidinė galinė antrinė dalis
Pasirinkę nuosavybę „Interjeras“, turime nuspręsti, ką turime daryti su šia nuosavybe. Kadangi turime pakeisti pasirinktos langelio interjero spalvą, pasirinkite ypatybę „Spalva“.
Kodas:
Sub Selection_Pample3 () Dim Rng As Range Set Rng = Selection Selection.Interior.Color End Sub
Spalvą nustatykite kaip „ vbGreen “.
Kodas:
Sub Selection_Pample3 () Dim Rng As Range Set Rng = Selection Selection.Interior.Color = vbGreen End Sub
Taigi tai pakeis pasirinktų langelių vidinę spalvą į „vbGreen“.
Šitaip mes galime naudoti „Excel VBA“ savybę „Selection“ koduodami ir lengvai atlikti daug daugiau dalykų.
Pastaba: Viena didžiausių grėsmių, susijusių su ypatybe „Pasirinkimas“, yra tai, kad koduodami negauname „IntelliSense“ sąrašo prieigos. Kaip naujam besimokančiam, beveik neįmanoma prisiminti visų „Selection“ ypatybių ir metodų, todėl turite būti visiškai profesionalūs VBA, kad galėtumėte naudoti „Selection“ ypatybę.
