Brisanje VBA retka standardni je i često korišteni postupak programera. Međutim, za manje iskusne korisnike ovaj postupak može uzrokovati neke poteškoće.
Upute
Korak 1
Provjerite razumijete li sintaksu naredbe za brisanje retka pomoću naredbe Delete. Dakle, za redak koji sadrži aktivnu ćeliju naredba će izgledati kao ActiveCell. EntireRow. Delete, a potreba za brisanjem određenog broja redaka promijenit će je u Rows ("first_line_number: last_line_number"). Delete (za Excel).
Korak 2
Upotrijebite sličnu sintaksu za naredbu brisanje odabranog retka u VBA-u, ali s naprednim opcijama. Da biste to učinili, prije svega definirajte potrebnu radnju: Private Sub Delete line_Click (). Navedite potrebnu aplikaciju Dim ea As Excel. Application i odaberite potrebnu radnu knjigu Dim ewb As Excel. Workbook. Zatim navedite stranicu dokumenta Dim Dimes As Excel. Worksheet koji želite urediti.
3. korak
Preskočite jedan redak i unesite Set XLAp = CreateObject (Class: = "Excel. Application"). Postavite točan položaj na sljedeći redak: Set XLWb = XLAp. Workbooks. Otvori ("ime_pogona: 1.xls") Upotrijebi sljedeću vrijednost: Postavi XLWs = XLWb. ActiveSheet.
4. korak
Preskočite drugi redak i unesite vrijednost odabranog posla: XLWs. Rows (1). Izbriši. Spremite uređeni dokument: XLWb. Save. Zatvorite aplikaciju otvorenog koda: XLAp. Quit.
Korak 5
Preskočite sljedeći redak i zamijenite varijable memorijskim objektima: Postavi XLWs = Ništa. Ponovite istu naredbu za svaku otvorenu varijablu: Postavi XLWb = Ništa i na kraju zadnju: Postavi XLAp = Ništa. Završite naredbu sa standardnim End Sub.
Korak 6
Koristite makronaredbe za izvođenje složenijih operacija za brisanje nepotrebnih redaka u dokumentu. Da biste to učinili, stvorite novu Excel knjigu i unesite potrebne vrijednosti. Otvorite izbornik "Usluga" na gornjoj alatnoj traci programskog prozora i odaberite stavku "Makronaredba". Odaberite podstavku "Visual Basic Editor" i proširite izbornik "Umetanje". Odaberite stavku "Modul" i umetnite stvoreni dokument. Vratite se na izbornik "Alati" i ponovno idite na stavku "Makronaredba". Upotrijebite podtačku "Makronaredbe" i navedite novostvorenu. Pokrenite makronaredbu klikom na gumb Pokreni.
