|
Utk rupiahnya, mungkin boleh dicoba script makro
dibawah ini :
Function Stext(angka As Integer, satu As Boolean)
As String
Select Case angka
Case
1
If (satu) Then Stext = "SATU " Else Stext = "SE"
Case
2
Stext = "DUA "
Case
3
Stext = "TIGA "
Case
4
Stext = "EMPAT "
Case
5
Stext = "LIMA "
Case
6
Stext = "ENAM "
Case
7
Stext = "TUJUH "
Case
8
Stext = "DELAPAN "
Case
9
Stext = "SEMBILAN "
End Select
End Function
Function SSStext(tigaangka As Integer, satu As Boolean) As
String
Dim
ibelas As Integer
Dim
angka3 As Integer
Dim
angka2 As Integer
Dim
angka1 As Integer
Dim
text1 As String
Dim
text2 As String
Dim
text3 As String
angka3 = tigaangka Mod 10
ibelas = tigaangka Mod 100
angka2 = Fix(ibelas / 10)
angka1 = Fix(tigaangka / 100)
'masalah 'seribu'
If
(tigaangka = 1) Then
text3 = Stext(angka3, satu)
Else:
text3 = Stext(angka3, True)
End
If
'masalah belasan
If
(ibelas > 10 And ibelas < 20) Then
If
(ibelas = 11) Then text2 = "SE" Else text2 = text3
text3 = "BELAS "
Else:
'default
If
(angka2 > 0) Then text2 = Stext(angka2, False) + "PULUH "
End
If
If
(angka1 > 0) Then text1 = Stext(angka1, False) + "RATUS "
SSStext = text1 + text2 + text3
End Function
Function Terbilang(angka As Long) As String
Dim
iSat As Integer
Dim
iRib As Integer
Dim
iJut As Integer
Dim
sisa As Long
Dim
temptext As String
iSat = angka Mod 1000
sisa = Fix((angka - iSat) / 1000)
iRib = sisa Mod 1000
sisa = Fix((sisa - iRib) / 1000)
iJut = sisa Mod 1000
If
(iJut > 0) Then temptext = SSStext(iJut, True) + "JUTA "
If
(iRib > 0) Then temptext = temptext + SSStext(iRib, False) + "RIBU "
If
(iSat > 0) Then temptext = temptext + SSStext(iSat, True)
Terbilang = temptext
End Function
salam
----- Original Message -----
Sent: Thursday, June 30, 2005 2:35
AM
Subject: [milis-komputeraktif]
Permasalahan Excel {03}
Pak Pur
Terima kasih
masukannya.
Saya tunggu file xls/xla
nya.
Widodo
-
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
On Behalf Of Pak
Rur
Sent: Thursday, June 30, 2005 4:32
PM
To:
milis-komputeraktif List Member
Subject: [milis-komputeraktif]
Permasalahan Excel {02}
Logikanya, kalo fungsi
bawaan dari Excel untuk keperluan tsb, harusnya belum ada.
Dan memang tidak
ada.
Jadi kita (yg berbhs
indonesia) harus bikin fungsi sendiri (terpaksa menggunakan
macro yg ditulis
dengan vba / tidak bisa hanya macro ex
perekaman)
Hal ini pernah pula
dibahas di Tabloid PCPlus.
Di milis sebelah beberapa
hari y.l ada juga yg mengirim posting
mengenai hal sama, dengan
gaya lain yaitu vba codingnya dijadikan
add-in bukan sekedar macro
yg berlaku di workseet setempat.
Bila dikehendaki akan saya
kirimkan codingnya atau bila perlu
file xls / xla
nya.
----- Original Message
-----
From: "Widodo, Wahyu
(Indonesia)" <[EMAIL PROTECTED]>
To: "milis-komputeraktif List Member"
<milis-komputeraktif@news.gramedia-majalah.com>
Sent: Thursday, June 30,
2005 2:07 PM
Subject:
[milis-komputeraktif] Permasalahan Excel {01}
Rekan-rekan
Milis
Saya mengalami kesulitan
untuk mengubah angka nominal menjadi angka
kardinal dalam Microsoft
Excel (mis. "Rp 4.500.000" menjadi "Empat Juta
Limaratus Ribu
Rupiah"). Apakah ada teman-teman yang pernah mengalami
masalah serupa dan sudah
mendapatkan pemecahannya? (tanpa harus
melakukan programming
dengan VBA). Saya pernah melihat
fungsi
=BAHTTEXT(), tapi belum
menemukan fungsi serupa untuk mata uang lain.
Logikanya kalau dengan
alfabet Thai yang "rumit" bisa, tentunya dengan
alfabet internasional
standar yang lain juga bisa.
Saya pernah membaca kalau
di MailMerge untuk Microsoft Word,
cukup
menambah switch
*\CardText, tapi bagaimana dengan program Microsoft
Excel ya? Sekali lagi saya
ucapkan terima kasih atas bantuannya.
Wahyu Widodo
-
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
Mailing List
KomputerAktif
milis-komputeraktif@news.gramedia-majalah.com
Arsip
http://www.mail-archive.com/milis-komputeraktif@news.gramedia-majalah.com/
------------------------------------------------
untuk berlangganan kirim
mail kosong ke :
[EMAIL PROTECTED]ramedia-majalah.com
untuk berhenti
berlangganan kirim mail kosong ke:
[EMAIL PROTECTED]
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
Mailing List KomputerAktif
milis-komputeraktif@news.gramedia-majalah.com
Arsip
http://www.mail-archive.com/milis-komputeraktif@news.gramedia-majalah.com/
------------------------------------------------
untuk berlangganan kirim mail kosong ke :
[EMAIL PROTECTED]
untuk berhenti berlangganan kirim mail kosong ke:
[EMAIL PROTECTED]
| 