Cara Menyisipkan baris kosong di setiap row pada Microsoft Excel menggunakan VBScript
Cara Menyisipkan baris kosong pada excel 2007 - Pada kesempatan ini saya akan
mengulas sedikit tentang serba-serbi Microsoft Excel, Kali ini saya akan
membahas bagaimana sih cara menyisipkan row kosong di tiap row pada Microsoft Excel
yang sebelumnya telah kita buat. Bayangkan jika row yang kita sisipkan ratusan
bahkan ribuan, tentu kita akan kewalahan untuk insert row satu-satu secara
manual, Untuk menyisipkan row kosong secara terprogram kali ini kita
menggunakan aplikasi Macro VB yang telah ada pada Microsoft excel.
1. Langkah
pertama yang harus kita lakukan adalah, membuka file excel yang telah berisi
data tersebut seperti Gambar 1
dibawah
Gambar 1
2. Kemudian
tekan ALT+F11 untuk menampilkan
macro editor pada excel seperti gambar 2 dibawah ini
Gambar 2
3.
Pada VBAProject Klik kanan lalu pilih Insert > Module
Gambar 3
4. Lalu
Pastekan Script dibawah ini pada Module yang telah dibuat tadi.
Sub Masukkan_Baris_Kosong()'Memilih Baris Akhir Worksheet.Selection.end(xldown).selectDo Until ActiveCell.row = 1'Menyisipkan Row Kosong.ActiveCell.EntireRow.Insert shift := xldown'Pindah ke atas satu baris.ActiveCell.Offset(-1,0).SelectLoopEnd Sub
Gambar 4
5.
Kemudian simpan
VBAProject anda, tekan yes untuk melanjutkan penyimpanan . Jika sudah Macro
editornya sudah bisa di tutup / close.
Gambar5
6.
Kembali ke file excel
nya, letakkan cursor pada kolom pertama dan row pertama pada shell, tekan
tombol ALT+F8 kemudian pilih macro
tadi lalu klik run seperti gambar 6
dibawah ini.
Gambar 6
7.
Nah hasil akhirnya akan
terlihat pada Gambar 7 dibawah ini.
Gambar7
Nah, Sekian dulu tutorial Menyisipkan Baris kosong di setiap row
pada Microsoft Excel, Semoga bermanfaat, Salam
0 Response to "Cara Menyisipkan baris kosong pada excel 2007"
Post a Comment