Kamis, 29 Mei 2014

[belajar-excel] Digest Number 2950

4 Messages

Digest #2950

Messages

Wed May 28, 2014 9:33 pm (PDT) . Posted by:

"Nora Ismanti" noraismanti

Kepada para Master dan Anggota milis.

Mohon dibantu bagaimana mengubah angka menjadi teks. Yang saya maksudkan BUKAN terbilang.

Agar lebih jelas, silakan lihat pada lampiran.

Wed May 28, 2014 9:53 pm (PDT) . Posted by:

"Ferry Setiawan" ferry_2005_skom

Ini mirip terbilang sih, cuma lebih sederhana, kalau cara saya biasa pake
UDF aja
Jadi buka VBA, insert module, trus masukkan function dibawah

Function BukanTerbilang(vAngka As String) As String
Dim i As Integer
Dim vStr As String
vStr = vbNullString
For i = 1 To Len(vAngka)
Select Case Mid(vAngka, i, 1)
Case 0: vStr = vStr + "nol "
Case 1: vStr = vStr + "satu "
Case 2: vStr = vStr + "dua "
Case 3: vStr = vStr + "tiga "
Case 4: vStr = vStr + "empat "
Case 5: vStr = vStr + "lima "
Case 6: vStr = vStr + "enam "
Case 7: vStr = vStr + "tujuh "
Case 8: vStr = vStr + "delapan "
Case 9: vStr = vStr + "sembilan "
End Select
Next i
BukanTerbilang = Trim(vStr)
End Function

Nanti di worksheet tinggal anda gunakan fungsinya
Contoh :
=BukanTerbilang(A1)

Pada 29 Mei 2014 11.17, Nora Ismanti noraismanti@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Kepada para Master dan Anggota milis.
>
> Mohon dibantu bagaimana mengubah angka menjadi teks. Yang saya maksudkan
> BUKAN terbilang.
>
> Agar lebih jelas, silakan lihat pada lampiran.
>
>
>

Wed May 28, 2014 10:28 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Tanpa VBA akan membuat formula terkesan panjang dan pada xl2003 ke bawah
harus menggunakan kolom bantu atau nama range.
Misal hasil di cell B1 dengan bunyi formula :
=trim(substitute(substitute(substitute(substitute(substitute(substitute(substitute(substitute(substitute(substitute(a1,0,"nol
"),1,"satu "),2,"dua "),3,"tiga "),4,"empat "),5,"lima "),6,"enam
"),7,"tujuh "),8,"delapan "),9,"sembilan "))
*** jika regional setting komputer setempat adalah Indonesian, ganti
seluruh karakter koma dengan karakter titik koma

Dengan VBA, berarti menggunakan UDF (user defined function). Misal diberi
nama AngkaToTeks. Di sebuah general module di VBE diberi blok prosedur
function berikut :
public function AngkaToTeks( sData as string) as string
dim sTeks() as string,lAngka as long
steks=split("nol |satu |dua |tiga |empat |lima |enam |tujuh |delapan
|sembilan ","|")
for lAngka=0 to 9
sdata=replace(sdata,langka,steks(langka))
next langka
angkatoteks=trim(replace(sdata," ",vbnullstring))
end function

dengan cara pakai di cell untuk data di A1, misal diletakkan di C1, maka
cell C1 berisi formula berbunyi :
=AngkaToTeks( a1 )
*** pastikan general module di VBE yang berisi prosedur function
AngkaToTeks ada disetiap workbook yang membutuhkan UDF AngkaToTeks.
*** workbook yang sudah berisi prosedur function AngkaToTeks di VBE di-save
as dengan tipe file Macro Enabled Workbook (.xlsm)
*** jika ingin menjadikannya sebagai sebuah addin, maka save as dengan tipe
Excel Add-in (.xlam) atau Excel 97-2003 Add-in (.xla) dan copy file
tersebut ke komputer yang membutuhkan UDF AngkaToTeks. Aktifkan addin dan
kompiter tersebut akan bisa menggunakan UDF angkatoteks.

Wassalam,
Kid.

2014-05-29 11:17 GMT+07:00 Nora Ismanti noraismanti@yahoo.com[belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> Kepada para Master dan Anggota milis.
>
> Mohon dibantu bagaimana mengubah angka menjadi teks. Yang saya maksudkan
> BUKAN terbilang.
>
> Agar lebih jelas, silakan lihat pada lampiran.
>
>
>

Thu May 29, 2014 4:32 am (PDT) . Posted by:

"odongnando@yahoo.com"

Wah, syg skli ya...
Padahal di aplikasi spare sheet yg lain, lebar list data validation na mengikuti text terpanjang dari data yg tmpak pd list...

Okay dah, makasi yaw...

Dikirim dari Yahoo Mail pada Android

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 06.42

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)