Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrace  \/ 
x

or

Jak vložit prázdný nový řádek automaticky pomocí příkazového tlačítka v aplikaci Excel?

V mnoha případech možná budete muset vložit prázdný nový řádek do určené polohy listu. V tomto článku vám ukážeme, jak automaticky vložit prázdný nový řádek kliknutím na příkazové tlačítko v aplikaci Excel.

Vložte prázdný nový řádek automaticky pomocí příkazového tlačítka


Vložte prázdný nový řádek automaticky pomocí příkazového tlačítka

Následující kód VBA můžete spustit a vložit prázdný nový řádek kliknutím na příkazové tlačítko. Postupujte prosím následovně.

1. Nejprve musíte vložit příkazové tlačítko. prosím klikněte Vývojka > Vložit > Příkazové tlačítko (ovládání ActiveX). Viz snímek obrazovky:

2. Potom nakreslete příkazové tlačítko do listu, do kterého potřebujete přidat nové řádky, klikněte pravým tlačítkem na příkazové tlačítko a klikněte na Nemovitosti z nabídky pravého tlačítka myši.

3. V Nemovitosti V dialogovém okně zadejte zobrazený text příkazového tlačítka do okna Titulek rámeček pod kategorizovány kartu a poté zavřete dialogové okno.

Můžete vidět, že zobrazený text příkazového tlačítka je změněn, jak je znázorněno níže.

4. Klikněte znovu pravým tlačítkem na příkazové tlačítko a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

5. Potom Microsoft Visual Basic pro aplikace v okně nahraďte původní kód následujícím kódem VBA do Kód okno.

Kód VBA: Automatické vložení prázdného nového řádku pomocí příkazového tlačítka

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

Poznámka: V kódu je CommanButton1 název příkazového tlačítka, které jste vytvořili.

6. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno. A vypněte Režim návrhu pod Vývojka Karta.

7. Klepněte na vložené příkazové tlačítko a a Kutools pro Excel objeví se dialogové okno. Zadejte prosím určité číslo řádku, kam chcete přidat nový prázdný řádek, a poté klikněte na OK knoflík. Viz screenshot:

Pak se nový prázdný řádek vloží na zadanou pozici vašeho listu, jak je ukázáno níže. A udržuje formátování buňky výše uvedené buňky.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kamau Kionga · 1 years ago
    Sub AddNewRow()

    Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect Password:="1234"

    Dim mySheets
    Dim i As Long

    mySheets = Array("Sheet2")

    For i = LBound(mySheets) To UBound(mySheets)
    With Sheets(mySheets(i))
    .Range("B10").EntireRow.Insert Shift:=xlDown
    .Range("B10:H10").Borders.Weight = xlThin
    End With
    Next i

    ActiveSheet.Protect Password:="1234"

    End Sub

    I don't know if this will work for you. It worked quite well for me. I even left unprotected cells that you can input data and the formulas are still active. Took me a whole day to figure it out. replace "1234" with whatever password you feel like, "Sheet2" with the Sheet you are working with and input the range you want.
    The code first unprotects the worksheet, adds row and protects the worksheet.
    kiongakamau@gmail.com
  • To post as a guest, your comment is unpublished.
    goncalo.teixeira992@gmail.com · 1 years ago
    is it possible to create in a different sheet? I really need that
  • To post as a guest, your comment is unpublished.
    arif · 2 years ago
    can possible insert multiple sheet row at one time click by this .
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      The below code can help you solve the problem. Please have a try.

      Private Sub CommandButton1_Click()
      Dim xIntRrow As Integer
      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)
      xIntRrow = Application.InputBox(Prompt:="Type in the number of rows you want to insert", _
      Title:="Kutools for excel", Type:=1)
      Rows(rowNum + 1 & ":" & rowNum + 1).EntireRow.Resize(xIntRrow).Insert Shift:=xlShiftDown

      End Sub
  • To post as a guest, your comment is unpublished.
    JW · 2 years ago
    Yes, I played with the script and it worked for me. You just add the row number you want (I chose row 6), but I'll be shocked if it's allowed to be published.

    Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    Rows(rowNum & "6").Insert Shift:=xlDown
    End Sub
  • To post as a guest, your comment is unpublished.
    Tarl · 2 years ago
    Is there a way to have the new row keep the formatting of the row below instead of the row above?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Tarl,
      Sorry can help solving this problem yet. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Simon · 3 years ago
    Is there a way to add an Insert Row button and have the new rows keep the cells merged/formatted as they are in the rest of a table?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Simon,
      Sorry can help solving this problem yet. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    stiles.michellel@gmail.com · 3 years ago
    I'm having the same issue as Kim - When the sheet is unprotected it adds the row with the correct formatting and correct formulas. Once the sheet is protected it doesn't copy down the formulas. Any thoughts?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear Michelle,
      By default, a protected worksheet does not allow to insert blank row.
      Therefore, the VBA code can't work in that case.
  • To post as a guest, your comment is unpublished.
    Kim · 4 years ago
    Hi

    I am using this code but it is not bringing down the formulas from the row before, can you help please.
    • To post as a guest, your comment is unpublished.
      crystal · 4 years ago
      Dear Kim,

      Please insert a Table with the range you will insert blank rows inside. After that, when inserting new row, the formula will bring down automatically.

      Best Regards, Crystal
      • To post as a guest, your comment is unpublished.
        Robert · 3 years ago
        Can you provide an example? Not following what you're say here. Thanks
        • To post as a guest, your comment is unpublished.
          crystal · 3 years ago
          Hi,
          Please convert your range to a table range in order to bring down the formula automatically when inserting new rows. See screenshot:
  • To post as a guest, your comment is unpublished.
    Lydia · 4 years ago
    Could anyone advise on how can I amend this to automatically add the new row to the bottom of an excel table?
    • To post as a guest, your comment is unpublished.
      Raviv · 4 years ago
      did you find the answer ?