Messages In This Digest (9 Messages)
- 1a.
- Re: Bagaimana Menghilangkan Pesan error di excel 'Microsoft excel ha From: STDEV(i)
- 2a.
- Re: Memindahkan dan penjumlahan karakter tertentu pada txt file ke e From: STDEV(i)
- 3a.
- Re: Loop yg berulang From: summonery
- 4a.
- insert beberapa row dalam data From: Yan Novianto
- 4b.
- Re: insert beberapa row dalam data From: STDEV(i)
- 4c.
- Re: insert beberapa row dalam data From: STDEV(i)
- 4d.
- Re: insert beberapa row dalam data From: OntoSeno
- 5a.
- Bls: ]] XL-mania [[ insert beberapa row dalam data From: ghozi alkatiri
- 5b.
- Re: insert beberapa row dalam data From: STDEV(i)
Messages
- 1a.
-
Re: Bagaimana Menghilangkan Pesan error di excel 'Microsoft excel ha
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sat Aug 27, 2011 12:12 pm (PDT)
PAK Ratu MasihGadisNih tidak menjelaskan EXCEL2003-nya SP berapa
Mungkin perlu jalan-jalan ke sini sebentar...
http://support.microsoft. com/kb/903240
http://support.microsoft. com/kb/832334
http://support.microsoft. com/kb/898071
2011/8/26 ratu elissa <masihgadisnih@gmail.com >
> Microsoft Office Excel has encountered a problem and needs to close
- 2a.
-
Re: Memindahkan dan penjumlahan karakter tertentu pada txt file ke e
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sat Aug 27, 2011 12:14 pm (PDT)
Sayang sekali POLA penulisan data teksnya tidak konsisten
Dlm tiap baris; subString yg akan dianggap 1 data cell tersediri
tidak dapat diSPlit dengan cara FIXED-WIDTH maupun DELIMITED,
karena ada karakter Chr(10) yg keberadaannya tidak konsisten
Jika data tsb belum terlanjur banyak, maka cara mengimpor atau
cara menulisnya agar diperbaiki sehingga oleh Excel dapat dikenal
sebagai data FIXED WIDTH ataupun DELIMITED
(lihat menu Data > Text To Column)
[image: chr10 delimited.PNG]
2011/8/25 Natalia Irma <inong2108@yahoo.com >
>
> Salam kenal,
> Mohon bantuan para suhu untuk case di bawah ini:
> Saya punya 3 file txt (data terlampir). Mohon pencerahan bagaimana agar
> data di txt file bisa diconvert menjadi data yang terdapat pada file
excel.
>
> terima kasih atas bantuannya
>
> regards
> irma
- 3a.
-
Re: Loop yg berulang
Posted by: "summonery" summonery@yahoo.com summonery
Sat Aug 27, 2011 12:18 pm (PDT)
coba juga, (mohon dites kecepatannya)
Sub Sumi() 'anton suryadi, 27/Agt/2011 'mengisi cell dengan
formula hanya pada baris yang kosong/ blank (Microsoft Office Excel
2007) Dim r As Range ActiveSheet.AutoFilterMode = False x =
Cells(Rows.Count, 1).End(xlUp).Row Set r = Cells(1, 1).Resize(x, 1)
With r .AutoFilter 1, "<>" .Offset(1, 2).Resize(x - 1,
1).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])" End With
ActiveSheet.AutoFilterMode = FalseEnd Sub
>semoga bermanfaat
--- In XL-mania@yahoogroups.com , Novan Dwiascahyo <novan.dwiascahyo@...>
wrote:
>
> Dear XL-mania,
>
> Mohon bantuannya memperbaiki formula macro yg menggunakan Do.. Loop,
sehingga proses penghitungan data dapat berlangsung kontinyu hanya
dengan sekali running macro dan baru akan berhenti setelah menghitung
data yg paling bawah.
>
> Perintah yg saya gunakan adalah sbb:
>
> Sub sum()
> ' sum
> ' penjumlahan biasa
> Do
> If IsEmpty(ActiveCell) Then
> If IsEmpty(ActiveCell.Offset(0, -1)) And
IsEmpty(ActiveCell.Offset(0, -2)) Then
> ActiveCell.Value = ""
> Else
> ActiveCell.FormulaR1C1 = "=sum(RC[-1] ,RC[-2])"
> End If
> End If
> ActiveCell.Offset(1, 0).Select
> Loop Until IsEmpty(ActiveCell.Offset(-1, -1))
> End Sub
>
> Kasus lengkapnya mohon disimak file terlampir. Thanks berat.
>
> Note: Ini postingan ke-2 (dgn sedikit edit) karena postingan yg
pertama sepertinya tidak sampai dengan slamet.
>
> Salam,
> ND
>
>
> _____________________ _________ _________ _________ _________ _
> This email has been scanned by the MessageLabs Email Security System.
> For more information please visit http://www.messagelabs.com/email
> _____________________ _________ _________ _________ _________ _
>
- 4a.
-
insert beberapa row dalam data
Posted by: "Yan Novianto" da_yan.novianto@yahoo.co.id da_yan.novianto
Sat Aug 27, 2011 12:19 pm (PDT)
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 - 4b.
-
Re: insert beberapa row dalam data
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sat Aug 27, 2011 10:34 pm (PDT)
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 ! )
[image: Sort Tool.PNG]
(gambar) Hasil Sorting *sebelum Kolom Ajaib nya di delete..*
[image: Hasil Sorting Ajaib.GIF]
~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*
>
- 4c.
-
Re: insert beberapa row dalam data
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sat Aug 27, 2011 10:34 pm (PDT)
*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 ! )
>
> [image: Sort Tool.PNG]
> ~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
>>
>
- 4d.
-
Re: insert beberapa row dalam data
Posted by: "OntoSeno" ontoseno84@ymail.com ontoseno84@ymail.com
Sun Aug 28, 2011 4:18 am (PDT)
: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*
>-------------------- --------- --------- --------- ----
- 5a.
-
Bls: ]] XL-mania [[ insert beberapa row dalam data
Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri
Sat Aug 27, 2011 10:33 pm (PDT)
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. > menulis:id
Dari: Yan Novianto <da_yan.novianto@yahoo.co. >id
Judul: ]] XL-mania [[ insert beberapa row dalam data
Kepada: "XL-mania@yahoogroups.com " <XL-mania@yahoogroups.com >
Tanggal: Sabtu, 27 Agustus, 2011, 9:14 PM
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 Agung081 236 35 4774
- 5b.
-
Re: insert beberapa row dalam data
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Sun Aug 28, 2011 4:18 am (PDT)
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. > menulis:id
> tolong di bantu bagaimana cara nya untuk menambahkan row misal dengan 5 row
> di setiap data,
> contoh terlampir,
> terimakasih
> Yan Novianto
>
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
+-:: 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 |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar