Messages In This Digest (7 Messages)

1a.: Macro Excel Konversi Rupiah dari Angka ke Huruf From: Udi Kusworo
1b.: Re: Macro Excel Konversi Rupiah dari Angka ke Huruf From: Haps

2a.: Re: belajar formula OFFSET From: Haps

3a.: Re: SISTEM INFORMASI SURAT From: Haps

4a.: Re: Data DateTime yg ditekuk-tekuk... From: Haps

5a.: Re: Bls: [belajar-excel] manampilkan data sebelum kolom terakhir From: basyoir Bas

6a.: Fwd: Mencari data terpakai dan tidak terpakai, dst. From: Kid Mr.

View All Topics | Create New Topic

Messages

1a.: Macro Excel Konversi Rupiah dari Angka ke Huruf

Posted by: "Udi Kusworo" udikusworo@yahoo.com udikusworo

Sat Dec 10, 2011 5:36 am (PST)

Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan excel, coba baca artikel ini, barangkali bermanfaat.

http://exceltrik.wordpress.com/2011/12/10/macro-excel-konversi-rupiah-dari-angka-ke-huruf/

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1b.: Re: Macro Excel Konversi Rupiah dari Angka ke Huruf

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Sat Dec 10, 2011 2:57 pm (PST)

Terima kasih links nya,

Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering
dibicarakan mengenai
"'TERBILANG" (=istilah untuk "proses mengkonversi ANGKA ke KATA-KATA ,
MISAL 1
MENJADI "SATU")
File nya pun sebagian besar sudah di 'awetkan' di Link FILES. Tidak di
proteksi karena
memang diberikan sebagai pembelajaran

Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh
pak Kuswo)
di milis ini malah sudah sering pula membicarakan * *TERBILANG TANPA MAKRO*
( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define Name )
* Terbilang dlm Bahasa Inggris
* Terbilang khsus 999,99 (terbilang nilai rapor)
Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan...
http://tech.groups.yahoo.com/group/belajar-excel/files/
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Terbilang-Nilai-untuk-memudahkan-penulisan-Rapor-td4337673.html
dan manyak lagi...

Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata
VBAProjectnya di LOCKED.
Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
Tetapi setelah dilihat "dengan cara mengintip"nya; kelihatan vba-code (
makro)nya hanya
seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)

'---------- modul standar----------------------
Option Explicit
Dim strHasil As String

Public Function Kwitansi(ByVal nNilai As Currency) As String
Dim Grade As Variant
Dim strTerbilang As String
Dim strPart As String
Dim iGrade As Byte

Grade = Array("Milyar ", "Juta ", "Ribu ", "")
strTerbilang = ""

If Len(CStr(nNilai)) > 12 Then
strTerbilang = "Melewati batas konversi"
Else
strPart = Format(nNilai, String(12, "0"))
For iGrade = 1 To 4
If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
strHasil = ""
Call GetRatus(Mid(strPart, (iGrade - 1) * 3 + 1, 3), iGrade)
strTerbilang = strTerbilang & strHasil
strTerbilang = strTerbilang & Grade(iGrade - 1)
End If
Next iGrade
End If

Kwitansi = strTerbilang & " Rupiah"

End Function

Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
Dim Angka1 As Variant, Angka2 As Variant
Dim i As Integer
Dim nTemp As Byte

Angka1 = Array("Satu ", "Dua ", "Tiga ", "Empat ", _
"Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
Angka2 = Array("Ratus ", "Puluh ", "")

For i = 1 To 3
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 1 Then
If i = 1 Then
strHasil = "Seratus "
ElseIf i = 2 Then
i = i + 1
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 0 Then
strHasil = strHasil & "Sepuluh "
ElseIf nTemp = 1 Then
strHasil = strHasil & "Sebelas "
Else
strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
End If
ElseIf Val(strPart) = 1 And iGrade = 3 Then
strHasil = strHasil & "Se"
Else
strHasil = strHasil & "Satu "
End If

ElseIf nTemp <> 0 Then
strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
End If
Next i
End Sub

Public Function KwitansiUcase(ByVal nNilai As Currency)
KwitansiUcase = UCase(Kwitansi(nNilai))
End Function
'----------------------------

*Sedikit kesimpulan:*
[] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan
(angka
setelah tanda_pemisah_Desimal)
[] bagian bilangan pecahan dibulatkan ke satuan penuh
[] penyebutan 1000 = ("Seribu") tertulisnya ("SeRibu")
[] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
anda akan mengalami sedikit kesulitan
=Substitute(Kwitansi(189765), "Rupiah", "Pikul")

2011/12/10 Udi Kusworo <udikusworo@yahoo.com>
> Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan
excel, coba baca artikel ini, barangkali bermanfaat.
>
http://exceltrik.wordpress.com/2011/12/10/macro-excel-konversi-rupiah-dari-angka-ke-huruf/

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

2a.: Re: belajar formula OFFSET

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Sat Dec 10, 2011 3:36 pm (PST)

Gambar di bawah ni seharusnya cukup menjelaskan maksud fungsi OFFSET
tetapi jika kurang lengkap anda dapat mengunduh
kelengkapnnya<http://www.box.com/shared/m8xzyafe5g>di
http://www.box.com/shared/m8xzyafe5g

[image: visual offset.PNG]
------------------------------------------------------

Lebih baik lagi kalau MAU: membuka help fungsi tsb ...

Caranya ?
* select salah-satu cell misal cell F16
* ketikkan *=OFFSET(*
* klik simbol* fx* yg ada di sebelah kirinya
* pada [DialogBox Function Arguments] yg tiba-tiba muncul, lihat pojok kiri
bawah
(link "help on this function")
* ya "liatin" aja dulu.... kalau sudah 1 jam kurang 7 detik, baru di-ceklik

2011/12/10 neza ibaneza <nezaibaneza@yahoo.co.id>
>
> Dear all.
> mohon penjelasannya para master,
> fungsi OFFSET bisa digunakan untuk apa saja..
> dan sinonim dari rumus ini apa ya?
> Regards
> Neza

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

3a.: Re: SISTEM INFORMASI SURAT

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Sat Dec 10, 2011 4:37 pm (PST)

Dear Arumi,

kode dapat dilihat di *module*
module ada di *VBE* (visual basic editor)
VBE dapat dimunculkan dengan : (tab Developer) > VisualBasic
atau di excel 2003 Tools > Macro > Visual Basic Editor
atau (excel 2003 maupun 2007) keyboard shortcut : *Alt + F11*

tiap *object* di excel (workbook, worksheet, userform, classbaru) punya
module sendiri²
selain itu ada module yg dapat dibuat sendiri, tidak secara khusus
menampung
code yg berkaitan dengan object (*standard module*), tetapi di dalam
standard module
ini tetap bisa ditulis code untuk menghadel object manapun.

[image: project explorer.PNG]

------------------------

2011/12/10 Harumi Wanasita <hwanasita@yahoo.com>
> Assalamualaikum Wr. Wb.
> kebetulan saya juga sedang buat program ini. tp ada kesalahan mensave
lampiran ini.
> pada tombol data entri tidak muncul form data entri mbak. sdh saya ulang
lagi downloadnya
> tetep aja ga bisa buka. seperti hilang gitu. knp ya? sy mau lihat kodenya
gmn ya?
> thanks

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)

4a.: Re: Data DateTime yg ditekuk-tekuk...

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Sat Dec 10, 2011 7:38 pm (PST)

RUMUSNYA jangan hanya =G5 kek,...
tetapi
=SUBSTITUTE(G5, CHAR(10), "")

di sini jadi ketahuan rhs-nya bahwa character ascii no.10 itu
punya tugas "ganti baris" / Carriage Return / Line Feed

Menuliskan character ascii no 10
* di cell langsung: ALt + Enter
* di FORMULA = CHR(10)
(termasuk di Custom Numbers Formatting)
* di string : *Alt **010* (gunakan tombol² numeric pad)
[image: numericpad.jpg]

@ Untuk pak S.Pd
sebenarnya lampiran workbook dari haps sudah merupakan jaawaban
tidak perlu menunggu 3 hari dari kemarin...

*2011/12/10 yulian nugroho <yuliannug@gmail.com>
> mbah uti,
> kalo mau nyalin data hasil "Alt+Enter" supaya hilang format "ganti
spasinya" bigimana ya?
> silahkan tengok g5 untuk data yang mau disalin, g7 untuk salinan yang
gagal, g9 untuk hasil yang diinginkan di file terlampir
> mbah suster,
> kalo si kawan kena kanker, coba rebusan daun sirsak (ingat bukan buahnya
ya)
> smoga cucok dan membawa kesembuhan
> bataman*
>
> 2011/12/10 Haps <hapsari.stlizbeth@gmail.com>
>> Seorang anak SMK Kelas 1, datang dari Grobogan, kota kecil di Jawa
Tengah,
>> ucluk-ucluk-ucluk..
>> mbak bagaimana cara memformat data tanggal (dalam SATU CELL) agar bisa
di-Wrapped ?
>> Lha wong data DATE, bukan data TEXT kok mau di format Wrap, ngawur ae
kowe ki !!
>> "Kalo ndak bisa, jangan pernah panggil aku 'mbak suster ngesott' "!
sambil -----

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

5a.: Re: Bls: [belajar-excel] manampilkan data sebelum kolom terakhir

Posted by: "basyoir Bas" basyoir_bas@yahoo.com

Sat Dec 10, 2011 10:36 pm (PST)

dear all,

alhamdulillah, syukron katsiiir atas pencerahannya.
wassalam,
Bas

________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sent: Saturday, December 10, 2011 4:25 PM

untuk kondisi yang diasumsikan oleh mr kid juga merupakan hal yang tidak boleh diabaikan begitu saja.
karena dalam realitanya segala kemungkinan bisa muncul , yang kadang kadang tidak diduga sebelumnya .
untuk antisipasi kondisi ini saya menawarkan alternatif formula fleksible.
artinya input range data bisa terisi semuanya atau ada sebagian terisi berselang seling dengan cell kosong dan input data bisa abjad bisa angka atau gabungan keduanya dan semuanya bisa dihandle oleh formula ini.
formulanya (formula array)

{=INDEX(A3:J3;LARGE(IF(LEN(B3:J3);COLUMN(B3:J3));2))}
copy ke bawah

wassalam
Ghozi Alkatiri

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

6a.: Fwd: Mencari data terpakai dan tidak terpakai, dst.

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

Sat Dec 10, 2011 11:29 pm (PST)

---------- Forwarded message ----------
From: ifin <ari_mantap2000@yahoo.com>
Date: 2011/12/11
Subject: Mencari data terpakai dan tidak terpakai, dst.
To: belajar-excel-owner@yahoogroups.com

Maaf baru bergabung, dan ingin langsung bertanya
tentang
Mencari data terpakai dan tidak terpakai, dst
menggunakan macro.
karena yang biasa saya gunakan adalah manual
dengan file terlampir.

terima kasih dan salam kenal

---ari---

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

EXCEL FEED

Minggu, 11 Desember 2011

[belajar-excel] Digest Number 1433

Messages In This Digest (7 Messages)

Messages

Macro Excel Konversi Rupiah dari Angka ke Huruf

Posted by: "Udi Kusworo" udikusworo@yahoo.com udikusworo

Sat Dec 10, 2011 5:36 am (PST)

Re: Macro Excel Konversi Rupiah dari Angka ke Huruf

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Sat Dec 10, 2011 2:57 pm (PST)

Re: belajar formula OFFSET

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Sat Dec 10, 2011 3:36 pm (PST)

Re: SISTEM INFORMASI SURAT

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Sat Dec 10, 2011 4:37 pm (PST)

Re: Data DateTime yg ditekuk-tekuk...

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Sat Dec 10, 2011 7:38 pm (PST)

Re: Bls: [belajar-excel] manampilkan data sebelum kolom terakhir

Posted by: "basyoir Bas" basyoir_bas@yahoo.com

Sat Dec 10, 2011 10:36 pm (PST)

Fwd: Mencari data terpakai dan tidak terpakai, dst.

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

Sat Dec 10, 2011 11:29 pm (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me