Rabu, 02 Mei 2012

[belajar-excel] Digest Number 1600

Messages In This Digest (25 Messages)

1a.
Excel Macro From: Susilo A
1b.
Re: Excel Macro From: Kid Mr.
1c.
Re: Excel Macro From: Susilo A
1d.
Re: Excel Macro From: Kid Mr.
1e.
Bls: [belajar-excel] Excel Macro From: Ismail Hasmin
1f.
Re: Excel Macro From: jonathan.susanto@gmail.com
2a.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: nathan.tama
2b.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: Kid Mr.
2c.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: summonery
2d.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: Kid Mr.
2e.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: dwint ruswanto
2f.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: dwint ruswanto
2g.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: Ahmad Zamroni
2h.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: Loheng Stone
2i.
Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja. From: summonery
3a.
Trs: [belajar-excel] penghitungan Rekap Penjualan menggunakan Formul From: depi Hariyanto
3b.
Re: penghitungan Rekap Penjualan menggunakan Formula atau Macro From: Kid Mr.
4a.
Re: Menghitung Prosentase From: harry budiman
5a.
Pantangan rumus IF From: Modby Matsnawabi
5b.
Re: Pantangan rumus IF From: Kid Mr.
5c.
Re: Pantangan rumus IF From: raya hidayat
5d.
Re: Pantangan rumus IF From: dwint ruswanto
6.
Form Jamsostek terbaru From: Joe Dien
7.
Hasil Rekam Solver Tidak Mau Jalan From: Kurei recca
8a.
Trs: [belajar-excel] Gimana code macro filter u 2 sheet hasil From: Ismail Hasmin

Messages

1a.

Excel Macro

Posted by: "Susilo A" susilo.sl@gmail.com

Wed May 2, 2012 1:19 am (PDT)



Dear rekan2 semua,
Mohon info/referensi buku yg bagus untuk belajar excel macro untuk pemula ?

Salam,
Agus
1b.

Re: Excel Macro

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed May 2, 2012 1:30 am (PDT)



Sudah coba bukunya Pak Hendrik sama mpok Siti belum ?
Coba dulu deh...

Kid.

2012/5/2 Susilo A <susilo.sl@gmail.com>

> **
>
>
> Dear rekan2 semua,
> Mohon info/referensi buku yg bagus untuk belajar excel macro untuk pemula ?
>
> Salam,
> Agus
>
>
>
1c.

Re: Excel Macro

Posted by: "Susilo A" susilo.sl@gmail.com

Wed May 2, 2012 1:41 am (PDT)



Belon Boss, dimana bisa saya dapat ?

Salam,
Agus

2012/5/2 Kid Mr. <mr.nmkid@gmail.com>

> **
>
>
> Sudah coba bukunya Pak Hendrik sama mpok Siti belum ?
> Coba dulu deh...
>
> Kid.
>
>
>
> 2012/5/2 Susilo A <susilo.sl@gmail.com>
>
>> **
>>
>>
>> Dear rekan2 semua,
>> Mohon info/referensi buku yg bagus untuk belajar excel macro untuk pemula
>> ?
>>
>> Salam,
>> Agus
>>
>>
>
>
1d.

Re: Excel Macro

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed May 2, 2012 1:49 am (PDT)



Coba tanya mpok Siti (mumpung dia sempet posting tuh), sapa tahu ada acara
bagi buku gratis. Mungkin yang dipilih untuk dapet buku gratis adalah yang
ikut kejar celeng yang baru dilepas si mpok. Hanya mungkin loh ya...
konfirmasi detil, sila tanya sama mpok satu itu...

;)

Kid.

2012/5/2 Susilo A <susilo.sl@gmail.com>

> **
>
>
> Belon Boss, dimana bisa saya dapat ?
>
> Salam,
> Agus
>
> 2012/5/2 Kid Mr. <mr.nmkid@gmail.com>
>
> **
>>
>>
>> Sudah coba bukunya Pak Hendrik sama mpok Siti belum ?
>> Coba dulu deh...
>>
>> Kid.
>>
>>
>>
>> 2012/5/2 Susilo A <susilo.sl@gmail.com>
>>
>>> **
>>>
>>>
>>> Dear rekan2 semua,
>>> Mohon info/referensi buku yg bagus untuk belajar excel macro untuk
>>> pemula ?
>>>
>>> Salam,
>>> Agus
>>>
>>>
>>
>
>
1e.

Bls: [belajar-excel] Excel Macro

Posted by: "Ismail Hasmin" ismail_hasmin@yahoo.com   ismail_hasmin

Wed May 2, 2012 2:00 am (PDT)



Sorry numpang ikutan. Benar master karena sy juga butuh skali & skalian nambah referensi agar belajarnya lebih berkualitas,tks

Regards

Ismail H

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 2 Mei 2012 15:49
Judul: Re: [belajar-excel] Excel Macro


 
Coba tanya mpok Siti (mumpung dia sempet posting tuh), sapa tahu ada acara bagi buku gratis. Mungkin yang dipilih untuk dapet buku gratis adalah yang ikut kejar celeng yang baru dilepas si mpok. Hanya mungkin loh ya... konfirmasi detil, sila tanya sama mpok satu itu...

;)

Kid.

2012/5/2 Susilo A <susilo.sl@gmail.com>


>Belon Boss, dimana bisa saya dapat ?
>
>Salam,
>Agus
>
>
>2012/5/2 Kid Mr. <mr.nmkid@gmail.com>
>
>
>
>> 
>>Sudah coba bukunya Pak Hendrik sama mpok Siti belum ?
>>Coba dulu deh...
>>
>>Kid.

1f.

Re: Excel Macro

Posted by: "jonathan.susanto@gmail.com" jonathan.susanto@gmail.com   jonathan_susanto

Wed May 2, 2012 2:00 am (PDT)



