Ez az oktatóanyag megtanítja, hogyan kell interakcióba lépni a cellaértékekkel a VBA használatával.
Cellaérték beállítása
Cellaérték beállításához használja a Tartomány vagy Cella objektum Érték tulajdonságát.
Tartomány. Érték és cellák. Érték
Kétféle módon lehet hivatkozni a cellákra a VBA -ban:
- Tartomány objektum - Tartomány („A2”). Érték
- Cellaobjektum - Sejtek (2,1). Érték
A Range objektum lehetővé teszi cella hivatkozását a szabványos „A1” jelöléssel.
Ez beállítja az A2 tartomány értékét = 1:
1 | Tartomány ("A2"). Érték = 1 |
A Cells objektum segítségével hivatkozhat egy cellára a sorszáma és az oszlopszáma alapján.
Ez beállítja az A2 tartomány értékét = 1:
1 | Sejtek (2,1). Érték = 1 |
Figyelje meg, hogy először írja be a sorszámot:
1 | Sejtek (sorok, oszlopok) |
Állítson be egyszerre több cella értékét
Ahelyett, hogy egyetlen cellára hivatkozna, cellatartományra hivatkozhat, és egyszerre módosíthatja az összes cellaértéket:
1 | Tartomány ("A2: A5"). Érték = 1 |
Cellaérték beállítása - szöveg
A fenti példákban a cella értékét egy számmal (1) állítjuk be. Ehelyett beállíthatja a cella értékét egy szöveges karakterlánccal. A VBA -ban minden szöveget idézetekkel kell körülvenni:
1 | Tartomány ("A2"). Érték = "Szöveg" |
Ha nem idézi a szöveget, a VBA azt gondolja, hogy egy változóra hivatkozik …
Cellaérték beállítása - Változó
Beállíthat egy változónak megfelelő cellaértéket is
1234 | Dim strText karakterlánckéntstrText = "Szöveglánc"Tartomány ("A2"). Érték = strText |
Get Cell Value
A cellaértékeket ugyanazzal az Value tulajdonsággal szerezheti be, mint amit fentebb használtunk.
Szerezzen ActiveCell értéket
Az ActiveCell érték lekérése és megjelenítése egy üzenetmezőben:
1 | MsgBox ActiveCell.Value |
Cellaérték hozzárendelése a változóhoz
Cellaérték beszerzése és hozzárendelése egy változóhoz:
123 | Dim var mint Variantvar = Tartomány ("A1"). Érték |
Itt a Variant típusú változót használtuk. A változóváltozók bármilyen típusú értéket elfogadhatnak. Ehelyett használhat egy String változótípust:
123 | Halványítsa a karakterláncotvar = Tartomány ("A1"). Érték |
Egy karakterlánc -változó típus numerikus értékeket fogad el, de a számokat szövegként tárolja.
Ha tudja, hogy a cella értéke numerikus lesz, használhat kettős változótípust (a kettős változók tizedes értékeket tárolhatnak):
123 | Dim var mint Doublevar = Tartomány ("A1"). Érték |
Ha azonban szöveget tartalmazó cellaértéket kettős változóban próbál tárolni, akkor típushiba -hiba jelenik meg:
Más példák a cellaértékekre
Cellaérték másolása
Könnyű beállítani egy cellaértéket, amely megegyezik egy másik cellaértékkel (vagy „Másolja” a cella értékét):
1 | Tartomány ("A1"). Érték = Tartomány ("B1"). Érték |
Ezt akár cellatartományokkal is megteheti (a tartományoknak azonos méretűeknek kell lenniük):
1 | Tartomány ("A1: A5"). Érték = Tartomány ("B1: B5"). Érték |
Hasonlítsa össze a cellaértékeket
A cellaértékeket összehasonlíthatja a szabványos összehasonlító operátorokkal.
Ellenőrizze, hogy a cellaértékek egyenlők -e:
1 | MsgBox tartomány ("A1"). Érték = tartomány ("B1"). Érték |
IGAZ értéket ad vissza, ha a cellaértékek egyenlők. Ellenkező esetben HAMIS.
Létrehozhat If -utasítást is a cellaértékek összehasonlításához:
12345678910111213 | Ha tartomány ("A1"). Érték> Tartomány ("B1"). Érték akkorTartomány ("C1"). Érték = "Nagyobb, mint"Elseif tartomány ("A1"). Érték = tartomány ("B1"). Érték akkorTartomány ("C1"). Érték = "Egyenlő"MásTartomány ("C1"). Érték = "Kevesebb mint"Vége Ha |
Hasonlóképpen összehasonlíthatja a szöveget (Ne feledje, hogy a VBA kis- és nagybetűket érzékeny)