Excel VBA XLUP
A VBA-kód írása során egy dolgot szem előtt kell tartania, amit a szokásos munkalap segítségével tesz, és ugyanezt megismételheti a VBA-ban is. A VBA kódolás egyik ilyen kulcsszava ebben a cikkben az „XLUP”. Megmutatjuk, mi ez a kulcsszó a VBA kódolásban, és hogyan kell használni a kódolásban.
Hogyan kell használni a VBA XLUP-ot a kódolásban?
Az alábbiakban bemutatjuk az Excel VBA XLUP példáit.
1. példa - Mozgassa a cellákat a cellák törölt helyzetébe
Nézze meg például az alábbi adatok forgatókönyvét, ahol törölnie kell ezeket a színes cellák adatait, és még többet feljebb az alábbi sorok adatainál a fenti adatokig.
Ennek a munkalapon történő törlésének egyik módja azoknak a celláknak a kiválasztása, amelyekből egyszerűen törölhetjük magát a teljes sort. De itt a helyzetek kissé bonyolultak, mert az 1. táblázatban színes cellák vannak, amikor a teljes sort töröljük, még a 2. táblázat sorai is törlődnek, de nem akarjuk, hogy ez megtörténjen; ehelyett csak színes sorokat kell törölnünk, és a cellák alatt felfelé kell lépniük a törölt cellák helyzetében.
Először válassza ki a színes cellákat, és nyomja meg a Ctrl + Mínusz szimbólum (-) gombot a „Törlés” opció megnyitásához.
Parancsikon a „Törlés” opció megnyitásához
A „törlés” opciók ablakban négy lehetőségünk van. Választhatjuk a műveletet a követelményeinknek megfelelően. Mivel fel kell mozgatnunk a sejtjeinket a törölt sejtek számára, válassza a „Shift Cell Up” lehetőséget.
A 2. táblázat sorai változatlanok lesznek.
A VBA ezen műveletéhez az „XLUP” tulajdonság használatára van szükség a VBA hasonló műveletsorozatának végrehajtásához. Most jöjjön a VBA szerkesztő ablakához, és indítsa el a makró nevét.
Kód:
XLUP_Példa () Vége Sub
Először adja meg a RANGE cellát, amelyet bele kell foglalni a műveletbe. Ebben a műveletben az első törlendő és felfelé haladó cellák az „A5: B5” cellák.
Kód:
XLUP_Example () Tartomány ("A5: B5") alvége Sub
Ehhez a cellatartományhoz válassza a „Törlés” módszert.
Kód:
XLUP_Example () tartomány () tartomány ("A5: B5"). Törölje a Sub Sub végét
Amint láthatja a „Törlés” metódust, egy opcionális argumentumunk van (Shift). Ehhez az érveléshez az argumentumot „XLUP” néven kell megadnunk.
Kód:
XLUP_Example () tartomány () tartomány ("A5: B5"). Törlés shift: = xlUp End Sub
Most futtathatja ezt a kódot manuálisan vagy az F5 gyorsbillentyűvel az eredmény megtekintéséhez.
Mint látható az 1. táblázatban, már sor száma 6 költözött akár 5 -én sor, és másrészt táblázat, 2. sor (színes) változatlan, így segítségével a „VBA XLUP” opciót, akkor ezt a műveletet .
2. példa - Keresse meg az utoljára használt sort az XLUP használatával
Képzeljen el egy olyan helyzetet, amikor az A20-as cellában tartózkodik (nézze meg az alábbi képet), és utoljára használt cellája A14.
Most, ha az utoljára használt cellát akarja kiválasztani (A14), hogyan fog csinálni egy gyorsbillentyű használatával ???
A Ctrl + Fel nyíl billentyűkkel lépnénk az utoljára használt cellára az aktuális pozícióból.
Gyorsbillentyű az utoljára használt cellához lépéshez
Tehát az aktuális cellából a Ctrl + Fel nyíl választotta ki az utoljára használt cellát. Hasonlóképpen, a VBA kódolásnál az END-t (XLUP) is használjuk ugyanezek végrehajtására.
Most térjen vissza a VBA kódolási ablakhoz.
In this window, we will perform the task of finding the last used row in the worksheet. Create a new subprocedure in the VBA window.
Code:
Sub XLUP_Example1() End Sub
To store the last used row number. define the variable as the VBA LONG data type.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long End Sub
Now for this variable, we will assign the last used row number.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = End Sub
Now use the RANGE object and open this object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = Range( End Sub
Now mention the active cell (A20) for RANGE object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20") End Sub
Now open END property for supplied range cell.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End( End Sub
As you can see above, we have to arrow key options like “xlDown,” “xlToLeft,” “xlToRight,” “xlUp.” Since we are moving up from the A14 cell, choose the “VBA XLUP” option.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp) End Sub
After moving up from A14 cell, we need to mention what we need to do since we need the last used row number, I will use ROW property.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row End Sub
Now for the message box, assign the value of variable “Last_Row_Number.”
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row MsgBox Last_Row_Number End Sub
Now you can run this code manually or through shortcut key F5 to see the result.
So message box showing the last used row number as 14, so our last data used row number is A14 cell.
In this case, since the data is very small, we started the room cell, but when the data is large, we cannot say which cell to take into consideration first. In such cases, we need to employ a different technique.
We need to use CELLS property. Below is an example of the same.
Code:
Sub XLUP_Example2() Dim Last_Row_Number As Long Last_Row_Number = Cells(Rows.Count, 1).End(xlUp).Row MsgBox Last_Row_Number End Sub
Now you can run this code manually or through shortcut key F5 to see the result.
RANGE objektum helyett CELLS tulajdonságot használtam. Hadd magyarázzam el ezt részletesen Önnek.
ROW.COUNT ez megszámolja, hogy hány sor van az 1. oszlopban . Ez azt fogja tenni, hogy a véletlen cellacím helyett a munkalap utolsó celláját veszi figyelembe. A fenti esetben az A14-et használtuk véletlenszerű cellacímként.
Emlékezetes dolgok a VBA XLUP-ról
- Az XLUP az a szó, amelyet a VBA kódban használnak az „Up Arrow” kulcs műveletének replikálásához az excelben.
- A VBA XLUP segítségével az aktív cellákról a fenti cellára vagy az utoljára használt cellára lehet lépni.
- Az XLUP-ot általában az END tulajdonsággal együtt használják a VBA-ban.
