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 [email protected], 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 >
