Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як автоматично вставити порожній новий рядок кнопкою команди в Excel?

У багатьох випадках вам може знадобитися вставити порожній новий рядок у вказане місце вашого робочого аркуша. У цій статті ми покажемо, як автоматично вставити порожній новий рядок, натиснувши кнопку команди в Excel.

Вставте порожній новий рядок автоматично за допомогою командної кнопки


Вставте порожній новий рядок автоматично за допомогою командної кнопки

Ви можете запустити наступний код VBA, щоб вставити порожній новий рядок, натиснувши кнопку команди. Будь ласка, виконайте наступне.

1. По-перше, вам потрібно вставити командну кнопку. Клацніть Розробник > Insert > Кнопка керування (керування ActiveX). Дивіться знімок екрана:

2. Потім намалюйте командну кнопку на робочому аркуші, до якого потрібно додати нові рядки, клацніть правою кнопкою миші командну кнопку та натисніть властивості з меню, що клацне правою кнопкою миші.

3 В властивості діалогове вікно, введіть відображений текст кнопки команд у Підпис коробка під Категорії , а потім закрийте діалогове вікно.

Ви можете побачити, що відображений текст командної кнопки змінено, як показано нижче.

4. Ще раз клацніть правою кнопкою миші командну кнопку, а потім клацніть Переглянути код з меню, що клацне правою кнопкою миші.

5. Тоді Microsoft Visual Basic для додатків вікно, будь ласка, замініть оригінальний код на наведений нижче код VBA в код вікна.

Код VBA: Автоматично вставляти порожній новий рядок за допомогою командної кнопки

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

примітки: У коді CommanButton1 - це назва командної кнопки, яку ви створили.

6. прес інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікно. І вимкніть Режим дизайну під Розробник Вкладка.

7. Клацніть на вставлену командну кнопку та a Kutools для Excel спливає діалогове вікно. Введіть певний номер рядка, куди потрібно додати порожній новий рядок, а потім клацніть на OK кнопку. Дивіться знімок екрана:

Потім порожній новий рядок вставляється у вказане положення робочого аркуша, як показано на знімку екрана нижче. І він зберігає форматування комірки вищевказаної комірки.


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
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 · 1 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 · 3 years ago
      did you find the answer ?