Note: The other languages of the website are Google-translated. Back to English

Hoe automatisch een lege nieuwe rij invoegen met de Command-knop in Excel?

In veel gevallen moet u mogelijk een lege nieuwe rij invoegen op een opgegeven positie in uw werkblad. In dit artikel laten we u zien hoe u automatisch een lege nieuwe rij invoegt door op een opdrachtknop in Excel te klikken.

Voeg automatisch een lege nieuwe rij in met de Command-knop


Voeg automatisch een lege nieuwe rij in met de Command-knop

U kunt de volgende VBA-code uitvoeren om een ​​lege nieuwe rij in te voegen door op een opdrachtknop te klikken. Ga als volgt te werk.

1. Ten eerste moet u een Command-knop invoegen. Klik alstublieft Ontwikkelaar > Invoegen > Commandoknop (ActiveX-besturingselement). Zie screenshot:

2. Teken vervolgens een Command-knop in het werkblad dat u nodig hebt om nieuwe rijen toe te voegen, klik met de rechtermuisknop op de Command-knop en klik Vastgoed vanuit het rechtsklikmenu.

3. In de Vastgoed dialoogvenster, voert u de weergegeven tekst van de Command-knop in het Onderschrift doos onder de Gecategoriseerd tabblad en sluit vervolgens het dialoogvenster.

U kunt zien dat de weergegeven tekst van de Command-knop is gewijzigd zoals onderstaand screenshot.

4. Klik nogmaals met de rechtermuisknop op de Command-knop en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

5. Vervolgens de Microsoft Visual Basic voor toepassingen -venster, vervangt u de originele code door de onderstaande VBA-code in het Code venster.

VBA-code: voeg automatisch een lege nieuwe rij in met de Command-knop

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

Opmerking:: In de code is CommanButton1 de naam van de Command-knop die u hebt gemaakt.

6. druk op anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster. En zet het Ontwerpmodus onder de Ontwikkelaar Tab.

7. Klik op de ingevoegde Command-knop en een Kutools for Excel dialoogvenster verschijnt. Voer een bepaald rijnummer in waar u een lege nieuwe rij wilt toevoegen en klik vervolgens op OK knop. Zie screenshot:

Vervolgens wordt de lege nieuwe rij ingevoegd op een opgegeven positie van uw werkblad, zoals onderstaand screenshot. En het behoudt de celopmaak van de bovenstaande cel.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (17)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Kan iemand adviseren hoe ik dit kan wijzigen om automatisch de nieuwe rij toe te voegen aan de onderkant van een Excel-tabel?
Lydia
Deze opmerking is gemaakt door de moderator op de site
heb je het antwoord gevonden?
Raviv
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik gebruik deze code, maar het haalt de formules uit de vorige rij niet naar beneden, kunt u alstublieft helpen.
Kim
Deze opmerking is gemaakt door de moderator op de site
Beste Kim,

Voeg een tabel in met het bereik waarin u lege rijen wilt invoegen. Daarna, bij het invoegen van een nieuwe rij, wordt de formule automatisch naar beneden gehaald.

Met vriendelijke groeten, Crystal
crystal
Deze opmerking is gemaakt door de moderator op de site
Kunt u een voorbeeld geven? Ik volg niet wat je hier zegt. Bedankt
Robert
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Converteer uw bereik naar een tabelbereik om de formule automatisch naar beneden te halen bij het invoegen van nieuwe rijen. Zie schermafdruk:
crystal
Deze opmerking is gemaakt door de moderator op de site
Ik heb hetzelfde probleem als Kim - Wanneer het blad onbeschermd is, wordt de rij toegevoegd met de juiste opmaak en correcte formules. Als het blad eenmaal is beveiligd, worden de formules niet gekopieerd. Nog ideeën?
Michelle S.
Deze opmerking is gemaakt door de moderator op de site
Beste Michelle,
Een beveiligd werkblad staat standaard geen lege rij toe.
Daarom kan de VBA-code in dat geval niet werken.
crystal
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om een ​​knop Rij invoegen toe te voegen en ervoor te zorgen dat de nieuwe rijen de cellen samengevoegd/opgemaakt houden zoals in de rest van een tabel?
Simon
Deze opmerking is gemaakt door de moderator op de site
Hallo Simon,
Sorry kan dit probleem nog helpen oplossen. Bedankt voor je reactie.
crystal
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om de nieuwe rij de opmaak van de onderstaande rij te laten behouden in plaats van de rij erboven?
Tarli
Deze opmerking is gemaakt door de moderator op de site
Hallo Tarl,
Sorry kan dit probleem nog helpen oplossen. Bedankt voor je reactie.
crystal
Deze opmerking is gemaakt door de moderator op de site
Ja, ik speelde met het script en het werkte voor mij. Je voegt gewoon het rijnummer toe dat je wilt (ik heb rij 6 gekozen), maar ik zal geschokt zijn als het mag worden gepubliceerd.

Private Sub CommandButton1_Click ()
Dim rijNum als geheel getal
On Error Resume Next
Rijen(rijNum & "6"). Shift invoegen:=xlOmlaag
End Sub
JW
Deze opmerking is gemaakt door de moderator op de site
kan mogelijk meerdere velrijen tegelijk invoegen, klik hierop.
Arif
Deze opmerking is gemaakt door de moderator op de site
Hoi,
De onderstaande code kan u helpen het probleem op te lossen. Probeer het alsjeblieft.

Private Sub CommandButton1_Click ()
Dim xIntRrow als geheel getal
Dim rijNum als geheel getal
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Voer het rijnummer in waar u een rij wilt toevoegen:", _
Titel:="Kutools voor Excel", Type:=1)
xIntRrow = Application.InputBox(Prompt:="Typ het aantal rijen in dat u wilt invoegen", _
Titel:="Kutools voor Excel", Type:=1)
Rijen(rowNum + 1 & ":" & rowNum + 1).EntireRow.Resize(xIntRrow).Insert Shift:=xlShiftDown

End Sub
crystal
Deze opmerking is gemaakt door de moderator op de site
is het mogelijk om in een ander blad te maken? dat heb ik echt nodig
Gonçalo Teixeira
Deze opmerking is gemaakt door de moderator op de site
Sub ToevoegenNieuweRij()



Private Sub CommandButton1_Click ()

ActiveSheet.Unprotect wachtwoord:="1234"



Dim mijn Spreadsheets

Dim ik zo lang



mySheets = Array ("Blad2")



Voor i = LBound(mySheets) Naar UBound(mySheets)

Met bladen(mySheets(i))

.Bereik ("B10"). Gehele rij. Shift invoegen: = xlOmlaag

.Bereik("B10:H10").Borders.Gewicht = xlThin

Eindigt met

Volgende i



ActiveSheet.Bescherm wachtwoord:="1234"



End Sub

Ik weet niet of dit voor jou gaat werken. Het werkte heel goed voor mij. Ik heb zelfs onbeschermde cellen achtergelaten waarin je gegevens kunt invoeren en de formules zijn nog steeds actief. Het kostte me een hele dag om het uit te zoeken. vervang "1234" door het wachtwoord dat u maar wilt, "Blad2" door het blad waarmee u werkt en voer het gewenste bereik in.
De code ontgrendelt eerst het werkblad, voegt rij toe en beschermt het werkblad.
kiongakamau@gmail.com
Kamau Kionga
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties