Hot Fox

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

Formula di bawah ini, bukan array formula dan tidak ada syarat

harus ditulis mulai di ROW mana tabel rujukan berada..

=IF(MOD(ROW(1:1)-1,5)=0,OFFSET($A$1,CEILING(ROW(1:1),5)/5,0),"")

Row(1:1)

membuat nomor urut sekuensial 1,2,3,4 dst sesuai di row mana dituliskannya.

(nilai (1:1) akan berubah menjadi 2:2, 3:3 dst )

MOD(Row(1:1)=0 mendetaksi apakah nomor urut = 0

hasilnya (true/false) akan dijadikan logikal test bagi fungsi IF)

Jika hasil MOD(Row(1:1)=0 >> tuliskan hasil OFFSET, (jika tidak) tuliskan BLANK

OFFSET($A$1,CEILING(ROW(1:1),5)/5,0)

OFFSET sendiri menghasilkan data seperti di tabel rujukan, bedanya setiap

baris ditulis 5 kali (tapi hanya ditampakkan sekali), yaitu ketika logikal test dlm IF

menghasilkan TRUE).

2011/8/28 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

>
> untuk solusi kasus ini setidak tidaknya harus ada baris di atas formula awal minimal sejumlah baris yang diinginkan untuk diinsert di sela data. dalam hal ini karena yang diinginkan adalah 5 baris ,maka paling tidak formula awal baru bisa dibuat pada baris ke 6 .
>
> karena dibutuhkan 5 baris sebelumnya untuk referensi formula.
>
> formulanya (formula array ) : formula awal di F6
>
> {=IF(COUNTIF(F$5:F5;INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0)))=1;"";
> INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0)))}
>
> formula ini sebetulnya adalah modifikasi dari formula
> {=INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0))}
>
> yang hasilnya mengulang setiap data 5 kali (5 baris). selanjutnya ditambah dengan formula yang

> memerintahkan untuk hanya mengeluarkan data pada baris pertama saja.
>
> wassalam
> Ghozi Alkatiri
>

--- Pada Sab, 27/8/11, Yan Novianto <da_yan.novianto@yahoo.co.id> menulis:
tolong di bantu bagaimana cara nya untuk menambahkan row misal dengan 5 row di setiap data,
contoh terlampir,
terimakasih
Yan Novianto

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

New Members 45

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| jangan lupa sebelum libur:                                        |
| - add XL-mania di linkedin www.linkedin.com/company/xl-mania      |
| - pesan buku "mengapa boss benci chart anda" :D :D :D            |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

There's one number you should know, your Credit Score. freecreditscore.com.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

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

:D.. :D.. :D.., mbak siti... mbak siti.
orang nulis macro biasanya kan 'seriosa'...
tapi di tangan-letik mbak siti bahasa VBA malah bisa dibuat dagelan.
baru kali ini aku melihat macro bisa super lucu...

saya sudah coba-coba, & hasilnya "nyiip" (sipp) mbak, tetapi
keperluanku agak lain.
data: ada 7 kolom (mulai kolom A) dengan Header ada di baris 3.
Di sebelah kanan tabel selang beberapa kolom ada tabel lagi.

Bgmana modifikasinya agar penyisipan baris baru di kolom A:G
tidak menyisipi baris baru di kolom setelah AG.

Mbak LadyMacro, jawabannya tidak tergesa-gesa, nanti habis lebaran
juga "nyip" lah..

matur nuwun,
selamat idul fitri, mohon maaf lahir batin

o'Seno
maaf belum dapat melampirkan workbook, karena masih ikut milis
via web... segera disusulakan.

> Sub ctv_InsertRowsBeruntun()
> ' coded by siti Vi / 28 Agu 2011
> '-------------------------------
> ' 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
> On *Error* GoTo *Ngisorr*
>---------------------------------------------------

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

New Members 45

Visit Your Group

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

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

Hot Fox

domingo, 28 de agosto de 2011

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

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

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

Arquivo do blog