Как да вмъкна празен нов ред автоматично чрез команден бутон в Excel?
В много случаи може да се наложи да вмъкнете празен нов ред в определена позиция на вашия работен лист. В тази статия ще ви покажем как автоматично да вмъкнете празен нов ред, като щракнете върху команден бутон в Excel.
Вмъкнете празен нов ред автоматично чрез командния бутон
Вмъкнете празен нов ред автоматично чрез командния бутон
Можете да изпълните следния VBA код, за да вмъкнете празен нов ред, като щракнете върху команден бутон. Моля, направете следното.
1. Първо, трябва да вмъкнете команден бутон. Моля щракнете Софтуерен Инженер > Поставете > Команден бутон (ActiveX Control). Вижте екранна снимка:
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 бутон. Вижте екранна снимка:
След това празният нов ред се вмъква в определена позиция на вашия работен лист, както е показано на екранната снимка по-долу. И запазва форматирането на клетката на горната клетка.
Свързани статии:
- Как да използвате командния бутон за запазване на активен работен лист като PDF файл в Excel?
- Как да форматирам клетка, за да изглежда като 3D бутон в Excel?
- Как да скриете или покажете команден бутон въз основа на определена стойност на клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!