Di gramedia ada.

Saya pernah liat di gramed kelapa gading.

Powered by Telkomsel BlackBerry�

-----Original Message-----
From: Susilo A <susilo.sl@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Wed, 2 May 2012 16:41:46
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Excel Macro

Belon Boss, dimana bisa saya dapat ?

Salam,
Agus

2012/5/2 Kid Mr. <mr.nmkid@gmail.com>

> **
>
>
> Sudah coba bukunya Pak Hendrik sama mpok Siti belum ?
> Coba dulu deh...
>
> Kid.
>
>
>
> 2012/5/2 Susilo A <susilo.sl@gmail.com>
>
>> **
>>
>>
>> Dear rekan2 semua,
>> Mohon info/referensi buku yg bagus untuk belajar excel macro untuk pemula
>> ?
>>
>> Salam,
>> Agus
>>
>>
>
>

2a.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "nathan.tama" nathan.tama@yahoo.com   nathan.tama

Wed May 2, 2012 1:23 am (PDT)



Horeee..., suster ngesot akhirnya udah ngesot kembali.
Maaf, OOT hehe, kangen ama suaranya suster ngesot
:)

--- In belajar-excel@yahoogroups.com, siti Vi <setiyowati.devi@...> wrote:
>
> Aku punya teman, teman sepermainan; di mana ada dia selalu ada aku
> Dia memang manis, dan juga baik hati; dan dia slalu ada waktu untuk
> membantuku
> Namun aku bingung, ketika ... *dia minta dibuatkan formula...*
>
> Dia punya banyak DATA Bilangan.
> (Positip, bulat, tanpa bagian pecahan, minimum 0 maksimum 30 digit : 999
> 999 999 999 999 999 999 999 999 999
>
> Kadang-kadang DATA itu harus ditulis sebagai TEXT demi dapatnya masuk ke
> cell EXCEL tanpa pembulatan (yaitu jika data lebih besar d/p 16 Digit).
>
> Dia ingin RUMUS (tanpa kolom bantu) untuk meng-'Ekstrak" setiap DATA bilangan
> - nya sehingga menjadi *1 digit* saja.
> Maksudnya begini:
>
> *Misal bilangan : 123*
> Bilangan dipecah per angka tunggal, untuk kemudian dijumlah nilainya,
> menjadi *1+2+3* = *6*
> Nah, 6 tidak perlu diproses lagi karena lebarnya sudah = 1 digit.
> *6* inilah
> HASIL Rumus yg dia (si ttm tadi) inginkan
>
> *Contoh lain, bilangan *(formatted) : *3,579,864,087*
> ( Regional setting saya = English(US) )
> Pemisahan tahap 1: *3+5+7+9+8+6+4+0+8+7*
> Hasil penjumlahan tahap 1 = *57*
>
> Pemisahan tahap 2: *5+7*
> Hasil penjumlahan tahap 2: 5+7 = *12*
>
> Pemisahan tahap 3 = *1+2*
> Hasil Akhir (Output rumus): 1+2 = *3*
> Hasil RUMUS (output) = 3
>
> Untuk Kasus yg kami ajukan ini kita batasi Data Max = 9 Digit saja
>
> Terlampir workbook berisi 3 sheets<https://www.box.com/s/03b04d2c988fd947767e>
> :
> 1. Penjelasan Kasus dan Contoh data
> 2. Contoh Data dan Range untuk solusi RUMUS oleh Para Penanggap
> 3. Contoh penyelesaian dengan makro UDF (yg ditolak - tapi diam-diam dipakai)
> oleh dia (si ttm tadi )
>
> Semua usul, saran, bantuan dan komentar sangat dihargai dan untuk itu
> sebelumnya kami ucapkan terima kasih.
>
> wassalam & kindest regards,
> mumpung sedang sempat....
> ~ siti
>

2b.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed May 2, 2012 1:56 am (PDT)



hehehe....

please member lain gak ikutan oot ya.

Kalau mau dikit oot boleh saja,
TAPI
sertakan formula untuk tangkap celeng yang udah digiring mpok suster sampe
kesini. Giring celengnya sambil ngesot loh...

:D =(Mod(Sum(--Mid(b6&Rept(0,36),Row($1:$36),1))-1,9)+1)*(-b6>0) :D

Kid

2012/5/2 nathan.tama <nathan.tama@yahoo.com>

> **
>
>
> Horeee..., suster ngesot akhirnya udah ngesot kembali.
> Maaf, OOT hehe, kangen ama suaranya suster ngesot
> :)
>
>
> --- In belajar-excel@yahoogroups.com, siti Vi <setiyowati.devi@...> wrote:
> >
> > Aku punya teman, teman sepermainan; di mana ada dia selalu ada aku
> > Dia memang manis, dan juga baik hati; dan dia slalu ada waktu untuk
> > membantuku
> > Namun aku bingung, ketika ... *dia minta dibuatkan formula...*
>
> >
> > Dia punya banyak DATA Bilangan.
> > (Positip, bulat, tanpa bagian pecahan, minimum 0 maksimum 30 digit : 999
> > 999 999 999 999 999 999 999 999 999
> >
> > Kadang-kadang DATA itu harus ditulis sebagai TEXT demi dapatnya masuk ke
> > cell EXCEL tanpa pembulatan (yaitu jika data lebih besar d/p 16 Digit).
> >
> > Dia ingin RUMUS (tanpa kolom bantu) untuk meng-'Ekstrak" setiap DATA
> bilangan
> > - nya sehingga menjadi *1 digit* saja.
> > Maksudnya begini:
> >
> > *Misal bilangan : 123*
>
> > Bilangan dipecah per angka tunggal, untuk kemudian dijumlah nilainya,
> > menjadi *1+2+3* = *6*
>
> > Nah, 6 tidak perlu diproses lagi karena lebarnya sudah = 1 digit.
> > *6* inilah
>
> > HASIL Rumus yg dia (si ttm tadi) inginkan
> >
> > *Contoh lain, bilangan *(formatted) : *3,579,864,087*
>
> > ( Regional setting saya = English(US) )
> > Pemisahan tahap 1: *3+5+7+9+8+6+4+0+8+7*
> > Hasil penjumlahan tahap 1 = *57*
> >
> > Pemisahan tahap 2: *5+7*
> > Hasil penjumlahan tahap 2: 5+7 = *12*
> >
> > Pemisahan tahap 3 = *1+2*
> > Hasil Akhir (Output rumus): 1+2 = *3*
>
> > Hasil RUMUS (output) = 3
> >
> > Untuk Kasus yg kami ajukan ini kita batasi Data Max = 9 Digit saja
> >
> > Terlampir workbook berisi 3 sheets<
> https://www.box.com/s/03b04d2c988fd947767e>
>
> > :
> > 1. Penjelasan Kasus dan Contoh data
> > 2. Contoh Data dan Range untuk solusi RUMUS oleh Para Penanggap
> > 3. Contoh penyelesaian dengan makro UDF (yg ditolak - tapi diam-diam
> dipakai)
> > oleh dia (si ttm tadi )
> >
> > Semua usul, saran, bantuan dan komentar sangat dihargai dan untuk itu
> > sebelumnya kami ucapkan terima kasih.
> >
> > wassalam & kindest regards,
> > mumpung sedang sempat....
> > ~ siti
> >
>
>
>
>
2c.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "summonery" summonery@yahoo.com   summonery

Wed May 2, 2012 4:14 am (PDT)



coba,
formula tanpa kolom bantu: =(1+MOD(B6-1,9))*(B6<>0)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, siti Vi <setiyowati.devi@...>
wrote:
>
> Aku punya teman, teman sepermainan; di mana ada dia selalu ada aku
> Dia memang manis, dan juga baik hati; dan dia slalu ada waktu untuk
> membantuku
> Namun aku bingung, ketika ... *dia minta dibuatkan formula...*
>
> Dia punya banyak DATA Bilangan.
> (Positip, bulat, tanpa bagian pecahan, minimum 0 maksimum 30 digit :
999
> 999 999 999 999 999 999 999 999 999
>
> Kadang-kadang DATA itu harus ditulis sebagai TEXT demi dapatnya masuk
ke
> cell EXCEL tanpa pembulatan (yaitu jika data lebih besar d/p 16
Digit).
>
> Dia ingin RUMUS (tanpa kolom bantu) untuk meng-'Ekstrak" setiap DATA
bilangan
> - nya sehingga menjadi *1 digit* saja.
> Maksudnya begini:
>
> *Misal bilangan : 123*
> Bilangan dipecah per angka tunggal, untuk kemudian dijumlah nilainya,
> menjadi *1+2+3* = *6*
> Nah, 6 tidak perlu diproses lagi karena lebarnya sudah = 1 digit.
> *6* inilah
> HASIL Rumus yg dia (si ttm tadi) inginkan
>
> *Contoh lain, bilangan *(formatted) : *3,579,864,087*
> ( Regional setting saya = English(US) )
> Pemisahan tahap 1: *3+5+7+9+8+6+4+0+8+7*
> Hasil penjumlahan tahap 1 = *57*
>
> Pemisahan tahap 2: *5+7*
> Hasil penjumlahan tahap 2: 5+7 = *12*
>
> Pemisahan tahap 3 = *1+2*
> Hasil Akhir (Output rumus): 1+2 = *3*
> Hasil RUMUS (output) = 3
>
> Untuk Kasus yg kami ajukan ini kita batasi Data Max = 9 Digit saja
>
> Terlampir workbook berisi 3
sheets<https://www.box.com/s/03b04d2c988fd947767e>
> :
> 1. Penjelasan Kasus dan Contoh data
> 2. Contoh Data dan Range untuk solusi RUMUS oleh Para Penanggap
> 3. Contoh penyelesaian dengan makro UDF (yg ditolak - tapi diam-diam
dipakai)
> oleh dia (si ttm tadi )
>
> Semua usul, saran, bantuan dan komentar sangat dihargai dan untuk itu
> sebelumnya kami ucapkan terima kasih.
>
> wassalam & kindest regards,
> mumpung sedang sempat....
> ~ siti
>

2d.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed May 2, 2012 5:15 am (PDT)



Sedikit informasi, fungsi Mod umumnya bekerja kira-kira maksimal 9 digit
(jejer angka 9 ada 9 digit). Nilai tepatnya mungkin sekitar 10^9 + 2*10^8 +
lebih dikit.

Wassalam,
Kid.

2012/5/2 summonery <summonery@yahoo.com>

> **
>
>
> coba,
>
> formula tanpa kolom bantu: =(1+MOD(B6-1,9))*(B6<>0)
>
>
> >semoga bermanfaat
>
>
>
> --- In belajar-excel@yahoogroups.com, siti Vi <setiyowati.devi@...> wrote:
> >
> > Aku punya teman, teman sepermainan; di mana ada dia selalu ada aku
> > Dia memang manis, dan juga baik hati; dan dia slalu ada waktu untuk
> > membantuku
> > Namun aku bingung, ketika ... *dia minta dibuatkan formula...*
>
> >
> > Dia punya banyak DATA Bilangan.
> > (Positip, bulat, tanpa bagian pecahan, minimum 0 maksimum 30 digit : 999
> > 999 999 999 999 999 999 999 999 999
> >
> > Kadang-kadang DATA itu harus ditulis sebagai TEXT demi dapatnya masuk ke
> > cell EXCEL tanpa pembulatan (yaitu jika data lebih besar d/p 16 Digit).
> >
> > Dia ingin RUMUS (tanpa kolom bantu) untuk meng-'Ekstrak" setiap DATA
> bilangan
> > - nya sehingga menjadi *1 digit* saja.
> > Maksudnya begini:
> >
> > *Misal bilangan : 123*
> > Bilangan dipecah per angka tunggal, untuk kemudian dijumlah nilainya,
> > menjadi *1+2+3* = *6*
>
> > Nah, 6 tidak perlu diproses lagi karena lebarnya sudah = 1 digit.
> > *6* inilah
>
> > HASIL Rumus yg dia (si ttm tadi) inginkan
> >
> > *Contoh lain, bilangan *(formatted) : *3,579,864,087*
> > ( Regional setting saya = English(US) )
> > Pemisahan tahap 1: *3+5+7+9+8+6+4+0+8+7*
> > Hasil penjumlahan tahap 1 = *57*
> >
> > Pemisahan tahap 2: *5+7*
> > Hasil penjumlahan tahap 2: 5+7 = *12*
> >
> > Pemisahan tahap 3 = *1+2*
> > Hasil Akhir (Output rumus): 1+2 = *3*
>
> > Hasil RUMUS (output) = 3
> >
> > Untuk Kasus yg kami ajukan ini kita batasi Data Max = 9 Digit saja
> >
> > Terlampir workbook berisi 3 sheets<
> https://www.box.com/s/03b04d2c988fd947767e>
>
> > :
> > 1. Penjelasan Kasus dan Contoh data
> > 2. Contoh Data dan Range untuk solusi RUMUS oleh Para Penanggap
> > 3. Contoh penyelesaian dengan makro UDF (yg ditolak - tapi diam-diam
> dipakai)
> > oleh dia (si ttm tadi )
> >
> > Semua usul, saran, bantuan dan komentar sangat dihargai dan untuk itu
> > sebelumnya kami ucapkan terima kasih.
> >
> > wassalam & kindest regards,
> > mumpung sedang sempat....
> > ~ siti
> >
>
>
>
2e.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Wed May 2, 2012 5:16 am (PDT)



ternyata formula dari pak summonery sangat simpel sekali, hanya mencari
sisa pembagian bilangan dengan angka sembilan.. salut.. angkat dua jempol
untuk anda ^__^

Pada 2 Mei 2012 18:13, summonery <summonery@yahoo.com> menulis:

> **
>
>
> coba,
>
> formula tanpa kolom bantu: =(1+MOD(B6-1,9))*(B6<>0)
>
>
> >semoga bermanfaat
>
>
>
> --- In belajar-excel@yahoogroups.com, siti Vi <setiyowati.devi@...> wrote:
> >
> > Aku punya teman, teman sepermainan; di mana ada dia selalu ada aku
> > Dia memang manis, dan juga baik hati; dan dia slalu ada waktu untuk
> > membantuku
> > Namun aku bingung, ketika ... *dia minta dibuatkan formula...*
>
> >
> > Dia punya banyak DATA Bilangan.
> > (Positip, bulat, tanpa bagian pecahan, minimum 0 maksimum 30 digit : 999
> > 999 999 999 999 999 999 999 999 999
> >
> > Kadang-kadang DATA itu harus ditulis sebagai TEXT demi dapatnya masuk ke
> > cell EXCEL tanpa pembulatan (yaitu jika data lebih besar d/p 16 Digit).
> >
> > Dia ingin RUMUS (tanpa kolom bantu) untuk meng-'Ekstrak" setiap DATA
> bilangan
> > - nya sehingga menjadi *1 digit* saja.
> > Maksudnya begini:
> >
> > *Misal bilangan : 123*
> > Bilangan dipecah per angka tunggal, untuk kemudian dijumlah nilainya,
> > menjadi *1+2+3* = *6*
>
> > Nah, 6 tidak perlu diproses lagi karena lebarnya sudah = 1 digit.
> > *6* inilah
>
> > HASIL Rumus yg dia (si ttm tadi) inginkan
> >
> > *Contoh lain, bilangan *(formatted) : *3,579,864,087*
> > ( Regional setting saya = English(US) )
> > Pemisahan tahap 1: *3+5+7+9+8+6+4+0+8+7*
> > Hasil penjumlahan tahap 1 = *57*
> >
> > Pemisahan tahap 2: *5+7*
> > Hasil penjumlahan tahap 2: 5+7 = *12*
> >
> > Pemisahan tahap 3 = *1+2*
> > Hasil Akhir (Output rumus): 1+2 = *3*
>
> > Hasil RUMUS (output) = 3
> >
> > Untuk Kasus yg kami ajukan ini kita batasi Data Max = 9 Digit saja
> >
> > Terlampir workbook berisi 3 sheets<
> https://www.box.com/s/03b04d2c988fd947767e>
>
> > :
> > 1. Penjelasan Kasus dan Contoh data
> > 2. Contoh Data dan Range untuk solusi RUMUS oleh Para Penanggap
> > 3. Contoh penyelesaian dengan makro UDF (yg ditolak - tapi diam-diam
> dipakai)
> > oleh dia (si ttm tadi )
> >
> > Semua usul, saran, bantuan dan komentar sangat dihargai dan untuk itu
> > sebelumnya kami ucapkan terima kasih.
> >
> > wassalam & kindest regards,
> > mumpung sedang sempat....
> > ~ siti
> >
>
>
>
2f.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Wed May 2, 2012 5:16 am (PDT)



senang sekali bisa melihat tulisan-tulisan dari mbak siti lagi, newbie mau
coba kasih pendapat dan solusi, tapi kelihatannya tidak akan dipakai oleh
pemilik kasus melihat dari panjangnya formula yang digunakan.

menurut pendapat saya pribadi -mungkin pendapat member millis juga sama -,
ternyata solusi menggunakan makro lebih singkat jika dibandingkan dengan
menggunakan formula, coba bandingkan antara udf buatan mbak siti dengan
formula buatan saya

udf buatan Master Excel:

Function EKSTRAK(N)
' mencari Perasan (ekstrak) suatu Bilangan
' contoh 932 -> 9+3+2 = 14 -> 1+4 = 5
' by siti Vi / 21 April 2010
'----------------------------------------
Dim i As Integer, V
N = CDec(N): V = CDec(V)

If N < 10 Then
EKSTRAK = N
Else
For i = 1 To Len(CStr(N))
V = V + CLng(Mid(CStr(N), i, 1))
Next i
N = V
EKSTRAK = EKSTRAK(V) '<<<---
End If
End Function

formula buatan orang awam ^__^

=SumProduct(Mid(SumProduct(Mid(SumProduct(Mid(SumProduct(Mid(B6;Row(InDirect("1:"&Len(B6)));1)+0);Row(InDirect("1:"&Len(SumProduct(Mid(B6;Row(InDirect("1:"&Len(B6)));1)+0))));1)+0);Row(InDirect("1:"&Len(SumProduct(Mid(SumProduct(Mid(B6;Row(InDirect("1:"&Len(B6)));1)+0);Row(InDirect("1:"&Len(SumProduct(Mid(B6;Row(InDirect("1:"&Len(B6)));1)+0))));1)+0))));1)+0);Row(InDirect("1:"&Len(SumProduct(Mid(SumProduct(MID(SumProduct(Mid(B6;Row(InDirect("1:"&Len(B6)));1)+0);Row(InDirect("1:"&Len(SumProduct(Mid(B6;Row(InDirect("1:"&Len(B6)));1)+0))));1)+0);Row(InDirect("1:"&Len(SumProduct(Mid(SumProduct(Mid(B6;Row(InDirect("1:"&Len(B6)));1)+0);Row(InDirect("1:"&Len(SumProduct(Mid(B6;Row(InDirect("1:"&Len(B6)));1)+0))));1)+0))));1)+0))));1)+0)

format regional di komputer saya adalah indonesian

wassalam,

-dwint-

Pada 2 Mei 2012 15:55, Kid Mr. <mr.nmkid@gmail.com> menulis:

> **
>
>
> hehehe....
>
> please member lain gak ikutan oot ya.
>
> Kalau mau dikit oot boleh saja,
> TAPI
> sertakan formula untuk tangkap celeng yang udah digiring mpok suster sampe
> kesini. Giring celengnya sambil ngesot loh...
>
> :D =(Mod(Sum(--Mid(b6&Rept(0,36),Row($1:$36),1))-1,9)+1)*(-b6>0) :D
>
> Kid
>
> 2012/5/2 nathan.tama <nathan.tama@yahoo.com>
>
> **
>>
>>
>> Horeee..., suster ngesot akhirnya udah ngesot kembali.
>> Maaf, OOT hehe, kangen ama suaranya suster ngesot
>> :)
>>
>>
>> --- In belajar-excel@yahoogroups.com, siti Vi <setiyowati.devi@...>
>> wrote:
>> >
>> > Aku punya teman, teman sepermainan; di mana ada dia selalu ada aku
>> > Dia memang manis, dan juga baik hati; dan dia slalu ada waktu untuk
>> > membantuku
>> > Namun aku bingung, ketika ... *dia minta dibuatkan formula...*
>>
>> >
>> > Dia punya banyak DATA Bilangan.
>> > (Positip, bulat, tanpa bagian pecahan, minimum 0 maksimum 30 digit : 999
>> > 999 999 999 999 999 999 999 999 999
>> >
>> > Kadang-kadang DATA itu harus ditulis sebagai TEXT demi dapatnya masuk ke
>> > cell EXCEL tanpa pembulatan (yaitu jika data lebih besar d/p 16 Digit).
>> >
>> > Dia ingin RUMUS (tanpa kolom bantu) untuk meng-'Ekstrak" setiap DATA
>> bilangan
>> > - nya sehingga menjadi *1 digit* saja.
>> > Maksudnya begini:
>> >
>> > *Misal bilangan : 123*
>>
>> > Bilangan dipecah per angka tunggal, untuk kemudian dijumlah nilainya,
>> > menjadi *1+2+3* = *6*
>>
>> > Nah, 6 tidak perlu diproses lagi karena lebarnya sudah = 1 digit.
>> > *6* inilah
>>
>> > HASIL Rumus yg dia (si ttm tadi) inginkan
>> >
>> > *Contoh lain, bilangan *(formatted) : *3,579,864,087*
>>
>> > ( Regional setting saya = English(US) )
>> > Pemisahan tahap 1: *3+5+7+9+8+6+4+0+8+7*
>> > Hasil penjumlahan tahap 1 = *57*
>> >
>> > Pemisahan tahap 2: *5+7*
>> > Hasil penjumlahan tahap 2: 5+7 = *12*
>> >
>> > Pemisahan tahap 3 = *1+2*
>> > Hasil Akhir (Output rumus): 1+2 = *3*
>>
>> > Hasil RUMUS (output) = 3
>> >
>> > Untuk Kasus yg kami ajukan ini kita batasi Data Max = 9 Digit saja
>> >
>> > Terlampir workbook berisi 3 sheets<
>> https://www.box.com/s/03b04d2c988fd947767e>
>>
>> > :
>> > 1. Penjelasan Kasus dan Contoh data
>> > 2. Contoh Data dan Range untuk solusi RUMUS oleh Para Penanggap
>> > 3. Contoh penyelesaian dengan makro UDF (yg ditolak - tapi diam-diam
>> dipakai)
>> > oleh dia (si ttm tadi )
>> >
>> > Semua usul, saran, bantuan dan komentar sangat dihargai dan untuk itu
>> > sebelumnya kami ucapkan terima kasih.
>> >
>> > wassalam & kindest regards,
>> > mumpung sedang sempat....
>> > ~ siti
>> >
>>
>>
>>
>
>
2g.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "Ahmad Zamroni" ahzam05@gmail.com   zamronino

Wed May 2, 2012 7:51 am (PDT)



untuk 9 digi: =1+MOD(A1-1,9)

-zamproduct-

2012/5/2 siti Vi <setiyowati.devi@gmail.com>

>
>
> Aku punya teman, teman sepermainan; di mana ada dia selalu ada aku
> Dia memang manis, dan juga baik hati; dan dia slalu ada waktu untuk
> membantuku
> Namun aku bingung, ketika ... *dia minta dibuatkan formula...*
>
> Dia punya banyak DATA Bilangan.
> (Positip, bulat, tanpa bagian pecahan, minimum 0 maksimum 30 digit : 999
> 999 999 999 999 999 999 999 999 999
>
> Kadang-kadang DATA itu harus ditulis sebagai TEXT demi dapatnya masuk ke
> cell EXCEL tanpa pembulatan (yaitu jika data lebih besar d/p 16 Digit).
>
> Dia ingin RUMUS (tanpa kolom bantu) untuk meng-'Ekstrak" setiap DATA bilangan
> - nya sehingga menjadi *1 digit* saja.
> Maksudnya begini:
>
> *Misal bilangan : 123*
> Bilangan dipecah per angka tunggal, untuk kemudian dijumlah nilainya,
> menjadi *1+2+3* = *6*
> Nah, 6 tidak perlu diproses lagi karena lebarnya sudah = 1 digit. *6* inilah
> HASIL Rumus yg dia (si ttm tadi) inginkan
>
> *Contoh lain, bilangan *(formatted) : *3,579,864,087*
> ( Regional setting saya = English(US) )
> Pemisahan tahap 1: *3+5+7+9+8+6+4+0+8+7*
> Hasil penjumlahan tahap 1 = *57*
>
> Pemisahan tahap 2: *5+7*
> Hasil penjumlahan tahap 2: 5+7 = *12*
>
> Pemisahan tahap 3 = *1+2*
> Hasil Akhir (Output rumus): 1+2 = *3*
> Hasil RUMUS (output) = 3
>
> Untuk Kasus yg kami ajukan ini kita batasi Data Max = 9 Digit saja
>
> Terlampir workbook berisi 3 sheets<https://www.box.com/s/03b04d2c988fd947767e>
> :
> 1. Penjelasan Kasus dan Contoh data
> 2. Contoh Data dan Range untuk solusi RUMUS oleh Para Penanggap
> 3. Contoh penyelesaian dengan makro UDF (yg ditolak - tapi diam-diam dipakai)
> oleh dia (si ttm tadi )
>
> Semua usul, saran, bantuan dan komentar sangat dihargai dan untuk itu
> sebelumnya kami ucapkan terima kasih.
>
> wassalam & kindest regards,
> mumpung sedang sempat....
> ~ siti
>
>
>
>
2h.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "Loheng Stone" lohengstone@yahoo.com   lohengstone

Wed May 2, 2012 12:33 pm (PDT)



maaf cuma ikut nyontek ..=MOD(A1,9)  
salut buat para master Excel 

Salam

Loheng
2i.

Re: Meng-EKSTRAK data Rangkaian_Angka agar menjadi 1 digit saja.

Posted by: "summonery" summonery@yahoo.com   summonery

Wed May 2, 2012 6:41 pm (PDT)



+1 untuk data yang tidak lebih dari 9 digit dan bertipe
number:=IF(B6,1+MOD(B6-1,9),0)
coba juga,
=IF(B6,1+MOD(SUMPRODUCT(--MID(B6,ROW(INDIRECT("1:"&LEN(B6))),1))-1,9),0)\
(jika data dapat lebih dari 9 digit dan bertipe number)
atau
=(1+MOD(SUMPRODUCT(--MID(B48,ROW(INDIRECT("1:"&LEN(B48))),1))-1,9))*(B48\
<>0)(jika data dapat berupa angka yang bertipe text (tanpa tanda koma
atau titik))

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
>
> Sedikit informasi, fungsi Mod umumnya bekerja kira-kira maksimal 9
digit
> (jejer angka 9 ada 9 digit). Nilai tepatnya mungkin sekitar 10^9 +
2*10^8 +
> lebih dikit.
>
> Wassalam,
> Kid.
>
>
> 2012/5/2 summonery summonery@...
>
> > **
> >
> >
> > coba,
> >
> > formula tanpa kolom bantu: =(1+MOD(B6-1,9))*(B6<>0)
> >
> >
> > >semoga bermanfaat
> >
> >
> >
> > --- In belajar-excel@yahoogroups.com, siti Vi setiyowati.devi@
wrote:
> > >
> > > Aku punya teman, teman sepermainan; di mana ada dia selalu ada aku
> > > Dia memang manis, dan juga baik hati; dan dia slalu ada waktu
untuk
> > > membantuku
> > > Namun aku bingung, ketika ... *dia minta dibuatkan formula...*
> >
> > >
> > > Dia punya banyak DATA Bilangan.
> > > (Positip, bulat, tanpa bagian pecahan, minimum 0 maksimum 30 digit
: 999
> > > 999 999 999 999 999 999 999 999 999
> > >
> > > Kadang-kadang DATA itu harus ditulis sebagai TEXT demi dapatnya
masuk ke
> > > cell EXCEL tanpa pembulatan (yaitu jika data lebih besar d/p 16
Digit).
> > >
> > > Dia ingin RUMUS (tanpa kolom bantu) untuk meng-'Ekstrak" setiap
DATA
> > bilangan
> > > - nya sehingga menjadi *1 digit* saja.
> > > Maksudnya begini:
> > >
> > > *Misal bilangan : 123*
> > > Bilangan dipecah per angka tunggal, untuk kemudian dijumlah
nilainya,
> > > menjadi *1+2+3* = *6*
> >
> > > Nah, 6 tidak perlu diproses lagi karena lebarnya sudah = 1 digit.
> > > *6* inilah
> >
> > > HASIL Rumus yg dia (si ttm tadi) inginkan
> > >
> > > *Contoh lain, bilangan *(formatted) : *3,579,864,087*
> > > ( Regional setting saya = English(US) )
> > > Pemisahan tahap 1: *3+5+7+9+8+6+4+0+8+7*
> > > Hasil penjumlahan tahap 1 = *57*
> > >
> > > Pemisahan tahap 2: *5+7*
> > > Hasil penjumlahan tahap 2: 5+7 = *12*
> > >
> > > Pemisahan tahap 3 = *1+2*
> > > Hasil Akhir (Output rumus): 1+2 = *3*
> >
> > > Hasil RUMUS (output) = 3
> > >
> > > Untuk Kasus yg kami ajukan ini kita batasi Data Max = 9 Digit saja
> > >
> > > Terlampir workbook berisi 3 sheets<
> > https://www.box.com/s/03b04d2c988fd947767e>
> >
> > > :
> > > 1. Penjelasan Kasus dan Contoh data
> > > 2. Contoh Data dan Range untuk solusi RUMUS oleh Para Penanggap
> > > 3. Contoh penyelesaian dengan makro UDF (yg ditolak - tapi
diam-diam
> > dipakai)
> > > oleh dia (si ttm tadi )
> > >
> > > Semua usul, saran, bantuan dan komentar sangat dihargai dan untuk
itu
> > > sebelumnya kami ucapkan terima kasih.
> > >
> > > wassalam & kindest regards,
> > > mumpung sedang sempat....
> > > ~ siti
> > >
> >
> >
> >
>

3a.

Trs: [belajar-excel] penghitungan Rekap Penjualan menggunakan Formul

Posted by: "depi Hariyanto" depi.hari_yanto@yahoo.co.id   depi.hari_yanto

Wed May 2, 2012 5:00 pm (PDT)



Kepada YTH Rekan2 Excel,

Harapan dan mohon sekali jawaban atas solusi yang pernah saya sampaikan.

Terima kasih

Dep_Har

----- Pesan yang Diteruskan -----
Dari: depi Hariyanto <depi.hari_yanto@yahoo.co.id>
Kepada: excel <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 2 Mei 2012 0:16
Judul: [belajar-excel] penghitungan Rekap Penjualan menggunakan Formula atau Macro


 
Kepada Master Excel Ysh,

Salam dan mohon bantuannya kembali, saat ini saya menemukan kesulitan dalam perhitungan komisi penjualan yg selama ini saya lakukan manual. mohon pencerahan formula atau macro yg dapat digunakan untuk perhitungan komisi tersebut.

adapun pertannya yang lengkap dan solusi yang diinginkan silahkan para master excel dapat membuka lampirannya.

demikian disampaikan, atas bantuannya saya ucapkan terima kasih.

salam
dep_Har
3b.

Re: penghitungan Rekap Penjualan menggunakan Formula atau Macro

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed May 2, 2012 5:42 pm (PDT)



File terlampir mencoba menyusun rekap berdasar sebuah tabel data yang
berkaidah database.

Wassalam,
Kid.

2012/5/3 depi Hariyanto <depi.hari_yanto@yahoo.co.id>

> **
>
>
> Kepada YTH Rekan2 Excel,
>
> Harapan dan mohon sekali jawaban atas solusi yang pernah saya sampaikan.
>
> Terima kasih
>
> Dep_Har
> ----- Pesan yang Diteruskan -----
> *Dari:* depi Hariyanto <depi.hari_yanto@yahoo.co.id>
> *Kepada:* excel <belajar-excel@yahoogroups.com>
> *Dikirim:* Rabu, 2 Mei 2012 0:16
> *Judul:* [belajar-excel] penghitungan Rekap Penjualan menggunakan Formula
> atau Macro
>
>
> Kepada Master Excel Ysh,
>
> Salam dan mohon bantuannya kembali, saat ini saya menemukan kesulitan
> dalam perhitungan komisi penjualan yg selama ini saya lakukan manual. mohon
> pencerahan formula atau macro yg dapat digunakan untuk perhitungan komisi
> tersebut.
>
> adapun pertannya yang lengkap dan solusi yang diinginkan silahkan para
> master excel dapat membuka lampirannya.
>
> demikian disampaikan, atas bantuannya saya ucapkan terima kasih.
>
> salam
> dep_Har
>
>
>
>
>
4a.

Re: Menghitung Prosentase

Posted by: "harry budiman" harbudiman@gmail.com   harbudiman

Wed May 2, 2012 5:44 pm (PDT)



Terima kasih bantuannya pak..
:) sukses selalu
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Wed, 2 May 2012 08:18:02
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghitung Prosentase

Coba formula pada kolom persentase productivity :
=SUMIF($D$5:$D$13,D5,$E$5:$E$13)/SUMIF($D$5:$D$13,D5,$F$5:$F$13)

Wassalam,
Kid.

2012/5/1 harry budiman <harbudiman@gmail.com>

> **
>
>
> Salam hormat,
> Mohon bantuan utk permasalahan terlampir. Ketika kita melakukan auto
> filter dptkah rumus lansung menghitung brp prosentase dr setiap dealer yg
> dimaksud..lebih detail pada lampiran..
>
> Terima kasih sebelumnya atas bantuanya..
>
> Hatur nuhun
> Harry
>
>
>

5a.

Pantangan rumus IF

Posted by: "Modby Matsnawabi" modbym@gmail.com

Wed May 2, 2012 7:50 pm (PDT)



Dear all,

tanya donk, untuk rumus IF apakah tidak bisa jika kita pake untuk
mencari range :

contoh

=IF(60%>A2<80%,"C","A")

logika yang biasa dalam rumus matematika bisanya di pakai

X = lebih besar dari 40 dan lebih kecil dari 50

maka rumus matematika nya : 40<X<50
5b.

Re: Pantangan rumus IF

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed May 2, 2012 8:01 pm (PDT)



Logikanya yang disesuaikan dengan logika Excel.

=IF( (a2<=60%) * (a2<80%) , "C" , "A" )

Kid.

2012/5/3 Modby Matsnawabi <modbym@gmail.com>

> **
>
>
> Dear all,
>
> tanya donk, untuk rumus IF apakah tidak bisa jika kita pake untuk
> mencari range :
>
> contoh
>
> =IF(60%>A2<80%,"C","A")
>
> logika yang biasa dalam rumus matematika bisanya di pakai
>
> X = lebih besar dari 40 dan lebih kecil dari 50
>
> maka rumus matematika nya : 40<X<50
>
>
5c.

Re: Pantangan rumus IF

Posted by: "raya hidayat" raya.hidayat@gmail.com   raya.hidayat

Wed May 2, 2012 8:07 pm (PDT)



Dear mas modby matsnawabi.

saya baru tahu IF itu punya pantangan ya?

Variasi lebih panjang sedikit dari Mr Kid.

=IF(AND(A2<=60%,A2>80%),"C","A")

2012/5/3 Modby Matsnawabi <modbym@gmail.com>

> **
>
>
> Dear all,
>
> tanya donk, untuk rumus IF apakah tidak bisa jika kita pake untuk
> mencari range :
>
> contoh
>
> =IF(60%>A2<80%,"C","A")
>
> logika yang biasa dalam rumus matematika bisanya di pakai
>
> X = lebih besar dari 40 dan lebih kecil dari 50
>
> maka rumus matematika nya : 40<X<50
>
>

--
Terima kasih

Raya
5d.

Re: Pantangan rumus IF

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Wed May 2, 2012 8:10 pm (PDT)



ikut nimbrung ya..

=IF(F3>100%;"A";IF(F3>80%;"B";IF(F3>60%;"C";IF(F3>40%;"D";"U"))))

bisa juga dengan vlookup, untuk ini saya menggunakan tabel yang saya susun
ulang dengan urutan Ascending, karena dalam contoh jumlah angka di belakang
koma adalah 2 digit, maka untuk tabel ini juga menggunakan 2 digit.

=VLOOKUP(F3;$E$11:$F$16;2;TRUE)

file terlampir

-dwint-

Pada 3 Mei 2012 10:01, Kid Mr. <mr.nmkid@gmail.com> menulis:

> **
>
>
> Logikanya yang disesuaikan dengan logika Excel.
>
> =IF( (a2<=60%) * (a2<80%) , "C" , "A" )
>
> Kid.
>
>
> 2012/5/3 Modby Matsnawabi <modbym@gmail.com>
>
>> **
>>
>>
>> Dear all,
>>
>> tanya donk, untuk rumus IF apakah tidak bisa jika kita pake untuk
>> mencari range :
>>
>> contoh
>>
>> =IF(60%>A2<80%,"C","A")
>>
>> logika yang biasa dalam rumus matematika bisanya di pakai
>>
>> X = lebih besar dari 40 dan lebih kecil dari 50
>>
>> maka rumus matematika nya : 40<X<50
>>
>
>
>
6.

Form Jamsostek terbaru

Posted by: "Joe Dien" shimano02@ymail.com   shimano02@ymail.com

Wed May 2, 2012 7:58 pm (PDT)



Dear Teman-teman milis excel....

Jika teman-teman ada yang punya File Master Fom Jamsostek terbaru.....mohon di sharing ke saya ya.....

atas perhatiannya diucapkan terima kasih,

Warm Regards,
Joedien
7.

Hasil Rekam Solver Tidak Mau Jalan

Posted by: "Kurei recca" yusajing_ehm@yahoo.com   yusajing_ehm

Wed May 2, 2012 8:10 pm (PDT)



Salam Para Master Excel,

Saya sedang membuat macro untuk program optimalisasi dan menggunakan Solver-Add in yang ada di Excel.
Dan saya menggunakan Record Macro untuk mendapatkan codingnya.

Setelah hasil recordnya saya dapat dan saya coba untuk menjalankannya ternyata hasilnya adalah ERROR.

Mohon pencerahannya ya master, berikut saya lampirkan Filenya

Regards,
8a.

Trs: [belajar-excel] Gimana code macro filter u 2 sheet hasil

Posted by: "Ismail Hasmin" ismail_hasmin@yahoo.com   ismail_hasmin

Wed May 2, 2012 8:21 pm (PDT)



Tolong dong gimana solusi caseaku ini, tks

----- Pesan yang Diteruskan -----
Dari: Ismail Hasmin <ismail_hasmin@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 2 Mei 2012 10:03
Judul: [belajar-excel] Gimana code macro filter u 2 sheet hasil


 
Terhomat para Master Excel,

Saya lagi belajar macro otodidak & telah beli beberapa buku namun ternyata susah banget. Jadi case ini awalnya sy ambil dari buku namun keitka saya  mau tambah code macro ternyata hasilnya tidak jalan.  

Mohon solousi gimana code macro untuk filter tujuan/ hasil di 2 sheet (care terlampir) kalau bisa skalian dijelaskan code-codenya, terima kasih.

Hormat saya

smail

.

Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Small Business Group

Share experiences

with owners like you

Yahoo! Groups

Parenting Zone

Tips for family,

kids and living

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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