Saturday, January 18, 2014

Menyisipkan Baris Kosong Pada Excel 2007, 2010

Post oleh : kang ombar | Rilis : 8:50 PM | Series :

Cara Menyisipkan baris kosong pada excel 2007, 2010 - 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 1dibawah

Excel, VBScript, Row

Gambar 1

2.      Kemudian tekan ALT+F11 untuk menampilkan macro editor pada excel seperti gambar 2 dibawah ini

Excel, VBScript, Row

Gambar 2

3.      Pada VBAProject Klik kanan lalu pilih Insert > Module

Excel, VBScript, Row
 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).select

   Do Until ActiveCell.row = 1
      'Menyisipkan Row Kosong.
      ActiveCell.EntireRow.Insert shift := xldown
      'Pindah ke atas satu baris.
      ActiveCell.Offset(-1,0).Select
   Loop

End Sub
Gambar 4


5.      Kemudian simpan VBAProject anda, tekan yes untuk melanjutkan penyimpanan . Jika sudah Macro editornya sudah bisa di tutup / close.

 Excel, VBScript, Row

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.

Excel, VBScript, Row

Gambar 6

7.      Nah hasil akhirnya akan terlihat pada Gambar 7 dibawah ini.

Excel, VBScript, Row

 Gambar7
Nah, Sekian dulu tutorial Menyisipkan Baris kosong di setiap row pada Microsoft Excel, Semoga bermanfaat, Salam

google+

linkedin