Note: The other languages of the website are Google-translated. Back to English

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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (22)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Adakah yang bisa memberi saran tentang bagaimana saya bisa mengubah ini untuk secara otomatis menambahkan baris baru ke bagian bawah tabel excel?
Komentar ini diminimalkan oleh moderator di situs
apakah kamu menemukan jawabannya?
Komentar ini diminimalkan oleh moderator di situs
Hai, saya menggunakan kode ini tetapi tidak menurunkan rumus dari baris sebelumnya, dapatkah Anda membantu.
Komentar ini diminimalkan oleh moderator di situs
Kim yang terhormat,

Harap masukkan Tabel dengan rentang yang akan Anda sisipkan baris kosong di dalamnya. Setelah itu, saat memasukkan baris baru, rumus akan turun secara otomatis.

Salam Hormat, Kristal
Komentar ini diminimalkan oleh moderator di situs
Bisakah Anda memberikan contoh? Tidak mengikuti apa yang Anda katakan di sini. terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai,
Harap ubah rentang Anda menjadi rentang tabel untuk menurunkan rumus secara otomatis saat memasukkan baris baru. Lihat tangkapan layar:
Komentar ini diminimalkan oleh moderator di situs
Saya mengalami masalah yang sama dengan Kim - Saat lembar tidak terlindungi, ia menambahkan baris dengan format yang benar dan formula yang benar. Setelah lembar dilindungi itu tidak menyalin formula. Ada pikiran?
Komentar ini diminimalkan oleh moderator di situs
Michelle yang terhormat,
Secara default, lembar kerja yang diproteksi tidak mengizinkan penyisipan baris kosong.
Oleh karena itu, kode VBA tidak dapat berfungsi dalam kasus itu.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk menambahkan tombol Sisipkan Baris dan membuat baris baru membuat sel tetap digabung/diformat seperti di tabel lainnya?
Komentar ini diminimalkan oleh moderator di situs
Hai Simon,
Maaf belum bisa membantu menyelesaikan masalah ini. Terima kasih atas komentar Anda.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara agar baris baru mempertahankan pemformatan baris di bawah alih-alih baris di atas?
Komentar ini diminimalkan oleh moderator di situs
Hai Tar,
Maaf belum bisa membantu menyelesaikan masalah ini. Terima kasih atas komentar Anda.
Komentar ini diminimalkan oleh moderator di situs
Ya, saya bermain dengan skrip dan itu berhasil untuk saya. Anda tinggal menambahkan nomor baris yang Anda inginkan (saya memilih baris 6), tetapi saya akan terkejut jika diizinkan untuk dipublikasikan.

Sub CommandButton1_Click Pribadi ()
Redupkan barisNum Sebagai Integer
On Error Resume Next
Baris(barisNum & "6"). Sisipkan Shift:=xlDown
End Sub
Komentar ini diminimalkan oleh moderator di situs
mungkin dapat menyisipkan beberapa baris lembar sekaligus klik dengan ini.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode di bawah ini dapat membantu Anda memecahkan masalah. Silakan coba.

Sub CommandButton1_Click Pribadi ()
Redupkan xIntRrow Sebagai Integer
Redupkan barisNum Sebagai Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Masukkan Nomor Baris tempat Anda ingin menambahkan baris:", _
Judul:="Kutools for excel", Ketik:=1)
xIntRrow = Application.InputBox(Prompt:="Ketik jumlah baris yang ingin Anda sisipkan", _
Judul:="Kutools for excel", Ketik:=1)
Baris(rowNum + 1 & ":" & rowNum + 1).EntireRow.Resize(xIntRrow).Sisipkan Shift:=xlShiftDown

End Sub
Komentar ini diminimalkan oleh moderator di situs
apakah mungkin untuk membuat di lembar yang berbeda? Saya sangat membutuhkan itu
Komentar ini diminimalkan oleh moderator di situs
Sub TambahkanNewRow()



Sub CommandButton1_Click Pribadi ()

ActiveSheet.Unprotect Password:="1234"



Redupkan mySheets

Redupkan Aku Selamanya



mySheets = Array("Sheet2")



Untuk i = LBound(mySheets) Ke UBound(mySheets)

Dengan Spreadsheet(mySheets(i))

.Range("B10").SeluruhRow.Sisipkan Shift:=xlDown

.Range("B10:H10").Borders.Berat = xlThin

Berakhir dengan

Selanjutnya saya



ActiveSheet.Protect Password:="1234"



End Sub

Saya tidak tahu apakah ini akan berhasil untuk Anda. Ini bekerja cukup baik untuk saya. Saya bahkan meninggalkan sel yang tidak terlindungi sehingga Anda dapat memasukkan data dan rumusnya masih aktif. Aku butuh waktu seharian untuk mengetahuinya. ganti "1234" dengan kata sandi apa pun yang Anda inginkan, "Sheet2" dengan Sheet yang sedang Anda kerjakan dan masukkan rentang yang Anda inginkan.
Kode pertama-tama membuka proteksi lembar kerja, menambahkan baris dan melindungi lembar kerja.
kiongakamau@gmail.com
Komentar ini diminimalkan oleh moderator di situs
Hi

Saya menggunakan kode tetapi ingin menambahkan baris dengan rumus, oleh karena itu saya menambahkan baris terakhir untuk dapat menambahkan baris dengan rumus.
Namun, di file excel saya dan di kolom "F" saya memiliki teks yang dapat dimasukkan secara manual dan akan berbeda dalam kasus yang berbeda. Oleh karena itu, saya ingin menambahkan baris di bawah baris referensi dengan menjaga rumus dan nilai di semua sel kecuali sel dari kolom "F" yang ingin saya salin sebagai kosong!
Bisakah Anda membantu saya dengan apa yang harus saya tambahkan ke kode di bawahnya agar sel-sel kolom "F" kosong setiap kali saya menambahkan baris dengan kode ini?
Terima kasih sebelumnya!

Sub CommandButton1_Click Pribadi ()
Redupkan xIntRrow Sebagai Integer
Redupkan barisNum Sebagai Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Masukkan Nomor Baris tempat Anda ingin menambahkan baris:", _
Judul:="Kutools for excel", Ketik:=1)
xIntRrow = Application.InputBox(Prompt:="Ketik jumlah baris yang ingin Anda sisipkan", _
Judul:="Kutools for excel", Ketik:=1)
Baris(rowNum + 1 & ":" & rowNum + 1).EntireRow.Resize(xIntRrow).Sisipkan Shift:=xlShiftDown
Baris(barisNum).Ubah ukuran(xIntRrow + 1).IsiDown

End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Mah,
Kode VBA berikut mungkin membantu Anda. Ayo cobalah. Terima kasih.

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
Komentar ini diminimalkan oleh moderator di situs
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 semper 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 forma desejada, que seria atau format das linhas de cima.

Acho que o código existing, só não encontro, já tentei várias formas, selecionando um fixo, subindo uma linha e pedindo untuk insert após, mas as a seguintes não function of acordo.

Alguém poderia me ajudar?
Komentar ini diminimalkan oleh moderator di situs
... 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 ea quantidade, não dá...
Komentar ini diminimalkan oleh moderator di situs
Criei uma linha dan nomeei como spotB,
Mudei a altura da linha para 0,01 para okultá-la (apenas por estética).
Criei um botao:
Application.Goto Referensi:="spotB"
Seleksi.SeluruhRow.Sisipkan

Masalah resolusi.

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 no le. .
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan