Re: ]] XL-mania [[ insert beberapa row dalam data

Bisa dipermudah dengan makro !!

Enak ajaa..

(yg MUDAH itu pihak user memencet tombol makronya,  Klik > Wessss !!)

Tetapi untuk membuat makronya minimal diperlukan pemikiran sejenak, mencari 

jalan ceritaknya, lalu menterjemahkan jalan ceritak (algoritma) tsb ke bahasa VBA

*bagian I: 

menanyakan 2 perkara, kpd user:  

Range yg akan diproses dan N (jumlah baris per sekali Insert)

dua perkara  ini bisa memanfaatkan InputBox (baik milik Application maupun milik VBA)

*bagian II

Loop Menginsert N Baris di setiap Baris dlm Range

Agar tidak kacauw-balauw, Loop meraba baris dari paling bawah menuju ke atas

sampai dengan baris 2 (baris 1 dicuekin karena dianggap Header)

Sub ctv_InsertRowsBeruntun()

   ' coded by siti Vi / 28 Agu 2011

   '-------------------------------

   Dim Rng As Range, N As Integer, R As Long, i As Long

   ' Dim Jamal As Decimal, Yulian As Boolean

   ' Dim King As String, Kong as Long

   ' Dim Jomblo as Single, Jomblowati As Single

   ' Dim Pasutri As Double, Trouble As Double

   ' Dim Tali As String

   ' Dim LampuDepan

   ' (itu maksodnyah 'kan mau melucu.. tapi kok ndak dengar ada yg ketawa ya ??)

   

   On Error GoTo Ngisorr

   Set Rng = Application.InputBox("Select Range yg akan diproses.", _

             "Input Range Selection", Selection.Address, , , , , 8)

   N = CInt(InputBox("Jumlah Baris Per-sekali Insert: ", _

       "JumlahRow yg Di-Insertkan", 1))

   Set Rng = Rng.Resize(Rng.Rows.Count, 1)

   

   For R = Rng.Rows.Count To 2 Step -1

      Rng(R, 1).Resize(N, 1).Select

      Selection.EntireRow.Insert

   Next R

Ngisorr:

End Sub

Dlm workbooknya ada 1 makro lagi, cuma sekedar mainan, yaitu memanfaatkan 

Klik-Kanan pada cell A1 untuk menghadirkan adanya SubMenu baru pada 

Context Menu (PopUp Menu) bernama [Insert Row Beruntun] yang jika di-ceklik

akan menjalankan dua perkara seperti ditulis di atas...

Perlu juga diketahui: Kalau makro ini hanya mengandung 2 perkara, 

tetapi kalau 'tombo ati' itu ada 5 perkaranya !!

2011/8/28 STDEV(i) <setiyowati.devi@gmail.com>

Dengan Makro paling mudah

tapi Tanpa Makro = Lebih Mudah

Kita akan memanfaatkan methoda SORTING

Tahap 1

Insertkan KOLOM baru di sebelah KIRI data asli

Kolom Baru ini (sekarang = Kolom A) akan kita isi dengan NOMOR-AJAIB 

biar seru kolomnya diberi judul "Magig No."

Tahap 1A

Nomor Ajaib dibuat dengan 2 kelompok RUMUS

1. Rumus kelompok 1 dibuat 1 dulu, di kolom "Magig No" pada cell sebelah kiri 

data pertama (cell A2)

=ROW(A1)*4-3   lalu di cop ke bawah sebanyak data asal. 

A1 boleh diganti dengan B1, C1, Z1 pokoknya Row1; bolehjuga di tulis ROW(1:1)

2.

Rumus Kelompok 2, Masih di kolom Magig No, di baris kosong pertama  (dlm contoh di A7)

=CEILING(ROW(A1),4)

RUmus ini dicopy ke bawah sebanyak 4 kali jumlah data asal (dlm contoh = 20 cells ke abwah)

Jika kelebihan = tidak jadi masalah..

Tahap 2

Sekarang SELECT / BLOK lah dari A1 sampai B26   (kelebihan ke bawah = no problemo, man !)

 

Tahap 3 

Cari dan CEKLIK Ikon Sort Ascending (gambar A-Z) di ToolBar Standard (excel 2003)

( >> jaaadi dexhg ! )

~siti

{ mengucapkan selamat Iedul Fitri ke semua XL-maniawan & XL-maniawati

  mohon maaf lahir & batin, luar-dalam, minal aidin, walfaizin..}

maafkan segala dosa ku, karena selama jam tayang Exceltainment suka ngomong sembarangan

padahal maksudnya itu kan sayyang kepada semua XL-maniawan-XL-maniawati... tersa ndak cih..)

2011/8/27 Yan Novianto <da_yan.novianto@yahoo.co.id>

Bingung dan bertanya,

ilmu saya di exel sagat minim, untuk itu saya tolong di bantu bagaimana cara nya untuk menambahkan row misal dengan 5 row di setiap data,
contoh terlampir,
sebenarnya malu bertanya karena sangat gampang dari pada saya kerja manual ( data nya banyak) dan saya coba cari di topik belum menemukan hal yang serupa,
mohon pencerahannya
terimakasih

 
Yan Novianto 
da Ketar Agung
081 236 35 4774