Как с помощью кнопки управления автоматически вставить новую пустую строку в Excel?
Во многих случаях может потребоваться вставить новую пустую строку в определённое место на листе. В этой статье мы покажем, как автоматически вставлять новую пустую строку, нажав кнопку управления в Excel.
Автоматическая вставка новой пустой строки с помощью кнопки управления
Автоматическая вставка новой пустой строки с помощью кнопки управления
Вы можете использовать приведённый ниже код VBA, чтобы вставить новую пустую строку при нажатии кнопки управления. Следуйте инструкциям ниже.
1. Сначала вставьте кнопку управления. Для этого перейдите на вкладку Разработчик → Вставить → Кнопка управления (элемент управления 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. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений. Затем отключите режим Конструктор на вкладке Разработчик.
7. Щелкните вставленную кнопку управления — откроется диалоговое окно Kutools для Excel. Введите номер строки, в которую нужно добавить новую пустую строку, и нажмите кнопку ОК. См. снимок экрана:
Затем в указанное место на листе будет вставлена новая пустая строка, как показано на снимке экрана ниже, с сохранением форматирования ячеек из строки выше.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи:
- Как использовать кнопку управления для сохранения активного листа в формате PDF в Excel?
- Как отформатировать ячейку в Excel, чтобы она выглядела как объемная кнопка?
- Как скрыть или отобразить кнопку управления в зависимости от значения заданной ячейки в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек