De MS Office-apps zijn erg ontworpenintelligent en ik zeg dit niet alleen omdat ze mijn werk oneindig veel gemakkelijker maken. Ik zeg het omdat het waar is. Een paar dagen geleden deden we een bericht over het invoegen van YouTube-video's in Office 2013 en merkten op dat de optie afwezig was in MS Excel, simpelweg omdat het daar niet nodig was. Dit is het type intelligentie waar ik het over heb; wetende welke functies nodig zijn in een specifiek type app. Het zorgt ervoor dat niets irrelevants in het uiteindelijke aanbod komt. Dat gezegd hebbende, was ik verrast om te ontdekken dat waar je met Excel meer rijen in een werkblad kunt invoegen, je niet het aantal rijen kunt selecteren dat je wilt toevoegen. Je hebt andere oplossingen om dit te bereiken, zoals het selecteren van het aantal rijen dat je wilt toevoegen uit de bestaande rijen en dan de invoegfunctie gebruiken. Of u kunt de stap voor het invoegen van rijen zo vaak herhalen als u wilt. Het is repetitief, maar als je bereid bent vijf minuten te sparen, kan deze kleine Macro het werk voor je doen.
Aangezien dit een Macro vereist, moet u dat doensla uw bestand op als een Excel-bestand met macro's. Klik hiervoor op de vervolgkeuzelijst ‘Opslaan als type’ in het venster Opslaan als en selecteer ‘Excel Marco Enabled Workbook (* xlsm).
Vervolgens is het tijd om de Macro te schrijven. Ga naar het tabblad Weergave en klik op Macro's om een nieuwe te maken. Geef de naam een naam en klik op ‘Maken’. Het volgende venster wordt automatisch geopend.
Wat hier relevant is, zijn de ‘Sub’ en ‘End Sub’lijnen. De Sub-regel zal de naam van je macro bevatten, terwijl de End-Sub het einde van commnads in die Macro aangeeft. Omdat je het net hebt gemaakt, mag er niets tussen die regels staan, zoals in de bovenstaande schermafbeelding. Plak het volgende tussen deze twee regels.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Met deze code worden vanaf de bovenkant vijf rijen ingevoegd. Er wordt in de code naar verwezen als A1: A5. Om het aan uw behoeften aan te passen, moet u dit bereik bewerken. De eerste waarde dient als verwijzing naar waar de rijen worden ingevoegd. Als u dit wijzigt in A100, worden de rijen ingevoegd na de eerste negenennegentig rijen. Nadat u het referentiepunt hebt ingesteld, moet u het aantal rijen invoeren.
Rijnummers worden gedefinieerd door het celbereik A1: A5. Dit bereik voegt 5 rijen in. Om het juiste bereik voor uw aantal rijen te vinden, bijvoorbeeld als u 25 rijen uit A99 wilt invoegen, voegt u 25 toe aan het referentiepunt zodat het A99 is en één cel er minder vanaf. D.w.z. A100 + 99 - 1 = A198. U voegt rijen toe en geen kolommen, dus alleen het nummer verandert en niet de kolomletter. De macro moet worden bijgewerkt elke keer dat u rijen enmass moet invoegen, maar het is slechts een kleine bewerking en het werkt echt goed, dus het is de moeite waard om te besteden.
Macro via Microsoft-ondersteuning
Comments