Microsoft Excel is een spreadsheetprogramma met geavanceerde functies voor het manipuleren, sorteren en grafieken van numerieke gegevens. Excel heeft vele functies en functies beschikbaar waarmee diverse beheertaken, die de gebruiker kan vereisen. Indien de ingebouwde functionaliteit niet voldoet aan de behoeften van de gebruiker, kan de opgenomen programmeertaal, Visual Basic for Applications (VBA), in plaats daarvan worden gebruikt. VBA is een krachtige programmeertaal die beschikbaar is voor operaties die worden uitgevoerd van binnen het werkblad. Een bewerking, zoals het verwijderen van rijen op basis van aangepaste vereisten is een perfecte pasvorm voor VBA.
Wat die u nodig hebt
- Microsoft Excel
Open het Microsoft Excel-werkblad waaruit u wilt elke derde rij verwijderen.
Gegevens toevoegen aan de eerste twaalf rijen van het werkblad in de kolom "A."
Het menu voor macro's openen door op de "Alt" en "F8" te drukken.
Voer "Deletethree" in het vak Macronaam en klik op de knop "Create".
Plak de volgende code onder de tekst "Sub Deletethree":
' Dim variabelen.
Y = 1I = 1
Set xRng = selectie
' Lus voor elke rij in de selectie
For xCounter = 1 To xRng.Rows.Count If Y = 3 Then ' ...delete an entire row of cells.xRng.Cells(I).EntireRow.DeleteY = 1' Otherwise...Else' ...increment I by one to cycle through range.I = I + 1Y = Y + 1End If
Volgende xCounter
Sla de macro "Deletethree" door te drukken op de toetsen "Ctrl" en "S". Sluit het venster ' Microsoft Visual Basic ' om terug te keren naar het Excel-toepassing.
Markeer cellen A1 tot en met A12 in het werkblad.
Druk op de "Alt" en "F8" toetsen om het macro-menu te openen. Selecteer de macro "Deletethree" en links-klik op de knop "Run". Na voltooiing van de macro, wordt elke derde rij verwijderd.
- Het nummer in de regel code wijzigen "als Y = 3 Then" om rijen te verwijderen met een ander interval.
- Doen de hele kolom--niet benadrukken dit zal leiden tot de macro uit te voeren voor onbepaalde tijd.