Vba: cara menyisipkan baris dengan format

Anda dapat menggunakan sintaks berikut di VBA untuk menyisipkan baris dengan format yang sama dengan baris di atasnya:

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

Makro khusus ini akan menyisipkan baris di bawah sel yang dipilih saat ini dengan format yang sama persis dengan sel di baris yang dipilih saat ini.

Catatan : Baris Application.CutCopyMode = False menetapkan bahwa mode potong dan salin harus dinonaktifkan setelah makro dijalankan.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Terkait: Cara Menyisipkan Beberapa Baris Menggunakan VBA

Contoh: Menyisipkan baris dengan format di VBA

Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Katakanlah kita ingin menyisipkan baris di bawah baris 2 dengan format yang sama persis.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

Kita kemudian dapat memilih sel A2 dan kemudian menjalankan makro ini.

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa baris baru yang kita sisipkan memiliki format yang sama persis dengan sel di baris 2, termasuk warna dan batas sel.

Perhatikan juga bahwa semua baris lain dalam kumpulan data yang ada telah didorong ke bawah.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menemukan baris yang terakhir digunakan
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghitung jumlah kolom yang digunakan