Loncat ke daftar isi utama

Bagaimana cara memasukkan baris baru kosong secara otomatis dengan Tombol Perintah di Excel?

Dalam banyak kasus, Anda mungkin perlu memasukkan baris baru yang kosong ke posisi tertentu pada lembar kerja Anda. Pada artikel ini, kami akan menunjukkan kepada Anda cara menyisipkan baris baru kosong secara otomatis dengan mengklik Tombol Perintah di Excel.

Sisipkan baris baru yang kosong secara otomatis dengan Tombol Perintah

Sisipkan baris baru yang kosong secara otomatis dengan Tombol Perintah

Anda dapat menjalankan kode VBA berikut untuk memasukkan baris baru yang kosong dengan mengklik Tombol Perintah. Silakan lakukan sebagai berikut.

1. Pertama, Anda perlu memasukkan Tombol Perintah. Silahkan klik Pengembang > Menyisipkan > Tombol Perintah (Kontrol ActiveX). Lihat tangkapan layar:

2. Kemudian gambar Tombol Perintah ke lembar kerja yang Anda butuhkan untuk menambahkan baris baru, klik kanan Tombol Perintah dan klik Properties dari menu klik kanan.

3. Dalam Properties kotak dialog, masukkan teks yang ditampilkan dari Tombol Perintah ke dalam Keterangan kotak di bawah Dikategorikan tab, lalu tutup kotak dialog.

Anda dapat melihat teks yang ditampilkan dari Tombol Perintah berubah seperti gambar di bawah ini.

4. Klik kanan kembali Tombol Perintah, lalu klik Lihat kode dari menu klik kanan.

5. Kemudian Microsoft Visual Basic untuk Aplikasi jendela, silakan ganti kode asli dengan kode VBA di bawah ini ke Kode jendela.

Kode VBA: Secara otomatis memasukkan baris baru yang kosong dengan Tombol Perintah

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

Note: Dalam kode, CommanButton1 adalah nama Tombol Perintah yang telah Anda buat.

6. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela. Dan matikan Mode Desain bawah Pengembang Tab.

7. Klik Tombol Perintah yang telah dimasukkan, dan a Kutools untuk Excel kotak dialog muncul. Harap masukkan nomor baris tertentu di mana Anda ingin menambahkan baris baru yang kosong, lalu klik OK tombol. Lihat tangkapan layar:

Kemudian baris baru yang kosong dimasukkan ke posisi tertentu dari lembar kerja Anda seperti gambar di bawah ini. Dan itu menjaga format sel dari sel di atas.

Terkait artikel:

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (26)
No ratings yet. Be the first to rate!
LC
LC
This comment was minimized by the moderator on the site
Bedankt voor je uitleg. Ik heb de formule toegepast maar bekom dat ik maar 1 lijn kan toevoegen. Daarna laat de knop het niet meer toe en moet ik eerst mijn toegevoegde rij verwijderen. Is er een manier om dit aan te passen?
Reply
0
0
Zahli
Zahli
This comment was minimized by the moderator on the site
Is there a way to make to row inset always below the last entry?
Reply
0
0
Big Ant
Big Ant
This comment was minimized by the moderator on the site
How do I do the opposite of this and create a button that will delete a row?
Reply
0
0
crystal
crystal     Big Ant
This comment was minimized by the moderator on the site
Hi Big Ant,

Here's the modified code to delete a specified row when the Command Button is clicked:


Private Sub CommandButton1_Click()
'Updated by Extendoffice 20230817
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number which you want to delete:", _
                                    Title:="Kutools for excel", Type:=1)
    If rowNum <> 0 Then
        Rows(rowNum).Delete Shift:=xlUp
    End If
End Sub
Reply
Report
0
0
Diogenes Varela
Diogenes Varela
This comment was minimized by the moderator on the site
Criei uma linha e nomeei como spotB,
Mudei a altura da linha para 0,01 para ocult谩-la (apenas por est茅tica).
Criei um bot茫o:
Application.Goto Reference:="spotB"
Selection.EntireRow.Insert

Problema resolvido.

Obrigado pelos c贸digos a Mah e crystal, mas eu tinha 8 t铆tulos para separar, cada um inserindo linhas quando necess谩rio ao usu谩rio, e n茫o queria nenhuma pergunta sobre quantidade de linhas, os usu谩rios n茫o leem perguntas e clicam logo em OK, depois reclamam...
Reply
0
0
Diogenes Varela
Diogenes Varela
This comment was minimized by the moderator on the site
... Testei os c贸digos acima, mas, como se trata de pessoas que v茫o usar, n茫o 茅 vi谩vel os box que pedem a linha e a quantidade, n茫o d谩...
Reply
0
0
Diogenes Varela
Diogenes Varela
This comment was minimized by the moderator on the site
Caros colegas, ap贸s pesquisar (bastante) na net n茫o consegui encontrar um atalho, comando, c贸digo, nada, nada, que eu possa usar para inserir em uma macro APENAS uma forma de inserir uma linha ABAIXO da c茅lula ativa. Isto porqu锚 se eu gravar o endere莽o da c茅lula, ele n茫o muda, fica sempre na mesma c茅lula e as seguintes n茫o v茫o ficar corretamente abaixo, e se eu usar um endere莽o de c茅lula fixo, a linha tem que ser inserida acima, mas n茫o formata da forma desejada, que seria o formato das linhas de cima.

Acho que o c贸digo existe, s贸 n茫o encontro, j谩 tentei v谩rias formas, selecionando um fixo, subindo uma linha e pedindo para inserir ap贸s, mas as seguintes n茫o funcionam de acordo.

Algu茅m poderia me ajudar?
Reply
0
0
MahEt
MahEt
This comment was minimized by the moderator on the site
Hi

I used the code but wanted to add rows with formulas, therefore I added the last line to be able to add the rows with formulas.
However, in my excel file and in column "F" I have a text which can be entered manually and would be different in different cases. Therefore, I would like to add rows below the reference row with keeping the formulas and values in all cells except the cell from column "F" which I would like to be copied as blank!
Could you please help me with what should I add to the underneath code to be able to have the cells of column "F" blank whenever I add a row with this code?
thanks in advance!

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
Rows(rowNum).Resize(xIntRrow + 1).FillDown

End Sub
Reply
Report
0
0
crystal
crystal     MahEt
This comment was minimized by the moderator on the site
Hi Mah,
The following VBA code may do you a favor. Please give it a try. Thank you.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220707
    Dim rowNum As Integer
    Dim xRg1, xRg2 As Range
    
    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
    Rows((rowNum - 1) & ":" & (rowNum - 1)).Copy
    Rows(rowNum & ":" & rowNum).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("F" & rowNum).Value = ""
End Sub
Reply
Report
0
0
Kamau Kionga
Kamau Kionga
This comment was minimized by the moderator on the site
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.
Reply
0
0
goncalo.teixeira992@gmail.com
This comment was minimized by the moderator on the site
is it possible to create in a different sheet? I really need that
Reply
Report
0
0
arif
arif
This comment was minimized by the moderator on the site
can possible insert multiple sheet row at one time click by this .
Reply
0
0
crystal
crystal     arif
This comment was minimized by the moderator on the site
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
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
脳
Rate this post:
Reset
0   Characters
Suggested Locations