15 New Messages
Digest #1763
Messages
Sun Sep 9, 2012 6:30 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Sama-sama.
Tentang baris yang berupa hasil jumlah.
Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai berikut
:
"Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel
hasil di kolom nilai,
diisi dengan :"
(Bisa pilih satu dari beberapa cara berikut)
1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak
jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut
(C).
B. Kemudian lakukan kalkulasi dan di-values-kan.
2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu
yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell
pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris
tepat 1 baris sebelum baris diletakkannya hasil sum.
B. Kemudian lakukan kalkulasi dan di-values-kan.
3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan
di nomor 1A
4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan
di nomor 2A
5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum,
pada range kolom nilai di record pertamanya yang luasnya diubah menjadi
(Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
Kira-kira bunyi kode VBA-nya bagaimana ya...
Wassalam,
Kid.
2012/9/9 <sin.ur4t@yahoo.com >
> **
>
>
> Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari perlahan.
>
> Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu
> membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
> Powered by Telkomsel BlackBerry®
> ------------------------------
> 2012/9/9 Imam Sinurat <sin.ur4t@yahoo.com >
>
>>
>> Yth. Pak Mr Kid dan rekan2
>>
>> Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti
>> step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan
>> dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
>> Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor
>> kebetulan saja hasilnya benar :)
>> Juga mohon direvisi sintaxnya yang masih kurang efisien.
>>
>> Option Explicit
>> Public Sub sisipdata(Optional bvalue As Boolean = False)
>> Dim rngdata As Range, rnghasil As Range
>> Dim lrecdata As Long, lrechasil As Long
>>
>> '0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya ->
>> ke menu Insert -> pilih Module)
>>
>> 'RangeData
>> Set rngdata = Sheet1.Range("b3").CurrentRegion
>>
>> 'beri nama range untuk data tanpa header
>> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1).Name = "myData"
>>
>> With Sheet2
>>
>> '1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
>> .Range("b4").CurrentRegion.Offset(1).Delete xlShiftUp
>>
>> '2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
>> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1,
>> rngdata.Columns.Count - 1).Copy
>> .Range("b5").PasteSpecial xlPasteValues
>> Application.CutCopyMode = False
>>
>> '3. hitung jumlah record + header di hasil dan simpan disebuah variabel
>> lrecdata = rngdata.Rows.Count - 1
>>
>> End With
>>
>> '4. hide kolom nominal1 di data
>>
>> With Sheet1
>> .Columns("D:D").EntireColumn.Hidden = True
>>
>>
>> '5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
>> rngdata.AutoFilter Field:=4, Criteria1:="<>"
>>
>> '6. data yang visible (gunakan specialcells visible) di copy dan paste ke
>> hasil dengan offset sebanyak variabel jumlah record (proses 3)
>>
>> rngdata.Offset(1).Resize(lrecdata).SpecialCells(xlCellTypeVisible).Copy
>> Sheet2.Range("b4").Offset(lrecdata + 1).PasteSpecial xlPasteValues
>>
>> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan
>> kembali kolom D
>> Application.CutCopyMode = False
>> rngdata.AutoFilter
>> .Columns("D:D").EntireColumn.Hidden = False
>>
>> End With
>>
>> '7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
>> proses 6)
>>
>> Set rnghasil = Sheet2.Range("b4").CurrentRegion
>> lrechasil = rnghasil.Rows.Count - 1
>>
>> With Sheet2
>> .Range("b4").CurrentRegion.Offset(lrecdata + 1,
>> 1).Resize(lrechasil - lrecdata, 1).ClearContents
>>
>> '8. sort hasil berdasar kolom No secara menaik
>> rnghasil.CurrentRegion.Sort .Range("b4"), xlAscending,
>> Header:=xlYes
>>
>> '9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
>> style R1C1 berbunyi : "=R[-1]C & ""(*)"""
>> rnghasil.Offset(1, 1).Resize(lrechasil,
>> 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C&""(*)"""
>>
>>
>> '10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 :
>> "=n(R[-1]C)+1"
>> rnghasil.Offset(1).Resize(lrechasil, 1).FormulaR1C1 =
>> "=N(R[-1]C)+1"
>>
>> '11. kalkulasi sheet hasil
>> Sheet2.Calculate
>>
>> '12. copy paste special values area hasil
>> rnghasil.CurrentRegion.Copy
>> Sheet2.Range("b4").PasteSpecial xlPasteValues
>> Application.CutCopyMode = False
>>
>> End With
>> End Sub
>>
>> Terima kasih sebelumnya, Wassalam
>> Sinurat
>> ------------------------------
>> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
>> *Kepada:* belajar-excel@yahoogroups.com
>> *Dikirim:* Kamis, 6 September 2012 13:00
>> *Judul:* Re: [belajar-excel] Makro Sisip Baris
>>
>> Bagi yang masih bingung caranya, silakan posting dengan judul thread :
>> VBA xx. nama prosesnya
>> Contoh :
>> bingung cara nomor 5, buat thread baru (posting email baru ke milis)
>> dengan subject :
>> VBA 05. Autofilter data kolom nominal2
>>
>> Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam
>> dulu, supaya sama dan seragam.
>> Harapannya bisa mempermudah proses belajar bersama.
>>
>> Selamat mencoba dan tetap semangat belajar.
>>
>> Wassalam,
>> Kid.
>>
>
>
Tentang baris yang berupa hasil jumlah.
Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai berikut
:
"Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel
hasil di kolom nilai,
diisi dengan :"
(Bisa pilih satu dari beberapa cara berikut)
1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak
jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut
(C).
B. Kemudian lakukan kalkulasi dan di-values-kan.
2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu
yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell
pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris
tepat 1 baris sebelum baris diletakkannya hasil sum.
B. Kemudian lakukan kalkulasi dan di-values-kan.
3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan
di nomor 1A
4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan
di nomor 2A
5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum,
pada range kolom nilai di record pertamanya yang luasnya diubah menjadi
(Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
Kira-kira bunyi kode VBA-nya bagaimana ya...
Wassalam,
Kid.
2012/9/9 <sin.ur4t@yahoo.
> **
>
>
> Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari perlahan.
>
> Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu
> membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
> Powered by Telkomsel BlackBerry®
> ------------
> 2012/9/9 Imam Sinurat <sin.ur4t@yahoo.
>
>>
>> Yth. Pak Mr Kid dan rekan2
>>
>> Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti
>> step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan
>> dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
>> Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor
>> kebetulan saja hasilnya benar :)
>> Juga mohon direvisi sintaxnya yang masih kurang efisien.
>>
>> Option Explicit
>> Public Sub sisipdata(Optional bvalue As Boolean = False)
>> Dim rngdata As Range, rnghasil As Range
>> Dim lrecdata As Long, lrechasil As Long
>>
>> '0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya ->
>> ke menu Insert -> pilih Module)
>>
>> 'RangeData
>> Set rngdata = Sheet1.Range(
>>
>> 'beri nama range untuk data tanpa header
>> rngdata.Offset(
>>
>> With Sheet2
>>
>> '1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
>> .Range("b4")
>>
>> '2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
>> rngdata.Offset(
>> rngdata.Columns.
>> .Range("b5")
>> Application.
>>
>> '3. hitung jumlah record + header di hasil dan simpan disebuah variabel
>> lrecdata = rngdata.Rows.
>>
>> End With
>>
>> '4. hide kolom nominal1 di data
>>
>> With Sheet1
>> .Columns("D:
>>
>>
>> '5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
>> rngdata.AutoFilter Field:=4, Criteria1:="
>>
>> '6. data yang visible (gunakan specialcells visible) di copy dan paste ke
>> hasil dengan offset sebanyak variabel jumlah record (proses 3)
>>
>> rngdata.Offset(
>> Sheet2.Range(
>>
>> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan
>> kembali kolom D
>> Application.
>> rngdata.AutoFilter
>> .Columns("D:
>>
>> End With
>>
>> '7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
>> proses 6)
>>
>> Set rnghasil = Sheet2.Range(
>> lrechasil = rnghasil.Rows.
>>
>> With Sheet2
>> .Range("b4")
>> 1).Resize(lrechasil - lrecdata, 1).ClearContents
>>
>> '8. sort hasil berdasar kolom No secara menaik
>> rnghasil.CurrentReg
>> Header:=xlYes
>>
>> '9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
>> style R1C1 berbunyi : "=R[-1]C & ""(*)"""
>> rnghasil.Offset(
>> 1).SpecialCells(
>>
>>
>> '10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 :
>> "=n(R[-1]C)+
>> rnghasil.Offset(
>> "=N(R[-1]C)+
>>
>> '11. kalkulasi sheet hasil
>> Sheet2.Calculate
>>
>> '12. copy paste special values area hasil
>> rnghasil.CurrentReg
>> Sheet2.Range(
>> Application.
>>
>> End With
>> End Sub
>>
>> Terima kasih sebelumnya, Wassalam
>> Sinurat
>> ------------
>> *Dari:* Kid Mr. <mr.nmkid@gmail.
>> *Kepada:* belajar-excel@
>> *Dikirim:* Kamis, 6 September 2012 13:00
>> *Judul:* Re: [belajar-excel] Makro Sisip Baris
>>
>> Bagi yang masih bingung caranya, silakan posting dengan judul thread :
>> VBA xx. nama prosesnya
>> Contoh :
>> bingung cara nomor 5, buat thread baru (posting email baru ke milis)
>> dengan subject :
>> VBA 05. Autofilter data kolom nominal2
>>
>> Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam
>> dulu, supaya sama dan seragam.
>> Harapannya bisa mempermudah proses belajar bersama.
>>
>> Selamat mencoba dan tetap semangat belajar.
>>
>> Wassalam,
>> Kid.
>>
>
>
Sun Sep 9, 2012 8:46 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Boleh ikutan Mr Kid ?
Saya coba alternatif 3, dengan menambahkan kode seperti ini"
.Range("b4").Offset(rnghasil.Rows.Count, 2).FormulaR1C1 = Evaluate("=Sum(R[-1]C:R5C)")
hasilnya #VALUE!tetapi kalau Evaluate dan () dihilangkan (kembali ke alternatif1) maka hasilnya OK (37).
Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
Terima kasih.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 10 September 2012, 8:29
Subject: Re: [belajar-excel] Makro Sisip Baris
Sama-sama.
Tentang baris yang berupa hasil jumlah.
Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai berikut :
"Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel hasil di kolom nilai,
diisi dengan :"
(Bisa pilih satu dari beberapa cara berikut)
1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut (C).
B. Kemudian lakukan kalkulasi dan di-values-kan.
2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris tepat 1 baris sebelum baris diletakkannya hasil sum.
B. Kemudian lakukan kalkulasi dan di-values-kan.
3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 1A
4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 2A
5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum, pada range kolom nilai di record pertamanya yang luasnya diubah menjadi (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
Kira-kira bunyi kode VBA-nya bagaimana ya...
Wassalam,
Kid.
2012/9/9 <sin.ur4t@yahoo.com >
>
>Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari perlahan.
>
>Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
>Powered by Telkomsel BlackBerry®
>________________________________
>
>2012/9/9 Imam Sinurat <sin.ur4t@yahoo.com >
>
>
>>Yth. Pak Mr Kid dan rekan2
>>
>>
>>Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
>>Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor kebetulan saja hasilnya benar :)
>>
>>Juga mohon direvisi sintaxnya yang masih kurang efisien.
>>
>>
>>Option Explicit
>>Public Sub sisipdata(Optional bvalue As Boolean = False)
>>Dim rngdata As Range, rnghasil As Range
>>Dim lrecdata As Long, lrechasil As Long
>>
>>'0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke menu Insert -> pilih Module)
>>
>> 'RangeData
>> Set rngdata =
Sheet1.Range("b3").CurrentRegion
>>
>> 'beri nama range untuk data tanpa header
>> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1).Name = "myData"
>>
>>With Sheet2
>>
>>'1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
>> .Range("b4").CurrentRegion.Offset(1).Delete xlShiftUp
>>
>>'2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
>> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1, rngdata.Columns.Count - 1).Copy
>> .Range("b5").PasteSpecial xlPasteValues
>> Application.CutCopyMode = False
>>
>>'3. hitung jumlah record + header di hasil dan simpan disebuah
variabel
>> lrecdata = rngdata.Rows.Count - 1
>>
>>End With
>>
>>'4. hide kolom nominal1 di data
>>
>>With Sheet1
>> .Columns("D:D").EntireColumn.Hidden = True
>>
>>
>>'5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
>> rngdata.AutoFilter Field:=4, Criteria1:="<>"
>>
>>'6. data yang visible (gunakan specialcells visible) di copy dan paste ke hasil dengan offset sebanyak variabel jumlah record (proses 3)
>> rngdata.Offset(1).Resize(lrecdata).SpecialCells(xlCellTypeVisible).Copy
>> Sheet2.Range("b4").Offset(lrecdata + 1).PasteSpecial xlPasteValues
>>
>> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan kembali kolom D
>> Application.CutCopyMode = False
>> rngdata.AutoFilter
>> .Columns("D:D").EntireColumn.Hidden = False
>>
>>End With
>>
>>'7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil proses 6)
>>
>> Set rnghasil = Sheet2.Range("b4").CurrentRegion
>> lrechasil = rnghasil.Rows.Count - 1
>>
>>With Sheet2
>> .Range("b4").CurrentRegion.Offset(lrecdata + 1, 1).Resize(lrechasil - lrecdata, 1).ClearContents
>>
>>'8. sort hasil berdasar kolom No secara menaik
>>
rnghasil.CurrentRegion.Sort .Range("b4"), xlAscending, Header:=xlYes
>>
>>'9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula style R1C1 berbunyi : "=R[-1]C & ""(*)"""
>> rnghasil.Offset(1, 1).Resize(lrechasil, 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C&""(*)"""
>>
>>
>>'10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 : "=n(R[-1]C)+1"
>> rnghasil.Offset(1).Resize(lrechasil, 1).FormulaR1C1 = "=N(R[-1]C)+1"
>>
>>'11. kalkulasi sheet hasil
>> Sheet2.Calculate
>>
>>'12. copy paste special values area hasil
>> rnghasil.CurrentRegion.Copy
>> Sheet2.Range("b4").PasteSpecial
xlPasteValues
>> Application.CutCopyMode = False
>>
>>End With
>>End Sub
>>
>>
>>
>>Terima kasih sebelumnya, Wassalam
>>Sinurat
>>
>>
>>________________________________
>> Dari: Kid Mr. <mr.nmkid@gmail.com >
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Kamis, 6 September 2012 13:00
>>Judul: Re: [belajar-excel] Makro Sisip Baris
>>
>>
>>
>>Bagi yang masih bingung caranya, silakan posting dengan judul thread :
>>VBA xx. nama prosesnya
>>Contoh :
>>bingung cara nomor 5, buat thread baru (posting email baru ke milis) dengan subject :
>>VBA 05. Autofilter data kolom nominal2
>>
>>Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu, supaya sama dan seragam.
>>Harapannya bisa mempermudah proses belajar bersama.
>>
>>Selamat mencoba dan tetap semangat belajar.
>>
>>Wassalam,
>>Kid.
>>
>
Saya coba alternatif 3, dengan menambahkan kode seperti ini"
.Range("b4")
hasilnya #VALUE!
Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
Terima kasih.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Monday, 10 September 2012, 8:29
Subject: Re: [belajar-excel] Makro Sisip Baris
Sama-sama.
Tentang baris yang berupa hasil jumlah.
Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai berikut :
"Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel hasil di kolom nilai,
diisi dengan :"
(Bisa pilih satu dari beberapa cara berikut)
1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut (C).
B. Kemudian lakukan kalkulasi dan di-values-kan.
2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris tepat 1 baris sebelum baris diletakkannya hasil sum.
B. Kemudian lakukan kalkulasi dan di-values-kan.
3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 1A
4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 2A
5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum, pada range kolom nilai di record pertamanya yang luasnya diubah menjadi (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
Kira-kira bunyi kode VBA-nya bagaimana ya...
Wassalam,
Kid.
2012/9/9 <sin.ur4t@yahoo.
>
>Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari perlahan.
>
>Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
>Powered by Telkomsel BlackBerry®
>___________
>
>2012/9/9 Imam Sinurat <sin.ur4t@yahoo.
>
>
>>Yth. Pak Mr Kid dan rekan2
>>
>>
>>Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
>>Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor kebetulan saja hasilnya benar :)
>>
>>Juga mohon direvisi sintaxnya yang masih kurang efisien.
>>
>>
>>Option Explicit
>>Public Sub sisipdata(Optional bvalue As Boolean = False)
>>Dim rngdata As Range, rnghasil As Range
>>Dim lrecdata As Long, lrechasil As Long
>>
>>'0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke menu Insert -> pilih Module)
>>
>> 'RangeData
>> Set rngdata =
Sheet1.Range(
>>
>> 'beri nama range untuk data tanpa header
>> rngdata.Offset(
>>
>>With Sheet2
>>
>>'1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
>> .Range("b4")
>>
>>'2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
>> rngdata.Offset(
>> .Range("b5")
>> Application.
>>
>>'3. hitung jumlah record + header di hasil dan simpan disebuah
variabel
>> lrecdata = rngdata.Rows.
>>
>>End With
>>
>>'4. hide kolom nominal1 di data
>>
>>With Sheet1
>> .Columns("D:
>>
>>
>>'5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
>> rngdata.AutoFilter Field:=4, Criteria1:="
>>
>>'6. data yang visible (gunakan specialcells visible) di copy dan paste ke hasil dengan offset sebanyak variabel jumlah record (proses 3)
>> rngdata.Offset(
>> Sheet2.Range(
>>
>> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan kembali kolom D
>> Application.
>> rngdata.AutoFilter
>> .Columns("D:
>>
>>End With
>>
>>'7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil proses 6)
>>
>> Set rnghasil = Sheet2.Range(
>> lrechasil = rnghasil.Rows.
>>
>>With Sheet2
>> .Range("b4")
>>
>>'8. sort hasil berdasar kolom No secara menaik
>>
rnghasil.CurrentReg
>>
>>'9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula style R1C1 berbunyi : "=R[-1]C & ""(*)"""
>> rnghasil.Offset(
>>
>>
>>'10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 : "=n(R[-1]C)+
>> rnghasil.Offset(
>>
>>'11. kalkulasi sheet hasil
>> Sheet2.Calculate
>>
>>'12. copy paste special values area hasil
>> rnghasil.CurrentReg
>> Sheet2.Range(
xlPasteValues
>> Application.
>>
>>End With
>>End Sub
>>
>>
>>
>>Terima kasih sebelumnya, Wassalam
>>Sinurat
>>
>>
>>__________
>> Dari: Kid Mr. <mr.nmkid@gmail.
>>Kepada: belajar-excel@
>>Dikirim: Kamis, 6 September 2012 13:00
>>Judul: Re: [belajar-excel] Makro Sisip Baris
>>
>>
>>
>>Bagi yang masih bingung caranya, silakan posting dengan judul thread :
>>VBA xx. nama prosesnya
>>Contoh :
>>bingung cara nomor 5, buat thread baru (posting email baru ke milis) dengan subject :
>>VBA 05. Autofilter data kolom nominal2
>>
>>Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu, supaya sama dan seragam.
>>Harapannya bisa mempermudah proses belajar bersama.
>>
>>Selamat mencoba dan tetap semangat belajar.
>>
>>Wassalam,
>>Kid.
>>
>
Sun Sep 9, 2012 8:53 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba :
application.referencestyle=xlr1c1
.range("b4")..Offset(rnghasil.Rows.Count, 2).value=
Evaluate("=Sum(R[-1]C:R5C)")
application.referencestyle=xla1
Wassalam,
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Boleh ikutan Mr Kid ?
>
> Saya coba alternatif 3, dengan menambahkan kode seperti ini"
> .Range("b4").Offset(rnghasil.Rows.Count, 2).FormulaR1C1 =
> Evaluate("=Sum(R[-1]C:R5C)")
> hasilnya #VALUE! tetapi kalau Evaluate dan () dihilangkan (kembali ke
> alternatif1) maka hasilnya OK (37).
>
> Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 10 September 2012, 8:29
> *Subject:* Re: [belajar-excel] Makro Sisip Baris
>
>
> Sama-sama.
>
> Tentang baris yang berupa hasil jumlah.
> Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai
> berikut :
> "Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel
> hasil di kolom nilai,
> diisi dengan :"
>
> (Bisa pilih satu dari beberapa cara berikut)
> 1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak
> jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut
> (C).
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu
> yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell
> pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris
> tepat 1 baris sebelum baris diletakkannya hasil sum.
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 1A
> 4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 2A
>
> 5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum,
> pada range kolom nilai di record pertamanya yang luasnya diubah menjadi
> (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>
> Kira-kira bunyi kode VBA-nya bagaimana ya...
>
> Wassalam,
> Kid.
>
>
> 2012/9/9 <sin.ur4t@yahoo.com >
>
> **
>
> Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari
> perlahan.
>
> Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu
> membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
> Powered by Telkomsel BlackBerry®
> ------------------------------
> 2012/9/9 Imam Sinurat <sin.ur4t@yahoo.com >
>
>
> Yth. Pak Mr Kid dan rekan2
>
> Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti
> step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan
> dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
> Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor
> kebetulan saja hasilnya benar :)
> Juga mohon direvisi sintaxnya yang masih kurang efisien.
>
> Option Explicit
> Public Sub sisipdata(Optional bvalue As Boolean = False)
> Dim rngdata As Range, rnghasil As Range
> Dim lrecdata As Long, lrechasil As Long
>
> '0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke
> menu Insert -> pilih Module)
>
> 'RangeData
> Set rngdata = Sheet1.Range("b3").CurrentRegion
>
> 'beri nama range untuk data tanpa header
> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1).Name = "myData"
>
> With Sheet2
>
> '1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
> .Range("b4").CurrentRegion.Offset(1).Delete xlShiftUp
>
> '2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1,
> rngdata.Columns.Count - 1).Copy
> .Range("b5").PasteSpecial xlPasteValues
> Application.CutCopyMode = False
>
> '3. hitung jumlah record + header di hasil dan simpan disebuah variabel
> lrecdata = rngdata.Rows.Count - 1
>
> End With
>
> '4. hide kolom nominal1 di data
>
> With Sheet1
> .Columns("D:D").EntireColumn.Hidden = True
>
>
> '5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
> rngdata.AutoFilter Field:=4, Criteria1:="<>"
>
> '6. data yang visible (gunakan specialcells visible) di copy dan paste ke
> hasil dengan offset sebanyak variabel jumlah record (proses 3)
>
> rngdata.Offset(1).Resize(lrecdata).SpecialCells(xlCellTypeVisible).Copy
> Sheet2.Range("b4").Offset(lrecdata + 1).PasteSpecial xlPasteValues
>
> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan
> kembali kolom D
> Application.CutCopyMode = False
> rngdata.AutoFilter
> .Columns("D:D").EntireColumn.Hidden = False
>
> End With
>
> '7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
> proses 6)
>
> Set rnghasil = Sheet2.Range("b4").CurrentRegion
> lrechasil = rnghasil.Rows.Count - 1
>
> With Sheet2
> .Range("b4").CurrentRegion.Offset(lrecdata + 1,
> 1).Resize(lrechasil - lrecdata, 1).ClearContents
>
> '8. sort hasil berdasar kolom No secara menaik
> rnghasil.CurrentRegion.Sort .Range("b4"), xlAscending,
> Header:=xlYes
>
> '9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
> style R1C1 berbunyi : "=R[-1]C & ""(*)"""
> rnghasil.Offset(1, 1).Resize(lrechasil,
> 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C&""(*)"""
>
>
> '10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 :
> "=n(R[-1]C)+1"
> rnghasil.Offset(1).Resize(lrechasil, 1).FormulaR1C1 =
> "=N(R[-1]C)+1"
>
> '11. kalkulasi sheet hasil
> Sheet2.Calculate
>
> '12. copy paste special values area hasil
> rnghasil.CurrentRegion.Copy
> Sheet2.Range("b4").PasteSpecial xlPasteValues
> Application.CutCopyMode = False
>
> End With
> End Sub
>
> Terima kasih sebelumnya, Wassalam
> Sinurat
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 6 September 2012 13:00
> *Judul:* Re: [belajar-excel] Makro Sisip Baris
>
> Bagi yang masih bingung caranya, silakan posting dengan judul thread :
> VBA xx. nama prosesnya
> Contoh :
> bingung cara nomor 5, buat thread baru (posting email baru ke milis)
> dengan subject :
> VBA 05. Autofilter data kolom nominal2
>
> Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu,
> supaya sama dan seragam.
> Harapannya bisa mempermudah proses belajar bersama.
>
> Selamat mencoba dan tetap semangat belajar.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
application.
.range("b4")
Evaluate("=Sum(
application.
Wassalam,
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Boleh ikutan Mr Kid ?
>
> Saya coba alternatif 3, dengan menambahkan kode seperti ini"
> .Range("b4")
> Evaluate("=Sum(
> hasilnya #VALUE! tetapi kalau Evaluate dan () dihilangkan (kembali ke
> alternatif1) maka hasilnya OK (37).
>
> Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 10 September 2012, 8:29
> *Subject:* Re: [belajar-excel] Makro Sisip Baris
>
>
> Sama-sama.
>
> Tentang baris yang berupa hasil jumlah.
> Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai
> berikut :
> "Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel
> hasil di kolom nilai,
> diisi dengan :"
>
> (Bisa pilih satu dari beberapa cara berikut)
> 1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak
> jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut
> (C).
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu
> yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell
> pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris
> tepat 1 baris sebelum baris diletakkannya hasil sum.
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 1A
> 4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 2A
>
> 5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum,
> pada range kolom nilai di record pertamanya yang luasnya diubah menjadi
> (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>
> Kira-kira bunyi kode VBA-nya bagaimana ya...
>
> Wassalam,
> Kid.
>
>
> 2012/9/9 <sin.ur4t@yahoo.
>
> **
>
> Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari
> perlahan.
>
> Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu
> membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
> Powered by Telkomsel BlackBerry®
> ------------
> 2012/9/9 Imam Sinurat <sin.ur4t@yahoo.
>
>
> Yth. Pak Mr Kid dan rekan2
>
> Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti
> step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan
> dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
> Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor
> kebetulan saja hasilnya benar :)
> Juga mohon direvisi sintaxnya yang masih kurang efisien.
>
> Option Explicit
> Public Sub sisipdata(Optional bvalue As Boolean = False)
> Dim rngdata As Range, rnghasil As Range
> Dim lrecdata As Long, lrechasil As Long
>
> '0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke
> menu Insert -> pilih Module)
>
> 'RangeData
> Set rngdata = Sheet1.Range(
>
> 'beri nama range untuk data tanpa header
> rngdata.Offset(
>
> With Sheet2
>
> '1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
> .Range("b4")
>
> '2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
> rngdata.Offset(
> rngdata.Columns.
> .Range("b5")
> Application.
>
> '3. hitung jumlah record + header di hasil dan simpan disebuah variabel
> lrecdata = rngdata.Rows.
>
> End With
>
> '4. hide kolom nominal1 di data
>
> With Sheet1
> .Columns("D:
>
>
> '5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
> rngdata.AutoFilter Field:=4, Criteria1:="
>
> '6. data yang visible (gunakan specialcells visible) di copy dan paste ke
> hasil dengan offset sebanyak variabel jumlah record (proses 3)
>
> rngdata.Offset(
> Sheet2.Range(
>
> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan
> kembali kolom D
> Application.
> rngdata.AutoFilter
> .Columns("D:
>
> End With
>
> '7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
> proses 6)
>
> Set rnghasil = Sheet2.Range(
> lrechasil = rnghasil.Rows.
>
> With Sheet2
> .Range("b4")
> 1).Resize(lrechasil - lrecdata, 1).ClearContents
>
> '8. sort hasil berdasar kolom No secara menaik
> rnghasil.CurrentReg
> Header:=xlYes
>
> '9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
> style R1C1 berbunyi : "=R[-1]C & ""(*)"""
> rnghasil.Offset(
> 1).SpecialCells(
>
>
> '10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 :
> "=n(R[-1]C)+
> rnghasil.Offset(
> "=N(R[-1]C)+
>
> '11. kalkulasi sheet hasil
> Sheet2.Calculate
>
> '12. copy paste special values area hasil
> rnghasil.CurrentReg
> Sheet2.Range(
> Application.
>
> End With
> End Sub
>
> Terima kasih sebelumnya, Wassalam
> Sinurat
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 6 September 2012 13:00
> *Judul:* Re: [belajar-excel] Makro Sisip Baris
>
> Bagi yang masih bingung caranya, silakan posting dengan judul thread :
> VBA xx. nama prosesnya
> Contoh :
> bingung cara nomor 5, buat thread baru (posting email baru ke milis)
> dengan subject :
> VBA 05. Autofilter data kolom nominal2
>
> Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu,
> supaya sama dan seragam.
> Harapannya bisa mempermudah proses belajar bersama.
>
> Selamat mencoba dan tetap semangat belajar.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
Sun Sep 9, 2012 9:11 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Mr. Kid,
Setelah saya coba, hasilnya memang sdh berupa angka, tapiangkanya 1 bukan 37.
Mohon pencerahannya, terima kasih.
Salam,
Hendrik Karnadi
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 10 September 2012, 10:53
Subject: Re: Fw: [belajar-excel] Makro Sisip Baris
Coba :
application.referencestyle=xlr1c1
.range("b4")..Offset(rnghasil.Rows.Count, 2).value= Evaluate("=Sum(R[-1]C:R5C)")
application.referencestyle=xla1
Wassalam,
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>Boleh ikutan Mr Kid ?
>
>
>Saya coba alternatif 3, dengan menambahkan kode seperti ini"
>.Range("b4").Offset(rnghasil.Rows.Count, 2).FormulaR1C1 = Evaluate("=Sum(R[-1]C:R5C)")
>
>hasilnya #VALUE!tetapi kalau Evaluate dan () dihilangkan (kembali ke alternatif1) maka hasilnya OK (37).
>
>
>
>Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>
>
>Terima kasih.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Monday, 10 September 2012, 8:29
>Subject: Re: [belajar-excel] Makro Sisip Baris
>
>
>
>Sama-sama.
>
>Tentang baris yang berupa hasil jumlah.
>Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai berikut :
>"Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel hasil di kolom nilai,
>diisi dengan :"
>
>(Bisa pilih satu dari beberapa cara berikut)
>1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut (C).
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
>2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris tepat 1 baris sebelum baris diletakkannya hasil sum.
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
>3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 1A
>4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 2A
>
>5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum, pada range kolom nilai di record pertamanya yang luasnya diubah menjadi (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>
>Kira-kira bunyi kode VBA-nya bagaimana ya...
>
>Wassalam,
>Kid.
>
>
>
>2012/9/9 <sin.ur4t@yahoo.com >
>
>
>>
>>Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari perlahan.
>>
>>Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
>>Powered by Telkomsel BlackBerry®
>>________________________________
>>
>>2012/9/9 Imam Sinurat <sin.ur4t@yahoo.com >
>>
>>
>>>Yth. Pak Mr Kid dan rekan2
>>>
>>>
>>>Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
>>>Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor kebetulan saja hasilnya benar :)
>>>
>>>Juga mohon direvisi sintaxnya yang masih kurang efisien.
>>>
>>>
>>>Option Explicit
>>>Public Sub sisipdata(Optional bvalue As Boolean = False)
>>>Dim rngdata As Range, rnghasil As Range
>>>Dim lrecdata As Long, lrechasil As Long
>>>
>>>'0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke menu Insert -> pilih Module)
>>>
>>> 'RangeData
>>> Set rngdata =
Sheet1.Range("b3").CurrentRegion
>>>
>>> 'beri nama range untuk data tanpa header
>>> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1).Name = "myData"
>>>
>>>With Sheet2
>>>
>>>'1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
>>> .Range("b4").CurrentRegion.Offset(1).Delete xlShiftUp
>>>
>>>'2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
>>> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1, rngdata.Columns.Count - 1).Copy
>>> .Range("b5").PasteSpecial xlPasteValues
>>> Application.CutCopyMode = False
>>>
>>>'3. hitung jumlah record + header di hasil dan simpan disebuah
variabel
>>> lrecdata = rngdata.Rows.Count - 1
>>>
>>>End With
>>>
>>>'4. hide kolom nominal1 di data
>>>
>>>With Sheet1
>>> .Columns("D:D").EntireColumn.Hidden = True
>>>
>>>
>>>'5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
>>> rngdata.AutoFilter Field:=4, Criteria1:="<>"
>>>
>>>'6. data yang visible (gunakan specialcells visible) di copy dan paste ke hasil dengan offset sebanyak variabel jumlah record (proses 3)
>>> rngdata.Offset(1).Resize(lrecdata).SpecialCells(xlCellTypeVisible).Copy
>>> Sheet2.Range("b4").Offset(lrecdata + 1).PasteSpecial xlPasteValues
>>>
>>> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan kembali kolom D
>>> Application.CutCopyMode = False
>>> rngdata.AutoFilter
>>> .Columns("D:D").EntireColumn.Hidden = False
>>>
>>>End With
>>>
>>>'7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil proses 6)
>>>
>>> Set rnghasil = Sheet2.Range("b4").CurrentRegion
>>> lrechasil = rnghasil.Rows.Count - 1
>>>
>>>With Sheet2
>>> .Range("b4").CurrentRegion.Offset(lrecdata + 1, 1).Resize(lrechasil - lrecdata, 1).ClearContents
>>>
>>>'8. sort hasil berdasar kolom No secara menaik
>>>
rnghasil.CurrentRegion.Sort .Range("b4"), xlAscending, Header:=xlYes
>>>
>>>'9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula style R1C1 berbunyi : "=R[-1]C & ""(*)"""
>>> rnghasil.Offset(1, 1).Resize(lrechasil, 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C&""(*)"""
>>>
>>>
>>>'10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 : "=n(R[-1]C)+1"
>>> rnghasil.Offset(1).Resize(lrechasil, 1).FormulaR1C1 = "=N(R[-1]C)+1"
>>>
>>>'11. kalkulasi sheet hasil
>>> Sheet2.Calculate
>>>
>>>'12. copy paste special values area hasil
>>> rnghasil.CurrentRegion.Copy
>>> Sheet2.Range("b4").PasteSpecial
xlPasteValues
>>> Application.CutCopyMode = False
>>>
>>>End With
>>>End Sub
>>>
>>>
>>>
>>>Terima kasih sebelumnya, Wassalam
>>>Sinurat
>>>
>>>
>>>________________________________
>>> Dari: Kid Mr. <mr.nmkid@gmail.com >
>>>Kepada: belajar-excel@yahoogroups.com
>>>Dikirim: Kamis, 6 September 2012 13:00
>>>Judul: Re: [belajar-excel] Makro Sisip Baris
>>>
>>>
>>>
>>>Bagi yang masih bingung caranya, silakan posting dengan judul thread :
>>>VBA xx. nama prosesnya
>>>Contoh :
>>>bingung cara nomor 5, buat thread baru (posting email baru ke milis) dengan subject :
>>>VBA 05. Autofilter data kolom nominal2
>>>
>>>Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu, supaya sama dan seragam.
>>>Harapannya bisa mempermudah proses belajar bersama.
>>>
>>>Selamat mencoba dan tetap semangat belajar.
>>>
>>>Wassalam,
>>>Kid.
>>>
>>
>
>
>
Setelah saya coba, hasilnya memang sdh berupa angka, tapiangkanya 1 bukan 37.
Mohon pencerahannya, terima kasih.
Salam,
Hendrik Karnadi
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Monday, 10 September 2012, 10:53
Subject: Re: Fw: [belajar-excel] Makro Sisip Baris
Coba :
application.
.range("b4")
application.
Wassalam,
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@
>
>Boleh ikutan Mr Kid ?
>
>
>Saya coba alternatif 3, dengan menambahkan kode seperti ini"
>.Range("b4"
>
>hasilnya #VALUE!
>
>
>
>Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>
>
>Terima kasih.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Monday, 10 September 2012, 8:29
>Subject: Re: [belajar-excel] Makro Sisip Baris
>
>
>
>Sama-sama.
>
>Tentang baris yang berupa hasil jumlah.
>Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai berikut :
>"Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel hasil di kolom nilai,
>diisi dengan :"
>
>(Bisa pilih satu dari beberapa cara berikut)
>1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut (C).
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
>2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris tepat 1 baris sebelum baris diletakkannya hasil sum.
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
>3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 1A
>4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 2A
>
>5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum, pada range kolom nilai di record pertamanya yang luasnya diubah menjadi (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>
>Kira-kira bunyi kode VBA-nya bagaimana ya...
>
>Wassalam,
>Kid.
>
>
>
>2012/9/9 <sin.ur4t@yahoo.
>
>
>>
>>Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari perlahan.
>>
>>Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
>>Powered by Telkomsel BlackBerry®
>>__________
>>
>>2012/9/9 Imam Sinurat <sin.ur4t@yahoo.
>>
>>
>>>Yth. Pak Mr Kid dan rekan2
>>>
>>>
>>>Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
>>>Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor kebetulan saja hasilnya benar :)
>>>
>>>Juga mohon direvisi sintaxnya yang masih kurang efisien.
>>>
>>>
>>>Option Explicit
>>>Public Sub sisipdata(Optional bvalue As Boolean = False)
>>>Dim rngdata As Range, rnghasil As Range
>>>Dim lrecdata As Long, lrechasil As Long
>>>
>>>'0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke menu Insert -> pilih Module)
>>>
>>> 'RangeData
>>> Set rngdata =
Sheet1.Range(
>>>
>>> 'beri nama range untuk data tanpa header
>>> rngdata.Offset(
>>>
>>>With Sheet2
>>>
>>>'1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
>>> .Range("b4")
>>>
>>>'2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
>>> rngdata.Offset(
>>> .Range("b5")
>>> Application.
>>>
>>>'3. hitung jumlah record + header di hasil dan simpan disebuah
variabel
>>> lrecdata = rngdata.Rows.
>>>
>>>End With
>>>
>>>'4. hide kolom nominal1 di data
>>>
>>>With Sheet1
>>> .Columns("D:
>>>
>>>
>>>'5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
>>> rngdata.AutoFilter Field:=4, Criteria1:="
>>>
>>>'6. data yang visible (gunakan specialcells visible) di copy dan paste ke hasil dengan offset sebanyak variabel jumlah record (proses 3)
>>> rngdata.Offset(
>>> Sheet2.Range(
>>>
>>> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan kembali kolom D
>>> Application.
>>> rngdata.AutoFilter
>>> .Columns("D:
>>>
>>>End With
>>>
>>>'7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil proses 6)
>>>
>>> Set rnghasil = Sheet2.Range(
>>> lrechasil = rnghasil.Rows.
>>>
>>>With Sheet2
>>> .Range("b4")
>>>
>>>'8. sort hasil berdasar kolom No secara menaik
>>>
rnghasil.CurrentReg
>>>
>>>'9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula style R1C1 berbunyi : "=R[-1]C & ""(*)"""
>>> rnghasil.Offset(
>>>
>>>
>>>'10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 : "=n(R[-1]C)+
>>> rnghasil.Offset(
>>>
>>>'11. kalkulasi sheet hasil
>>> Sheet2.Calculate
>>>
>>>'12. copy paste special values area hasil
>>> rnghasil.CurrentReg
>>> Sheet2.Range(
xlPasteValues
>>> Application.
>>>
>>>End With
>>>End Sub
>>>
>>>
>>>
>>>Terima kasih sebelumnya, Wassalam
>>>Sinurat
>>>
>>>
>>>_________
>>> Dari: Kid Mr. <mr.nmkid@gmail.
>>>Kepada: belajar-excel@
>>>Dikirim: Kamis, 6 September 2012 13:00
>>>Judul: Re: [belajar-excel] Makro Sisip Baris
>>>
>>>
>>>
>>>Bagi yang masih bingung caranya, silakan posting dengan judul thread :
>>>VBA xx. nama prosesnya
>>>Contoh :
>>>bingung cara nomor 5, buat thread baru (posting email baru ke milis) dengan subject :
>>>VBA 05. Autofilter data kolom nominal2
>>>
>>>Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu, supaya sama dan seragam.
>>>Harapannya bisa mempermudah proses belajar bersama.
>>>
>>>Selamat mencoba dan tetap semangat belajar.
>>>
>>>Wassalam,
>>>Kid.
>>>
>>
>
>
>
Sun Sep 9, 2012 9:37 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
ops
lupa belum di select
application.referencestyle=xlr1c1
.range("b4")..Offset(rnghasil.Rows.Count, 2).select
.range("b4")..Offset(rnghasil.Rows.Count, 2).value=
Evaluate("=Sum(R[-1]C:R5C)")
application.referencestyle=xla1
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Mr. Kid,
>
> Setelah saya coba, hasilnya memang sdh berupa angka, tapi angkanya 1 bukan
> 37.
>
> Mohon pencerahannya, terima kasih.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 10 September 2012, 10:53
> *Subject:* Re: Fw: [belajar-excel] Makro Sisip Baris
>
>
> Coba :
> application.referencestyle=xlr1c1
> .range("b4")..Offset(rnghasil.Rows.Count, 2).value=
> Evaluate("=Sum(R[-1]C:R5C)")
> application.referencestyle=xla1
>
> Wassalam,
> Kid.
>
> 2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
> **
>
> Boleh ikutan Mr Kid ?
>
> Saya coba alternatif 3, dengan menambahkan kode seperti ini"
> .Range("b4").Offset(rnghasil.Rows.Count, 2).FormulaR1C1 =
> Evaluate("=Sum(R[-1]C:R5C)")
> hasilnya #VALUE! tetapi kalau Evaluate dan () dihilangkan (kembali ke
> alternatif1) maka hasilnya OK (37).
>
> Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 10 September 2012, 8:29
> *Subject:* Re: [belajar-excel] Makro Sisip Baris
>
>
> Sama-sama.
>
> Tentang baris yang berupa hasil jumlah.
> Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai
> berikut :
> "Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel
> hasil di kolom nilai,
> diisi dengan :"
>
> (Bisa pilih satu dari beberapa cara berikut)
> 1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak
> jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut
> (C).
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu
> yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell
> pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris
> tepat 1 baris sebelum baris diletakkannya hasil sum.
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 1A
> 4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 2A
>
> 5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum,
> pada range kolom nilai di record pertamanya yang luasnya diubah menjadi
> (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>
> Kira-kira bunyi kode VBA-nya bagaimana ya...
>
> Wassalam,
> Kid.
>
>
> 2012/9/9 <sin.ur4t@yahoo.com >
>
> **
>
> Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari
> perlahan.
>
> Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu
> membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
> Powered by Telkomsel BlackBerry®
> ------------------------------
> 2012/9/9 Imam Sinurat <sin.ur4t@yahoo.com >
>
>
> Yth. Pak Mr Kid dan rekan2
>
> Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti
> step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan
> dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
> Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor
> kebetulan saja hasilnya benar :)
> Juga mohon direvisi sintaxnya yang masih kurang efisien.
>
> Option Explicit
> Public Sub sisipdata(Optional bvalue As Boolean = False)
> Dim rngdata As Range, rnghasil As Range
> Dim lrecdata As Long, lrechasil As Long
>
> '0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke
> menu Insert -> pilih Module)
>
> 'RangeData
> Set rngdata = Sheet1.Range("b3").CurrentRegion
>
> 'beri nama range untuk data tanpa header
> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1).Name = "myData"
>
> With Sheet2
>
> '1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
> .Range("b4").CurrentRegion.Offset(1).Delete xlShiftUp
>
> '2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1,
> rngdata.Columns.Count - 1).Copy
> .Range("b5").PasteSpecial xlPasteValues
> Application.CutCopyMode = False
>
> '3. hitung jumlah record + header di hasil dan simpan disebuah variabel
> lrecdata = rngdata.Rows.Count - 1
>
> End With
>
> '4. hide kolom nominal1 di data
>
> With Sheet1
> .Columns("D:D").EntireColumn.Hidden = True
>
>
> '5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
> rngdata.AutoFilter Field:=4, Criteria1:="<>"
>
> '6. data yang visible (gunakan specialcells visible) di copy dan paste ke
> hasil dengan offset sebanyak variabel jumlah record (proses 3)
>
> rngdata.Offset(1).Resize(lrecdata).SpecialCells(xlCellTypeVisible).Copy
> Sheet2.Range("b4").Offset(lrecdata + 1).PasteSpecial xlPasteValues
>
> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan
> kembali kolom D
> Application.CutCopyMode = False
> rngdata.AutoFilter
> .Columns("D:D").EntireColumn.Hidden = False
>
> End With
>
> '7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
> proses 6)
>
> Set rnghasil = Sheet2.Range("b4").CurrentRegion
> lrechasil = rnghasil.Rows.Count - 1
>
> With Sheet2
> .Range("b4").CurrentRegion.Offset(lrecdata + 1,
> 1).Resize(lrechasil - lrecdata, 1).ClearContents
>
> '8. sort hasil berdasar kolom No secara menaik
> rnghasil.CurrentRegion.Sort .Range("b4"), xlAscending,
> Header:=xlYes
>
> '9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
> style R1C1 berbunyi : "=R[-1]C & ""(*)"""
> rnghasil.Offset(1, 1).Resize(lrechasil,
> 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C&""(*)"""
>
>
> '10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 :
> "=n(R[-1]C)+1"
> rnghasil.Offset(1).Resize(lrechasil, 1).FormulaR1C1 =
> "=N(R[-1]C)+1"
>
> '11. kalkulasi sheet hasil
> Sheet2.Calculate
>
> '12. copy paste special values area hasil
> rnghasil.CurrentRegion.Copy
> Sheet2.Range("b4").PasteSpecial xlPasteValues
> Application.CutCopyMode = False
>
> End With
> End Sub
>
> Terima kasih sebelumnya, Wassalam
> Sinurat
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 6 September 2012 13:00
> *Judul:* Re: [belajar-excel] Makro Sisip Baris
>
> Bagi yang masih bingung caranya, silakan posting dengan judul thread :
> VBA xx. nama prosesnya
> Contoh :
> bingung cara nomor 5, buat thread baru (posting email baru ke milis)
> dengan subject :
> VBA 05. Autofilter data kolom nominal2
>
> Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu,
> supaya sama dan seragam.
> Harapannya bisa mempermudah proses belajar bersama.
>
> Selamat mencoba dan tetap semangat belajar.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
lupa belum di select
application.
.range("b4")
.range("b4")
Evaluate("=Sum(
application.
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Mr. Kid,
>
> Setelah saya coba, hasilnya memang sdh berupa angka, tapi angkanya 1 bukan
> 37.
>
> Mohon pencerahannya, terima kasih.
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 10 September 2012, 10:53
> *Subject:* Re: Fw: [belajar-excel] Makro Sisip Baris
>
>
> Coba :
> application.
> .range("b4")
> Evaluate("=Sum(
> application.
>
> Wassalam,
> Kid.
>
> 2012/9/10 hendrik karnadi <hendrikkarnadi@
>
> **
>
> Boleh ikutan Mr Kid ?
>
> Saya coba alternatif 3, dengan menambahkan kode seperti ini"
> .Range("b4")
> Evaluate("=Sum(
> hasilnya #VALUE! tetapi kalau Evaluate dan () dihilangkan (kembali ke
> alternatif1) maka hasilnya OK (37).
>
> Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 10 September 2012, 8:29
> *Subject:* Re: [belajar-excel] Makro Sisip Baris
>
>
> Sama-sama.
>
> Tentang baris yang berupa hasil jumlah.
> Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai
> berikut :
> "Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel
> hasil di kolom nilai,
> diisi dengan :"
>
> (Bisa pilih satu dari beberapa cara berikut)
> 1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak
> jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut
> (C).
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu
> yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell
> pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris
> tepat 1 baris sebelum baris diletakkannya hasil sum.
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 1A
> 4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 2A
>
> 5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum,
> pada range kolom nilai di record pertamanya yang luasnya diubah menjadi
> (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>
> Kira-kira bunyi kode VBA-nya bagaimana ya...
>
> Wassalam,
> Kid.
>
>
> 2012/9/9 <sin.ur4t@yahoo.
>
> **
>
> Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari
> perlahan.
>
> Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu
> membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
> Powered by Telkomsel BlackBerry®
> ------------
> 2012/9/9 Imam Sinurat <sin.ur4t@yahoo.
>
>
> Yth. Pak Mr Kid dan rekan2
>
> Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti
> step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan
> dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
> Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor
> kebetulan saja hasilnya benar :)
> Juga mohon direvisi sintaxnya yang masih kurang efisien.
>
> Option Explicit
> Public Sub sisipdata(Optional bvalue As Boolean = False)
> Dim rngdata As Range, rnghasil As Range
> Dim lrecdata As Long, lrechasil As Long
>
> '0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke
> menu Insert -> pilih Module)
>
> 'RangeData
> Set rngdata = Sheet1.Range(
>
> 'beri nama range untuk data tanpa header
> rngdata.Offset(
>
> With Sheet2
>
> '1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
> .Range("b4")
>
> '2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
> rngdata.Offset(
> rngdata.Columns.
> .Range("b5")
> Application.
>
> '3. hitung jumlah record + header di hasil dan simpan disebuah variabel
> lrecdata = rngdata.Rows.
>
> End With
>
> '4. hide kolom nominal1 di data
>
> With Sheet1
> .Columns("D:
>
>
> '5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
> rngdata.AutoFilter Field:=4, Criteria1:="
>
> '6. data yang visible (gunakan specialcells visible) di copy dan paste ke
> hasil dengan offset sebanyak variabel jumlah record (proses 3)
>
> rngdata.Offset(
> Sheet2.Range(
>
> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan
> kembali kolom D
> Application.
> rngdata.AutoFilter
> .Columns("D:
>
> End With
>
> '7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
> proses 6)
>
> Set rnghasil = Sheet2.Range(
> lrechasil = rnghasil.Rows.
>
> With Sheet2
> .Range("b4")
> 1).Resize(lrechasil - lrecdata, 1).ClearContents
>
> '8. sort hasil berdasar kolom No secara menaik
> rnghasil.CurrentReg
> Header:=xlYes
>
> '9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
> style R1C1 berbunyi : "=R[-1]C & ""(*)"""
> rnghasil.Offset(
> 1).SpecialCells(
>
>
> '10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 :
> "=n(R[-1]C)+
> rnghasil.Offset(
> "=N(R[-1]C)+
>
> '11. kalkulasi sheet hasil
> Sheet2.Calculate
>
> '12. copy paste special values area hasil
> rnghasil.CurrentReg
> Sheet2.Range(
> Application.
>
> End With
> End Sub
>
> Terima kasih sebelumnya, Wassalam
> Sinurat
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 6 September 2012 13:00
> *Judul:* Re: [belajar-excel] Makro Sisip Baris
>
> Bagi yang masih bingung caranya, silakan posting dengan judul thread :
> VBA xx. nama prosesnya
> Contoh :
> bingung cara nomor 5, buat thread baru (posting email baru ke milis)
> dengan subject :
> VBA 05. Autofilter data kolom nominal2
>
> Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu,
> supaya sama dan seragam.
> Harapannya bisa mempermudah proses belajar bersama.
>
> Selamat mencoba dan tetap semangat belajar.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
Sun Sep 9, 2012 10:21 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Mr Kid.
Oh, jadi untuk melakukan fungsi "Evaluate" sel nya harus diselect dulu sedangkan formula bisa langsung..
Salam,
Hendrik Karnadi
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 10 September 2012, 11:36
Subject: Re: Fw: [belajar-excel] Makro Sisip Baris
ops
lupa belum di select
application.referencestyle=xlr1c1
.range("b4")..Offset(rnghasil.Rows.Count, 2).select
.range("b4")..Offset(rnghasil.Rows.Count, 2).value= Evaluate("=Sum(R[-1]C:R5C)")
application.referencestyle=xla1
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>Mr. Kid,
>
>
>Setelah saya coba, hasilnya memang sdh berupa angka, tapiangkanya 1 bukan 37.
>
>
>Mohon pencerahannya, terima kasih.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>________________________________
>
>From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Monday, 10 September 2012, 10:53
>Subject: Re: Fw: [belajar-excel] Makro Sisip Baris
>
>
>
>
>Coba :
>application.referencestyle=xlr1c1
>.range("b4")..Offset(rnghasil.Rows.Count, 2).value= Evaluate("=Sum(R[-1]C:R5C)")
>application.referencestyle=xla1
>
>Wassalam,
>Kid.
>
>
>2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>
>>
>>Boleh ikutan Mr Kid ?
>>
>>
>>Saya coba alternatif 3, dengan menambahkan kode seperti ini"
>>.Range("b4").Offset(rnghasil.Rows.Count, 2).FormulaR1C1 = Evaluate("=Sum(R[-1]C:R5C)")
>>
>>hasilnya #VALUE!tetapi kalau Evaluate dan () dihilangkan (kembali ke alternatif1) maka hasilnya OK (37).
>>
>>
>>
>>Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>>
>>
>>Terima kasih.
>>
>>
>>Salam,
>>Hendrik Karnadi
>>
>>
>>
>>
>>----- Forwarded Message -----
>>From: Kid Mr. <mr.nmkid@gmail.com >
>>To: belajar-excel@yahoogroups.com
>>Sent: Monday, 10 September 2012, 8:29
>>Subject: Re: [belajar-excel] Makro Sisip Baris
>>
>>
>>
>>Sama-sama.
>>
>>Tentang baris yang berupa hasil jumlah.
>>Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai berikut :
>>"Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel hasil di kolom nilai,
>>diisi dengan :"
>>
>>(Bisa pilih satu dari beberapa cara berikut)
>>1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut (C).
>> B. Kemudian lakukan kalkulasi dan di-values-kan.
>>
>>2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris tepat 1 baris sebelum baris diletakkannya hasil sum.
>> B. Kemudian lakukan kalkulasi dan di-values-kan.
>>
>>3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 1A
>>4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 2A
>>
>>5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum, pada range kolom nilai di record pertamanya yang luasnya diubah menjadi (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>>
>>Kira-kira bunyi kode VBA-nya bagaimana ya...
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>2012/9/9 <sin.ur4t@yahoo.com >
>>
>>
>>>
>>>Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari perlahan.
>>>
>>>Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
>>>Powered by Telkomsel BlackBerry®
>>>________________________________
>>>
>>>2012/9/9 Imam Sinurat <sin.ur4t@yahoo.com >
>>>
>>>
>>>>Yth. Pak Mr Kid dan rekan2
>>>>
>>>>
>>>>Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
>>>>Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor kebetulan saja hasilnya benar :)
>>>>
>>>>Juga mohon direvisi sintaxnya yang masih kurang efisien.
>>>>
>>>>
>>>>Option Explicit
>>>>Public Sub sisipdata(Optional bvalue As Boolean = False)
>>>>Dim rngdata As Range, rnghasil As Range
>>>>Dim lrecdata As Long, lrechasil As Long
>>>>
>>>>'0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke menu Insert -> pilih Module)
>>>>
>>>> 'RangeData
>>>> Set rngdata =
Sheet1.Range("b3").CurrentRegion
>>>>
>>>> 'beri nama range untuk data tanpa header
>>>> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1).Name = "myData"
>>>>
>>>>With Sheet2
>>>>
>>>>'1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
>>>> .Range("b4").CurrentRegion.Offset(1).Delete xlShiftUp
>>>>
>>>>'2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
>>>> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1, rngdata.Columns.Count - 1).Copy
>>>> .Range("b5").PasteSpecial xlPasteValues
>>>> Application.CutCopyMode = False
>>>>
>>>>'3. hitung jumlah record + header di hasil dan simpan disebuah
variabel
>>>> lrecdata = rngdata.Rows.Count - 1
>>>>
>>>>End With
>>>>
>>>>'4. hide kolom nominal1 di data
>>>>
>>>>With Sheet1
>>>> .Columns("D:D").EntireColumn.Hidden = True
>>>>
>>>>
>>>>'5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
>>>> rngdata.AutoFilter Field:=4, Criteria1:="<>"
>>>>
>>>>'6. data yang visible (gunakan specialcells visible) di copy dan paste ke hasil dengan offset sebanyak variabel jumlah record (proses 3)
>>>> rngdata.Offset(1).Resize(lrecdata).SpecialCells(xlCellTypeVisible).Copy
>>>> Sheet2.Range("b4").Offset(lrecdata + 1).PasteSpecial xlPasteValues
>>>>
>>>> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan kembali kolom D
>>>> Application.CutCopyMode = False
>>>> rngdata.AutoFilter
>>>> .Columns("D:D").EntireColumn.Hidden = False
>>>>
>>>>End With
>>>>
>>>>'7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil proses 6)
>>>>
>>>> Set rnghasil = Sheet2.Range("b4").CurrentRegion
>>>> lrechasil = rnghasil.Rows.Count - 1
>>>>
>>>>With Sheet2
>>>> .Range("b4").CurrentRegion.Offset(lrecdata + 1, 1).Resize(lrechasil - lrecdata, 1).ClearContents
>>>>
>>>>'8. sort hasil berdasar kolom No secara menaik
>>>>
rnghasil.CurrentRegion.Sort .Range("b4"), xlAscending, Header:=xlYes
>>>>
>>>>'9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula style R1C1 berbunyi : "=R[-1]C & ""(*)"""
>>>> rnghasil.Offset(1, 1).Resize(lrechasil, 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C&""(*)"""
>>>>
>>>>
>>>>'10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 : "=n(R[-1]C)+1"
>>>> rnghasil.Offset(1).Resize(lrechasil, 1).FormulaR1C1 = "=N(R[-1]C)+1"
>>>>
>>>>'11. kalkulasi sheet hasil
>>>> Sheet2.Calculate
>>>>
>>>>'12. copy paste special values area hasil
>>>> rnghasil.CurrentRegion.Copy
>>>> Sheet2.Range("b4").PasteSpecial
xlPasteValues
>>>> Application.CutCopyMode = False
>>>>
>>>>End With
>>>>End Sub
>>>>
>>>>
>>>>
>>>>Terima kasih sebelumnya, Wassalam
>>>>Sinurat
>>>>
>>>>
>>>>________________________________
>>>> Dari: Kid Mr. <mr.nmkid@gmail.com >
>>>>Kepada: belajar-excel@yahoogroups.com
>>>>Dikirim: Kamis, 6 September 2012 13:00
>>>>Judul: Re: [belajar-excel] Makro Sisip Baris
>>>>
>>>>
>>>>
>>>>Bagi yang masih bingung caranya, silakan posting dengan judul thread :
>>>>VBA xx. nama prosesnya
>>>>Contoh :
>>>>bingung cara nomor 5, buat thread baru (posting email baru ke milis) dengan subject :
>>>>VBA 05. Autofilter data kolom nominal2
>>>>
>>>>Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu, supaya sama dan seragam.
>>>>Harapannya bisa mempermudah proses belajar bersama.
>>>>
>>>>Selamat mencoba dan tetap semangat belajar.
>>>>
>>>>Wassalam,
>>>>Kid.
>>>>
>>>
>>
>>
>>
>
>
>
Oh, jadi untuk melakukan fungsi "Evaluate" sel nya harus diselect dulu sedangkan formula bisa langsung..
Salam,
Hendrik Karnadi
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Monday, 10 September 2012, 11:36
Subject: Re: Fw: [belajar-excel] Makro Sisip Baris
ops
lupa belum di select
application.
.range("b4")
.range("b4")
application.
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@
>
>Mr. Kid,
>
>
>Setelah saya coba, hasilnya memang sdh berupa angka, tapiangkanya 1 bukan 37.
>
>
>Mohon pencerahannya, terima kasih.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>___________
>
>From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Monday, 10 September 2012, 10:53
>Subject: Re: Fw: [belajar-excel] Makro Sisip Baris
>
>
>
>
>Coba :
>application.
>.range("b4"
>application.
>
>Wassalam,
>Kid.
>
>
>2012/9/10 hendrik karnadi <hendrikkarnadi@
>
>
>>
>>Boleh ikutan Mr Kid ?
>>
>>
>>Saya coba alternatif 3, dengan menambahkan kode seperti ini"
>>.Range("b4"
>>
>>hasilnya #VALUE!
>>
>>
>>
>>Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>>
>>
>>Terima kasih.
>>
>>
>>Salam,
>>Hendrik Karnadi
>>
>>
>>
>>
>>----- Forwarded Message -----
>>From: Kid Mr. <mr.nmkid@gmail.
>>To: belajar-excel@
>>Sent: Monday, 10 September 2012, 8:29
>>Subject: Re: [belajar-excel] Makro Sisip Baris
>>
>>
>>
>>Sama-sama.
>>
>>Tentang baris yang berupa hasil jumlah.
>>Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai berikut :
>>"Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel hasil di kolom nilai,
>>diisi dengan :"
>>
>>(Bisa pilih satu dari beberapa cara berikut)
>>1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut (C).
>> B. Kemudian lakukan kalkulasi dan di-values-kan.
>>
>>2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris tepat 1 baris sebelum baris diletakkannya hasil sum.
>> B. Kemudian lakukan kalkulasi dan di-values-kan.
>>
>>3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 1A
>>4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang dijelaskan di nomor 2A
>>
>>5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum, pada range kolom nilai di record pertamanya yang luasnya diubah menjadi (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>>
>>Kira-kira bunyi kode VBA-nya bagaimana ya...
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>2012/9/9 <sin.ur4t@yahoo.
>>
>>
>>>
>>>Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari perlahan.
>>>
>>>Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
>>>Powered by Telkomsel BlackBerry®
>>>_________
>>>
>>>2012/9/9 Imam Sinurat <sin.ur4t@yahoo.
>>>
>>>
>>>>Yth. Pak Mr Kid dan rekan2
>>>>
>>>>
>>>>Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
>>>>Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor kebetulan saja hasilnya benar :)
>>>>
>>>>Juga mohon direvisi sintaxnya yang masih kurang efisien.
>>>>
>>>>
>>>>Option Explicit
>>>>Public Sub sisipdata(Optional bvalue As Boolean = False)
>>>>Dim rngdata As Range, rnghasil As Range
>>>>Dim lrecdata As Long, lrechasil As Long
>>>>
>>>>'0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke menu Insert -> pilih Module)
>>>>
>>>> 'RangeData
>>>> Set rngdata =
Sheet1.Range(
>>>>
>>>> 'beri nama range untuk data tanpa header
>>>> rngdata.Offset(
>>>>
>>>>With Sheet2
>>>>
>>>>'1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
>>>> .Range("b4")
>>>>
>>>>'2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
>>>> rngdata.Offset(
>>>> .Range("b5")
>>>> Application.
>>>>
>>>>'3. hitung jumlah record + header di hasil dan simpan disebuah
variabel
>>>> lrecdata = rngdata.Rows.
>>>>
>>>>End With
>>>>
>>>>'4. hide kolom nominal1 di data
>>>>
>>>>With Sheet1
>>>> .Columns("D:
>>>>
>>>>
>>>>'5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
>>>> rngdata.AutoFilter Field:=4, Criteria1:="
>>>>
>>>>'6. data yang visible (gunakan specialcells visible) di copy dan paste ke hasil dengan offset sebanyak variabel jumlah record (proses 3)
>>>> rngdata.Offset(
>>>> Sheet2.Range(
>>>>
>>>> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan kembali kolom D
>>>> Application.
>>>> rngdata.AutoFilter
>>>> .Columns("D:
>>>>
>>>>End With
>>>>
>>>>'7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil proses 6)
>>>>
>>>> Set rnghasil = Sheet2.Range(
>>>> lrechasil = rnghasil.Rows.
>>>>
>>>>With Sheet2
>>>> .Range("b4")
>>>>
>>>>'8. sort hasil berdasar kolom No secara menaik
>>>>
rnghasil.CurrentReg
>>>>
>>>>'9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula style R1C1 berbunyi : "=R[-1]C & ""(*)"""
>>>> rnghasil.Offset(
>>>>
>>>>
>>>>'10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 : "=n(R[-1]C)+
>>>> rnghasil.Offset(
>>>>
>>>>'11. kalkulasi sheet hasil
>>>> Sheet2.Calculate
>>>>
>>>>'12. copy paste special values area hasil
>>>> rnghasil.CurrentReg
>>>> Sheet2.Range(
xlPasteValues
>>>> Application.
>>>>
>>>>End With
>>>>End Sub
>>>>
>>>>
>>>>
>>>>Terima kasih sebelumnya, Wassalam
>>>>Sinurat
>>>>
>>>>
>>>>________
>>>> Dari: Kid Mr. <mr.nmkid@gmail.
>>>>Kepada: belajar-excel@
>>>>Dikirim: Kamis, 6 September 2012 13:00
>>>>Judul: Re: [belajar-excel] Makro Sisip Baris
>>>>
>>>>
>>>>
>>>>Bagi yang masih bingung caranya, silakan posting dengan judul thread :
>>>>VBA xx. nama prosesnya
>>>>Contoh :
>>>>bingung cara nomor 5, buat thread baru (posting email baru ke milis) dengan subject :
>>>>VBA 05. Autofilter data kolom nominal2
>>>>
>>>>Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu, supaya sama dan seragam.
>>>>Harapannya bisa mempermudah proses belajar bersama.
>>>>
>>>>Selamat mencoba dan tetap semangat belajar.
>>>>
>>>>Wassalam,
>>>>Kid.
>>>>
>>>
>>
>>
>>
>
>
>
Sun Sep 9, 2012 10:23 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Jika formula, maka yang digunakan adalah rujukannya.
Jika evaluate, yang digunakan adalah ekspresi pada cell yang dievaluate.
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Terima kasih Mr Kid.
> Oh, jadi untuk melakukan fungsi "Evaluate" sel nya harus diselect dulu
> sedangkan formula bisa langsung..
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 10 September 2012, 11:36
>
> *Subject:* Re: Fw: [belajar-excel] Makro Sisip Baris
>
>
> ops
> lupa belum di select
> application.referencestyle=xlr1c1
> .range("b4")..Offset(rnghasil.Rows.Count, 2).select
> .range("b4")..Offset(rnghasil.Rows.Count, 2).value=
> Evaluate("=Sum(R[-1]C:R5C)")
> application.referencestyle=xla1
>
> Kid.
>
> 2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
> **
>
> Mr. Kid,
>
> Setelah saya coba, hasilnya memang sdh berupa angka, tapi angkanya 1 bukan
> 37.
>
> Mohon pencerahannya, terima kasih.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 10 September 2012, 10:53
> *Subject:* Re: Fw: [belajar-excel] Makro Sisip Baris
>
>
> Coba :
> application.referencestyle=xlr1c1
> .range("b4")..Offset(rnghasil.Rows.Count, 2).value=
> Evaluate("=Sum(R[-1]C:R5C)")
> application.referencestyle=xla1
>
> Wassalam,
> Kid.
>
> 2012/9/10 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
> **
>
> Boleh ikutan Mr Kid ?
>
> Saya coba alternatif 3, dengan menambahkan kode seperti ini"
> .Range("b4").Offset(rnghasil.Rows.Count, 2).FormulaR1C1 =
> Evaluate("=Sum(R[-1]C:R5C)")
> hasilnya #VALUE! tetapi kalau Evaluate dan () dihilangkan (kembali ke
> alternatif1) maka hasilnya OK (37).
>
> Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 10 September 2012, 8:29
> *Subject:* Re: [belajar-excel] Makro Sisip Baris
>
>
> Sama-sama.
>
> Tentang baris yang berupa hasil jumlah.
> Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai
> berikut :
> "Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel
> hasil di kolom nilai,
> diisi dengan :"
>
> (Bisa pilih satu dari beberapa cara berikut)
> 1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak
> jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut
> (C).
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu
> yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell
> pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris
> tepat 1 baris sebelum baris diletakkannya hasil sum.
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 1A
> 4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 2A
>
> 5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum,
> pada range kolom nilai di record pertamanya yang luasnya diubah menjadi
> (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>
> Kira-kira bunyi kode VBA-nya bagaimana ya...
>
> Wassalam,
> Kid.
>
>
> 2012/9/9 <sin.ur4t@yahoo.com >
>
> **
>
> Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari
> perlahan.
>
> Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu
> membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
> Powered by Telkomsel BlackBerry®
> ------------------------------
> 2012/9/9 Imam Sinurat <sin.ur4t@yahoo.com >
>
>
> Yth. Pak Mr Kid dan rekan2
>
> Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti
> step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan
> dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
> Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor
> kebetulan saja hasilnya benar :)
> Juga mohon direvisi sintaxnya yang masih kurang efisien.
>
> Option Explicit
> Public Sub sisipdata(Optional bvalue As Boolean = False)
> Dim rngdata As Range, rnghasil As Range
> Dim lrecdata As Long, lrechasil As Long
>
> '0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke
> menu Insert -> pilih Module)
>
> 'RangeData
> Set rngdata = Sheet1.Range("b3").CurrentRegion
>
> 'beri nama range untuk data tanpa header
> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1).Name = "myData"
>
> With Sheet2
>
> '1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
> .Range("b4").CurrentRegion.Offset(1).Delete xlShiftUp
>
> '2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
> rngdata.Offset(1).Resize(rngdata.Rows.Count - 1,
> rngdata.Columns.Count - 1).Copy
> .Range("b5").PasteSpecial xlPasteValues
> Application.CutCopyMode = False
>
> '3. hitung jumlah record + header di hasil dan simpan disebuah variabel
> lrecdata = rngdata.Rows.Count - 1
>
> End With
>
> '4. hide kolom nominal1 di data
>
> With Sheet1
> .Columns("D:D").EntireColumn.Hidden = True
>
>
> '5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
> rngdata.AutoFilter Field:=4, Criteria1:="<>"
>
> '6. data yang visible (gunakan specialcells visible) di copy dan paste ke
> hasil dengan offset sebanyak variabel jumlah record (proses 3)
>
> rngdata.Offset(1).Resize(lrecdata).SpecialCells(xlCellTypeVisible).Copy
> Sheet2.Range("b4").Offset(lrecdata + 1).PasteSpecial xlPasteValues
>
> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan
> kembali kolom D
> Application.CutCopyMode = False
> rngdata.AutoFilter
> .Columns("D:D").EntireColumn.Hidden = False
>
> End With
>
> '7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
> proses 6)
>
> Set rnghasil = Sheet2.Range("b4").CurrentRegion
> lrechasil = rnghasil.Rows.Count - 1
>
> With Sheet2
> .Range("b4").CurrentRegion.Offset(lrecdata + 1,
> 1).Resize(lrechasil - lrecdata, 1).ClearContents
>
> '8. sort hasil berdasar kolom No secara menaik
> rnghasil.CurrentRegion.Sort .Range("b4"), xlAscending,
> Header:=xlYes
>
> '9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
> style R1C1 berbunyi : "=R[-1]C & ""(*)"""
> rnghasil.Offset(1, 1).Resize(lrechasil,
> 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C&""(*)"""
>
>
> '10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 :
> "=n(R[-1]C)+1"
> rnghasil.Offset(1).Resize(lrechasil, 1).FormulaR1C1 =
> "=N(R[-1]C)+1"
>
> '11. kalkulasi sheet hasil
> Sheet2.Calculate
>
> '12. copy paste special values area hasil
> rnghasil.CurrentRegion.Copy
> Sheet2.Range("b4").PasteSpecial xlPasteValues
> Application.CutCopyMode = False
>
> End With
> End Sub
>
> Terima kasih sebelumnya, Wassalam
> Sinurat
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 6 September 2012 13:00
> *Judul:* Re: [belajar-excel] Makro Sisip Baris
>
> Bagi yang masih bingung caranya, silakan posting dengan judul thread :
> VBA xx. nama prosesnya
> Contoh :
> bingung cara nomor 5, buat thread baru (posting email baru ke milis)
> dengan subject :
> VBA 05. Autofilter data kolom nominal2
>
> Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu,
> supaya sama dan seragam.
> Harapannya bisa mempermudah proses belajar bersama.
>
> Selamat mencoba dan tetap semangat belajar.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
>
>
>
Jika evaluate, yang digunakan adalah ekspresi pada cell yang dievaluate.
Kid.
2012/9/10 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Terima kasih Mr Kid.
> Oh, jadi untuk melakukan fungsi "Evaluate" sel nya harus diselect dulu
> sedangkan formula bisa langsung..
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 10 September 2012, 11:36
>
> *Subject:* Re: Fw: [belajar-excel] Makro Sisip Baris
>
>
> ops
> lupa belum di select
> application.
> .range("b4")
> .range("b4")
> Evaluate("=Sum(
> application.
>
> Kid.
>
> 2012/9/10 hendrik karnadi <hendrikkarnadi@
>
> **
>
> Mr. Kid,
>
> Setelah saya coba, hasilnya memang sdh berupa angka, tapi angkanya 1 bukan
> 37.
>
> Mohon pencerahannya, terima kasih.
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 10 September 2012, 10:53
> *Subject:* Re: Fw: [belajar-excel] Makro Sisip Baris
>
>
> Coba :
> application.
> .range("b4")
> Evaluate("=Sum(
> application.
>
> Wassalam,
> Kid.
>
> 2012/9/10 hendrik karnadi <hendrikkarnadi@
>
> **
>
> Boleh ikutan Mr Kid ?
>
> Saya coba alternatif 3, dengan menambahkan kode seperti ini"
> .Range("b4")
> Evaluate("=Sum(
> hasilnya #VALUE! tetapi kalau Evaluate dan () dihilangkan (kembali ke
> alternatif1) maka hasilnya OK (37).
>
> Yang ingin saya tanyakan bagaimana penulisan Evaluate yang benar.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Monday, 10 September 2012, 8:29
> *Subject:* Re: [belajar-excel] Makro Sisip Baris
>
>
> Sama-sama.
>
> Tentang baris yang berupa hasil jumlah.
> Bukankah kira-kira bunyi bahasa manusianya secara eksplisit sebagai
> berikut :
> "Pada sebuah cell pada sebuah baris baru dibawah record terakhir tabel
> hasil di kolom nilai,
> diisi dengan :"
>
> (Bisa pilih satu dari beberapa cara berikut)
> 1. A. formula dengan style R1C1 yang berbunyi Sum dari row (R) sebanyak
> jumlah record hasil di atasnya [- jumlah record hasil] pada column tersebut
> (C).
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 2. A. formula dengan style A1 yang berbunyi Sum dari cell kolom tertentu
> yang pasti mulai baris pertama hasil yang juga sudah pasti (alamat cell
> pertama) sampai dengan (:) cell pada kolom tertentu yang sama pada baris
> tepat 1 baris sebelum baris diletakkannya hasil sum.
> B. Kemudian lakukan kalkulasi dan di-values-kan.
>
> 3. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 1A
> 4. nilai hasil evaluasi (Evaluate) ekspresi kalimat formula yang
> dijelaskan di nomor 2A
>
> 5. hasil kalkulasi fungsi woorksheet (WorksheetFunction) yang bernama Sum,
> pada range kolom nilai di record pertamanya yang luasnya diubah menjadi
> (Resize) setinggi jumlah record hasil dan selebar 1 kolom saja.
>
> Kira-kira bunyi kode VBA-nya bagaimana ya...
>
> Wassalam,
> Kid.
>
>
> 2012/9/9 <sin.ur4t@yahoo.
>
> **
>
> Terima kasih pak mrkid oleh2 pivottable-nya, akan saya pelajari
> perlahan.
>
> Btw ttg syntax 12 step tadi, msh ada yg blm bisa saya lengkapi, yaitu
> membuat jumlah di bawah baris terakhir. Mohon dibantu trm ksh..
> Powered by Telkomsel BlackBerry®
> ------------
> 2012/9/9 Imam Sinurat <sin.ur4t@yahoo.
>
>
> Yth. Pak Mr Kid dan rekan2
>
> Krn masih awam sekali, hampir 15 jam saya kerjakan ini, mengikuti
> step-step (istilah kerennya 'algoritma manual' bukan?) yg pak MrKid ajarkan
> dan melihat contoh makro pada thread 'Makro Filter Sort Data Tak Unik'.
> Mohon bpk evaluasi apakah mmg caranya sudah benar atau cuma faktor
> kebetulan saja hasilnya benar :)
> Juga mohon direvisi sintaxnya yang masih kurang efisien.
>
> Option Explicit
> Public Sub sisipdata(Optional bvalue As Boolean = False)
> Dim rngdata As Range, rnghasil As Range
> Dim lrecdata As Long, lrechasil As Long
>
> '0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke
> menu Insert -> pilih Module)
>
> 'RangeData
> Set rngdata = Sheet1.Range(
>
> 'beri nama range untuk data tanpa header
> rngdata.Offset(
>
> With Sheet2
>
> '1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
> .Range("b4")
>
> '2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama
> rngdata.Offset(
> rngdata.Columns.
> .Range("b5")
> Application.
>
> '3. hitung jumlah record + header di hasil dan simpan disebuah variabel
> lrecdata = rngdata.Rows.
>
> End With
>
> '4. hide kolom nominal1 di data
>
> With Sheet1
> .Columns("D:
>
>
> '5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
> rngdata.AutoFilter Field:=4, Criteria1:="
>
> '6. data yang visible (gunakan specialcells visible) di copy dan paste ke
> hasil dengan offset sebanyak variabel jumlah record (proses 3)
>
> rngdata.Offset(
> Sheet2.Range(
>
> 'hilangkan garis2 copiedrange dan autofilter serta tampilkan
> kembali kolom D
> Application.
> rngdata.AutoFilter
> .Columns("D:
>
> End With
>
> '7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
> proses 6)
>
> Set rnghasil = Sheet2.Range(
> lrechasil = rnghasil.Rows.
>
> With Sheet2
> .Range("b4")
> 1).Resize(lrechasil - lrecdata, 1).ClearContents
>
> '8. sort hasil berdasar kolom No secara menaik
> rnghasil.CurrentReg
> Header:=xlYes
>
> '9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
> style R1C1 berbunyi : "=R[-1]C & ""(*)"""
> rnghasil.Offset(
> 1).SpecialCells(
>
>
> '10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 :
> "=n(R[-1]C)+
> rnghasil.Offset(
> "=N(R[-1]C)+
>
> '11. kalkulasi sheet hasil
> Sheet2.Calculate
>
> '12. copy paste special values area hasil
> rnghasil.CurrentReg
> Sheet2.Range(
> Application.
>
> End With
> End Sub
>
> Terima kasih sebelumnya, Wassalam
> Sinurat
> ------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 6 September 2012 13:00
> *Judul:* Re: [belajar-excel] Makro Sisip Baris
>
> Bagi yang masih bingung caranya, silakan posting dengan judul thread :
> VBA xx. nama prosesnya
> Contoh :
> bingung cara nomor 5, buat thread baru (posting email baru ke milis)
> dengan subject :
> VBA 05. Autofilter data kolom nominal2
>
> Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu,
> supaya sama dan seragam.
> Harapannya bisa mempermudah proses belajar bersama.
>
> Selamat mencoba dan tetap semangat belajar.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
>
>
>
Sun Sep 9, 2012 9:23 pm (PDT) . Posted by:
"dimas ricky"
Dear all, Terima kasih bnyak untuk bantuannya, maaf baru bisa kasih inpo,
soalnya posisi lagi di hutan...
2012/9/8 M.Ade Alfarid <QA@kkmi.co.id>
> **
>
>
> Dear Dimas,
> mudah2an sesuai dengan harapan
>
> --
> Regards,
>
> M.ADE ALFARID
> KMI
>
> On Fri, 07 Sep 2012 10:13:37 +0700, dimas ricky <dimasr1985@gmail.com >
> wrote:
>
>
> > Dear all, saya perlu bantuannya dong, saya ada kasus dengan conditional
> > formatting.
> >
> > Di escel yang terlampir sya sudah buat conditional formatingnya yaitu
> > untuk
> > spesifik Text AAA maka warnanya merah, dan BBB warnanya hijau.
> >
> >
> >
> > Yang ingin saya tanyakan adalah, bagaimana cara buat satu row untuk AAA
> > merah semua secara otomatis, bgt juga dnegan 1 row BBB hijau secara
> > otomatis ?
> >
> >
> >
> > Terima kasih untuk bantuannya.
>
>
>
soalnya posisi lagi di hutan...
2012/9/8 M.Ade Alfarid <QA@kkmi.co.id>
> **
>
>
> Dear Dimas,
> mudah2an sesuai dengan harapan
>
> --
> Regards,
>
> M.ADE ALFARID
> KMI
>
> On Fri, 07 Sep 2012 10:13:37 +0700, dimas ricky <dimasr1985@gmail.
> wrote:
>
>
> > Dear all, saya perlu bantuannya dong, saya ada kasus dengan conditional
> > formatting.
> >
> > Di escel yang terlampir sya sudah buat conditional formatingnya yaitu
> > untuk
> > spesifik Text AAA maka warnanya merah, dan BBB warnanya hijau.
> >
> >
> >
> > Yang ingin saya tanyakan adalah, bagaimana cara buat satu row untuk AAA
> > merah semua secara otomatis, bgt juga dnegan 1 row BBB hijau secara
> > otomatis ?
> >
> >
> >
> > Terima kasih untuk bantuannya.
>
>
>
Sun Sep 9, 2012 9:34 pm (PDT) . Posted by:
"Yusril Ramadani" yusril_rmd
Dear para pakar
Mohon bantuannya untuk mencari average dari data dengan mengabaikan 0.00
Terlampir contohnya
Salam
YR
Mohon bantuannya untuk mencari average dari data dengan mengabaikan 0.00
Terlampir contohnya
Salam
YR
Sun Sep 9, 2012 9:38 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba :
(misal data di x2:x45)
=average( if( x2:x45 <> 0 , x2:x45 ) )
lalu enter sebagai array formula
Kid.
2012/9/10 Yusril Ramadani <yusrilramadani@gmail.com >
> **
>
>
> Dear para pakar
>
> Mohon bantuannya untuk mencari average dari data dengan mengabaikan 0.00
>
> Terlampir contohnya
>
> Salam
> YR
>
>
>
(misal data di x2:x45)
=average( if( x2:x45 <> 0 , x2:x45 ) )
lalu enter sebagai array formula
Kid.
2012/9/10 Yusril Ramadani <yusrilramadani@
> **
>
>
> Dear para pakar
>
> Mohon bantuannya untuk mencari average dari data dengan mengabaikan 0.00
>
> Terlampir contohnya
>
> Salam
> YR
>
>
>
Sun Sep 9, 2012 11:17 pm (PDT) . Posted by:
"Yusril Ramadani" yusril_rmd
Terima kasih Mr Kid
Sudah saya coba tapi kok value ya
yg dimaksdu di enter sebagai arrya formula apa ya ?
2012/9/10 Kid Mr. <mr.nmkid@gmail.com >
> **
>
>
> Coba :
> (misal data di x2:x45)
> =average( if( x2:x45 <> 0 , x2:x45 ) )
> lalu enter sebagai array formula
>
> Kid.
>
>
> 2012/9/10 Yusril Ramadani <yusrilramadani@gmail.com >
>
>> **
>>
>>
>> Dear para pakar
>>
>> Mohon bantuannya untuk mencari average dari data dengan mengabaikan 0.00
>>
>> Terlampir contohnya
>>
>> Salam
>> YR
>>
>>
>
>
Sudah saya coba tapi kok value ya
yg dimaksdu di enter sebagai arrya formula apa ya ?
2012/9/10 Kid Mr. <mr.nmkid@gmail.
> **
>
>
> Coba :
> (misal data di x2:x45)
> =average( if( x2:x45 <> 0 , x2:x45 ) )
> lalu enter sebagai array formula
>
> Kid.
>
>
> 2012/9/10 Yusril Ramadani <yusrilramadani@
>
>> **
>>
>>
>> Dear para pakar
>>
>> Mohon bantuannya untuk mencari average dari data dengan mengabaikan 0.00
>>
>> Terlampir contohnya
>>
>> Salam
>> YR
>>
>>
>
>
Sun Sep 9, 2012 11:19 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Setelah menulis formula, jangan tekan Enter, tapi tekan CTRL SHIFT
ENTER bersamaan agar formula menjadi array formula.
Wassalam,
Kid.
2012/9/10 Yusril Ramadani <yusrilramadani@gmail.com >
> **
>
>
> Terima kasih Mr Kid
> Sudah saya coba tapi kok value ya
> yg dimaksdu di enter sebagai arrya formula apa ya ?
>
>
>
> 2012/9/10 Kid Mr. <mr.nmkid@gmail.com >
>
> **
>>
>>
>> Coba :
>> (misal data di x2:x45)
>> =average( if( x2:x45 <> 0 , x2:x45 ) )
>> lalu enter sebagai array formula
>>
>> Kid.
>>
>>
>> 2012/9/10 Yusril Ramadani <yusrilramadani@gmail.com >
>>
>>> **
>>>
>>>
>>> Dear para pakar
>>>
>>> Mohon bantuannya untuk mencari average dari data dengan mengabaikan 0.00
>>>
>>> Terlampir contohnya
>>>
>>> Salam
>>> YR
>>>
>>>
>>
>
>
ENTER bersamaan agar formula menjadi array formula.
Wassalam,
Kid.
2012/9/10 Yusril Ramadani <yusrilramadani@
> **
>
>
> Terima kasih Mr Kid
> Sudah saya coba tapi kok value ya
> yg dimaksdu di enter sebagai arrya formula apa ya ?
>
>
>
> 2012/9/10 Kid Mr. <mr.nmkid@gmail.
>
> **
>>
>>
>> Coba :
>> (misal data di x2:x45)
>> =average( if( x2:x45 <> 0 , x2:x45 ) )
>> lalu enter sebagai array formula
>>
>> Kid.
>>
>>
>> 2012/9/10 Yusril Ramadani <yusrilramadani@
>>
>>> **
>>>
>>>
>>> Dear para pakar
>>>
>>> Mohon bantuannya untuk mencari average dari data dengan mengabaikan 0.00
>>>
>>> Terlampir contohnya
>>>
>>> Salam
>>> YR
>>>
>>>
>>
>
>
Sun Sep 9, 2012 11:25 pm (PDT) . Posted by:
"Yusril Ramadani" yusril_rmd
Ooo keereen
Terima kasih Mr Kid
Tapi kalau boleh dijelaskan array formula ini apa ya ? dan fungsi2 spt apa
saja yang menggunakan array formula
Terima kasih lagi
Salam
YR
--- Mods ---
Coba main ke website milis di :
http://tech.groups.yahoo.com/group/belajar-excel/files/
jika Anda login YahooID, maka akan bisa download file dari sana.
Salah satu file yang menjelaskan array formula :
ctv_ArrayFormula Examples_(bE_fles).zip
------------
2012/9/10 Kid Mr. <mr.nmkid@gmail.com >
> **
>
>
> Setelah menulis formula, jangan tekan Enter, tapi tekan CTRL SHIFT
> ENTER bersamaan agar formula menjadi array formula.
>
> Wassalam,
>
> Kid.
>
> 2012/9/10 Yusril Ramadani <yusrilramadani@gmail.com >
>
>> **
>>
>>
>> Terima kasih Mr Kid
>> Sudah saya coba tapi kok value ya
>> yg dimaksdu di enter sebagai arrya formula apa ya ?
>>
>>
>>
>> 2012/9/10 Kid Mr. <mr.nmkid@gmail.com >
>>
>> **
>>>
>>>
>>> Coba :
>>> (misal data di x2:x45)
>>> =average( if( x2:x45 <> 0 , x2:x45 ) )
>>> lalu enter sebagai array formula
>>>
>>> Kid.
>>>
>>>
>>> 2012/9/10 Yusril Ramadani <yusrilramadani@gmail.com >
>>>
>>>> **
>>>>
>>>>
>>>> Dear para pakar
>>>>
>>>> Mohon bantuannya untuk mencari average dari data dengan mengabaikan
>>>> 0.00
>>>>
>>>> Terlampir contohnya
>>>>
>>>> Salam
>>>> YR
>>>>
>>>>
>>>
>>
>
>
Terima kasih Mr Kid
Tapi kalau boleh dijelaskan array formula ini apa ya ? dan fungsi2 spt apa
saja yang menggunakan array formula
Terima kasih lagi
Salam
YR
--- Mods ---
Coba main ke website milis di :
http://tech.
jika Anda login YahooID, maka akan bisa download file dari sana.
Salah satu file yang menjelaskan array formula :
ctv_ArrayFormula Examples_(bE_
------------
2012/9/10 Kid Mr. <mr.nmkid@gmail.
> **
>
>
> Setelah menulis formula, jangan tekan Enter, tapi tekan CTRL SHIFT
> ENTER bersamaan agar formula menjadi array formula.
>
> Wassalam,
>
> Kid.
>
> 2012/9/10 Yusril Ramadani <yusrilramadani@
>
>> **
>>
>>
>> Terima kasih Mr Kid
>> Sudah saya coba tapi kok value ya
>> yg dimaksdu di enter sebagai arrya formula apa ya ?
>>
>>
>>
>> 2012/9/10 Kid Mr. <mr.nmkid@gmail.
>>
>> **
>>>
>>>
>>> Coba :
>>> (misal data di x2:x45)
>>> =average( if( x2:x45 <> 0 , x2:x45 ) )
>>> lalu enter sebagai array formula
>>>
>>> Kid.
>>>
>>>
>>> 2012/9/10 Yusril Ramadani <yusrilramadani@
>>>
>>>> **
>>>>
>>>>
>>>> Dear para pakar
>>>>
>>>> Mohon bantuannya untuk mencari average dari data dengan mengabaikan
>>>> 0.00
>>>>
>>>> Terlampir contohnya
>>>>
>>>> Salam
>>>> YR
>>>>
>>>>
>>>
>>
>
>
Sun Sep 9, 2012 11:04 pm (PDT) . Posted by:
"rizald al kaaf"
salam
saya punya permasalahan ni, mau mencari nilai valas periode tertentu,
seperti terlampir....
dan mungkin sekalian, kali aja ada yg simpan file kurs pajak
berdasarkan aturan menteri keuangan dari 2009 hehe
terima kasih
saya punya permasalahan ni, mau mencari nilai valas periode tertentu,
seperti terlampir...
dan mungkin sekalian, kali aja ada yg simpan file kurs pajak
berdasarkan aturan menteri keuangan dari 2009 hehe
terima kasih
Sun Sep 9, 2012 11:17 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Maaf belum bisa bantu,
tetapi, demi kenyamanan kedepannya, coba susun sheet kurs dengan susunana
kolom : (tiap minggu di tambah datanya di paling bawah)
data mulai baris 2 dan header di baris pertama.
kolom A : tanggal_batas_bawah (input dengan YYYY-MM-DD)
kolom B : tanggal batas atas (input dengan YYYY-MM-DD)
kolom C : kode valuta (standar ISO [3 karakter])
kolom D : satuan
kolom E : nilai kurs ke IDR
kolom F : bila perlu nama valutanya, letakkan disini
(misal ada record kurs dari baris 2 sampai 5000)
Setelah itu, coba gunakan di sheet1 cell d2 :
=index( kurs!$e$2:$e$5000 / kurs!$d$2:$d$5000 , match ( 1 ,
(kurs!$a$2:$a$5000=<c2)*(kurs!$b$2:$b$5000>=c2)*(kurs!$c$2:$c$5000=a2) , 0
) ) * b2
kemudian tekan CTRL SHIFT ENTER bersamaan.
Wassalam,
Kid.
2012/9/10 rizald al kaaf <r.alkaaf@gmail.com >
> **
>
>
> salam
> saya punya permasalahan ni, mau mencari nilai valas periode tertentu,
> seperti terlampir....
> dan mungkin sekalian, kali aja ada yg simpan file kurs pajak
> berdasarkan aturan menteri keuangan dari 2009 hehe
>
> terima kasih
>
>
>
tetapi, demi kenyamanan kedepannya, coba susun sheet kurs dengan susunana
kolom : (tiap minggu di tambah datanya di paling bawah)
data mulai baris 2 dan header di baris pertama.
kolom A : tanggal_batas_
kolom B : tanggal batas atas (input dengan YYYY-MM-DD)
kolom C : kode valuta (standar ISO [3 karakter])
kolom D : satuan
kolom E : nilai kurs ke IDR
kolom F : bila perlu nama valutanya, letakkan disini
(misal ada record kurs dari baris 2 sampai 5000)
Setelah itu, coba gunakan di sheet1 cell d2 :
=index( kurs!$e$2:$e$
(kurs!$a$2:$
) ) * b2
kemudian tekan CTRL SHIFT ENTER bersamaan.
Wassalam,
Kid.
2012/9/10 rizald al kaaf <r.alkaaf@gmail.
> **
>
>
> salam
> saya punya permasalahan ni, mau mencari nilai valas periode tertentu,
> seperti terlampir...
> dan mungkin sekalian, kali aja ada yg simpan file kurs pajak
> berdasarkan aturan menteri keuangan dari 2009 hehe
>
> terima kasih
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar