Excel VBA XLUP
Prilikom pisanja VBA koda morate imati na umu ono što radite s uobičajenim radnim listom, a istu stvar možete replicirati i u VBA. Jedna od takvih ključnih riječi u VBA kodiranju je "XLUP" u ovom članku. Pokazat ćemo vam što je ova ključna riječ u VBA kodiranju i kako je koristiti u kodiranju.
Kako koristiti VBA XLUP u kodiranju?
Slijede primjeri excela VBA XLUP.
Primjer # 1 - Premještanje ćelija u izbrisani položaj ćelija
Na primjer, pogledajte scenarij podataka u nastavku, gdje trebate izbrisati podatke o obojenim stanicama i više podataka iz redaka u nastavku do gornjih podataka.
Jedan od načina brisanja ovog na radnom listu je odabir onih ćelija u kojima možemo jednostavno izbrisati cijeli redak. Ali ovdje su situacije malo nezgodne jer u tablici 1 imam obojene stanice kad izbrišemo cijeli redak, čak se i retci tablice 2 također brišu, ali ne želimo da se to dogodi; umjesto toga, trebamo samo obrisati retke u boji, a stanice ispod bi se trebale pomaknuti prema položaju izbrisanih ćelija.
Prvo odaberite obojene stanice i pritisnite Ctrl + Simbol minus (-) da biste otvorili opciju "Delete".
Tipka prečaca za otvaranje opcije "Izbriši"
U prozoru opcija "brisanje" imamo četiri mogućnosti. Možemo odabrati akciju prema našem zahtjevu. Budući da moramo pomaknuti ćelije prema gore za položaj izbrisanih ćelija, odaberite "Pomakni ćeliju prema gore".
Imat ćemo nepromijenjene retke tablice 2.
Ova radnja u VBA zahtijeva upotrebu svojstva "XLUP" za izvođenje sličnog skupa radnji u VBA. Sada dođite do prozora VBA uređivača i pokrenite svoje ime makronaredbe.
Kodirati:
Sub XLUP_Example () Kraj Sub
Prvo dostavite ćeliju RANGE koja će biti uključena u ovu operaciju. U ovoj akciji prve stanice koje se brišu i pomiču prema gore su stanice „A5: B5“.
Kodirati:
Sub XLUP_Example () Raspon ("A5: B5") Kraj Sub
Za ovaj raspon ćelija odaberite metodu "Izbriši".
Kodirati:
Sub XLUP_Example () Raspon ("A5: B5"). Izbriši Kraj Sub
Kao što vidite za metodu "Delete", imamo jedan neobavezni argument kao (Shift). Za ovaj argument moramo unijeti argument kao "XLUP".
Kodirati:
Sub XLUP_Example () Raspon ("A5: B5"). Izbriši shift: = xlUp Kraj Sub
Sada možete pokrenuti ovaj kôd ručno ili pomoću prečaca excel tipke F5 da biste vidjeli rezultat.
Kao što možete vidjeti u tablici 1, imamo red broj 6 popela do 5 -og reda, te s druge strane stola, 2 red (u boji) je nepromijenjena, tako da pomoću „VBA XLUP” opciju, možemo izvesti ovaj postupak .
Primjer # 2 - Pronađite zadnji korišteni redak pomoću XLUP-a
Zamislite situaciju u kojoj ste u A20th ćeliji (pogledajte donju sliku), a vaša posljednja korištena ćelija je A14.
Ako želite odabrati posljednju korištenu ćeliju (A14), kako ćete to učiniti pomoću tipke prečaca ???
Koristili bismo tipku Ctrl + tipka sa strelicom za gore za pomicanje do posljednje korištene ćelije s trenutnog položaja.
Tipka prečaca za prelazak u posljednju korištenu ćeliju
Dakle, iz trenutne ćelije Ctrl + strelica prema gore odabrale su posljednju korištenu ćeliju. Slično tome, u VBA kodiranju koristimo END (XLUP) da bismo izveli isto.
Sada se vratite na prozor VBA kodiranja.
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.
Umjesto RANGE objekta, koristio sam svojstvo CELLS. Dopustite mi da vam ovo detaljno objasnim.
ROW.COUNT to će računati koliko redaka ima u stupcu 1. Što će to učiniti, uzet će u obzir posljednju ćeliju na radnom listu umjesto slučajne adrese ćelije. U gore navedenom slučaju koristili smo A14 kao slučajnu adresu ćelije.
Stvari koje treba zapamtiti o VBA XLUP
- XLUP je riječ koja se koristi u VBA kodu za ponavljanje radnje tipke "Strelica gore" u Excelu.
- VBA XLUP koristi se za prelazak iz aktivnih stanica u gornju ili posljednju korištenu ćeliju.
- XLUP se obično koristi zajedno sa svojstvom END u VBA.
