Excel VBA Value tulajdonság
Az érték egy olyan tulajdonság a VBA-ban, amelyet többnyire a range módszerrel használnak egy adott tartomány értékének hozzárendeléséhez, ez például egy beépített kifejezés a VBA-ban, ha például tartományt ("B3") használunk. a B3 cella értéke 3, nem feltétlenül ezt az értéktulajdonságot kell csak a range módszerrel használni, más funkciókkal is használhatjuk.
A VBA-val való tanulásunk kezdetén annyira kíváncsiak vagyunk, hogy megtudjuk, hogyan tárolhatjuk az adatokat a cellákban. Ha kíváncsi vagy, akkor meg kell értened az „Érték” tulajdonságot. Ebben a cikkben elmagyarázzuk Önnek az „Érték” tulajdonságot, az értékek beszúrását vagy beállítását, az értékek megszerzését a cellából és még sok minden mást.
A korábbi cikkek egyikében megvitattuk a „VBA Range Cells” -et. A Range objektum segíthet abban, hogy egyetlen cellára, valamint több cellára hivatkozhassunk. A RANGE objektum első használatához el kell döntenünk, hogy melyik cellához kell beillesztenünk az értéket, és mi az az érték, amelyet be fogunk illeszteni.
Hogyan lehet az Value Property-t használni a VBA-ban?
1. példa - Objektumtartomány értékek hozzárendeléséhez a cellákhoz
- Például, ha értéket akar beilleszteni az A1 cellába, akkor az A1 cellát erre a tartományra kell utalnia („A1”)
Kód:
Alérték () Tartomány ("A1") Vége Al
- Miután a cellát a RANGE objektummal hivatkozta, tegyen egy pontot (.) Az objektumhoz társított összes tulajdonság és módszer IntelliSense listájának megtekintéséhez.
Kód:
Alérték () Tartomány ("A1"). End Sub
- Alakítsa ki ezt a sokféle lehetőséget, válassza ki a „VALUE” tulajdonságot.
Kód:
Alérték () Tartomány ("A1"). Érték Vége Al
- Miután kiválasztotta az „ÉRTÉK” tulajdonságot, be kell állítanunk az értéket az A1 cellába az egyenlőségjelbe helyezéssel.
Kód:
Alérték () Tartomány ("A1"). Érték = "Welcome to VBA" End Sub
- Ok, ez beilleszti az „Welcome to VBA” értéket az A1 cellába.
- Ha ugyanazt az értéket több cellába szeretné beilleszteni, akkor utalja a cellákat, mint az alábbi kód.
Kód:
Alérték () Tartomány ("A1: A5"). Érték = "Üdvözöljük a VBA-nál" End Sub
- Ez beilleszti az értéket az A1 és A5 cellába .
- Ha különböző cellákba szeretne beszúrni értékeket, de nem a cellasorozatokhoz, akkor a kódot és a cella címét külön argumentumokban kell használnunk, például az alábbiakhoz.
Kód:
Alérték () Tartomány ("A1, A5, B4, C2"). Érték = "Welcome to VBA" End Sub
- Ez beilleszti a „Welcome to VBA” szöveget az A1, A5, B4 és C2 cellákba.
2. példa - Érték beillesztése a CELLS tulajdonság segítségével
Nem a RANGE objektumon keresztül, hanem a VBA CELLS tulajdonság használatával is beszúrhatunk értékeket. De a CELLS objektum egyik problémája az, hogy nem jutunk hozzá az IntelliSense listához, mint a RANGE objektumhoz.
Itt meg kell említenünk azokat a sor- és oszlopszámokat, amelyekre szükségünk van az érték beillesztésére. Például, ha be akarja illeszteni az értéket az A1 cellába, akkor a kód CELLS (1,1). Ha be akarja illeszteni az értéket a B5 cellába, akkor a kód CELLS (5,2), azaz egyenlő a B5 cellával.
A CELLS tulajdonság használatával nem lehet több cellába beilleszteni az értékeket. Ez eltér a RANGE objektumtól.
3. példa - Cellaérték lekérése
Láttuk, hogyan lehet értékeket beilleszteni a cellákba, most meglátjuk, hogyan lehet értékeket kapni a cellákból.
1. lépés: Adjon meg egy változót karakterláncként.
Kód:
Alérték () Dim K As String End Sub
2. lépés: Ehhez a „k” változóhoz hozzárendeljük az A1 cella értékét. Az A1 cellába beírtam az „Welcome to VBA” értéket.
Tehát a kód k = tartomány („A1”) lesz
Kód:
Alérték () Dim K As karakterlánc K = Tartomány ("A1"). Érték Vége Sub
3. lépés: Mutassa meg a „k” változó eredményét a VBA üzenetmezőben.
Kód:
Alérték () Dim K As String K = Tartomány ("A1"). Érték MsgBox K End Sub
A kód futtatásával meg kell adnunk az A1 cella értékének eredményét az üzenetmezőben.
Használhatjuk a RANGE objektumot az A1 cella adatainak megszerzésére is. Az alábbi kód ugyanezt fogja megmutatni.
Kód:
Alérték () Dim K As String Set CellValue = Range ("A1") MsgBox CellValue End Sub
Ezzel meg kell kapnia az A1 cella értékét is az üzenetmezőben.
4. példa - Hibaérték, ha egynél több cellaérték szükséges
Nézze meg például az alábbi kódot.
Kód:
Alérték () Dim K As Range Set CellValue = Tartomány ("A1: A5") MsgBox CellValue End Sub
Ha futtatja a fenti kódot, akkor a „Type Mismatch” hibát kapjuk.
Azért kapjuk ezt a hibát, mert ha az objektumváltozót egynél több cella „értékre” állítjuk, akkor a tulajdonság nem igazán érti, hogy melyik cellaértéket adja meg, így egyszerre egyetlen cellaértéket kaphat.
