VBA-érték | Hogyan használható az Excel VBA Value Property? (Példák)

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. Value = 3 ez hozzárendeli 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 beilleszté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” elemeket. A Range objektum segíthet abban, hogy egyetlen cellára, valamint több cellára hivatkozhassunk. A RANGE objektum használatához először el kell döntenünk, hogy melyik cellához kell beszúrnunk az értéket, és mi az az érték, amelyet be fogunk illeszteni.

Hogyan lehet az Value Property-t használni a VBA-ban?

Ezt a VBA Value Function Excel sablont innen töltheti le - VBA Value Function Excel sablont

1. példa - Objektumtartomány értékek hozzárendeléséhez a cellákhoz

  • Például, ha be akar szúrni egy értéket 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

  • A lehetőségek ebből a változatából 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 akarja beilleszteni több cellába, 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 beilleszteni é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ábbiakban.

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 sorok és oszlopok számát, 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ő B5 sejt.

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 mint 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 eredményét az üzenetmezőben.

Használhatjuk a RANGE objektumot az A1 cella adatainak megszerzéséhez 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

Például nézze meg 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 amikor az objektumváltozó egynél több cella „érték” tulajdonságra van állítva, nem igazán érti, hogy melyik cellaértéket kell megadni, így egyszerre egyetlen cellaértéket kaphat.