Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 3 de maio de 2012

]] XL-mania [[ Re: Rumus MENGEKSTRAK data Bilangan agar menjadi 1 digit saja.

 

coba,

jika data bertipe text atau number, tidak lebih dari 9 digit
=(1+MOD(B6-1,9))*(B6<>0)

jika data bertipe number, tidak lebih dari 9 digit
=IF(B6,1+MOD(B6-1,9),0)

jika data bertipe number, dan dapat lebih dari 9 digit
=IF(B6,1+MOD(SUMPRODUCT(--MID(B6,ROW(INDIRECT("1:"&LEN(B6))),1))-1,9),0)

jika data dapat berupa angka yang bertipe text (tanpa tanda koma atau titik), dan dapat lebih dari 9 digit (misal 100 digit)
=(1+MOD(SUMPRODUCT(--MID(B48,ROW(INDIRECT("1:"&LEN(B48))),1))-1,9))*(B48<>0)


>semoga bermanfaat


--- In XL-mania@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
> 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:
> 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, bantuan dan komentar sangat dihargai dan untuk itu sebelumnya
> kami ucapkan terima kasih
> Sesudah mendapat solusi/tanggapan) kami juga akan mengucapkan terima
> kasih lagi (mungkin via japri) tanda "Anggukan dan Senyuman" tulus kami
> sbg ucapan terima kasih karena pertanyaan mendapat tanggapan & masukan ...
> Saat ini, hal spt ini sepertinya sudah mahal / dilupakan oleh para members.
>
> wassalam & kindest regards,
> ~ siti
>

__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog