Forum Komunikasi Alumni Teknokrat

Forum ini ditujukan untuk seluruh Alumni Perguruan Tinggi Teknokrat
 
IndeksIndeks  PortalPortal  GalleryGallery  PendaftaranPendaftaran  LoginLogin  
December 2016
SunMonTueWedThuFriSat
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarCalendar
User Yang Sedang Online
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

User online terbanyak adalah 18 pada Mon Oct 24, 2011 5:24 pm
Isi BukuTamu

ShoutMix chat widget
Top posters
ironman2000
 
emo
 
jopungxxx
 
ironman2099
 
syaiful
 
mcloud
 
nandosss_2005
 
Risma
 
Admin
 
hesti rosmiah
 
Latest topics
Social bookmarking
Social bookmarking Digg  Social bookmarking Delicious  Social bookmarking Reddit  Social bookmarking Stumbleupon  Social bookmarking Slashdot  Social bookmarking Furl  Social bookmarking Yahoo  Social bookmarking Google  Social bookmarking Blinklist  Social bookmarking Blogmarks  Social bookmarking Technorati  

Bookmark and share the address of Forum Komunikasi Alumni Teknokrat on your social bookmarking website

Bookmark and share the address of Forum Komunikasi Alumni Teknokrat on your social bookmarking website

Share | 
 

 Terbilang Excel

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
xko_wahyudi



Jumlah posting : 14
Join date : 04.11.08
Age : 34
Lokasi : Bandar Lampung

PostSubyek: Terbilang Excel   Wed Dec 17, 2008 5:52 pm

Sebuah perjalanan panjang mengisi hari-hariku dalam satu minggu ini. Ternyata akhirnya situs ini kelar juga. Sebuah tulisan pertama akan saya tulis yaitu tentang fungsi Macro TERBILANG pada Microsoft Excel. Untuk itu saya akan coba memaparkannya bagi Anda yang mudah-mudahan dapat terbantu dalam melaksanakan tugas-tugas pekerjaan di kantornya seperti teman saya yaitu operator komputer di sebuah sekolah menengah atas yang setiap bulannya harus membuat laporan keuangan yang didalamnya terdapat script TERBILANG yang harus dituliskan pada setiap kwitansi. Menuliskan secara manual sangat melelahkan dan membutuhkan ketelitian terhadap angka rupiahnya. Berikut ini langkah-langkah pembuatannya:
Langkah pertama yaitu bukalah program Microsoft Excel
Langkah kedua yaitu klik menu Tool, Macro, Security
Berikutnya pilih Medium atau Low kemudian lalu klik OK dan tutup program Microsoft Excel
Buka kembali program Microsoft Excel-nya
Lalu klik menu Tool, Macro, Visual Basic Editor atau bisa langsung tekan tombol Alt+F11
Setelah muncul jendelanya, klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri
Maka akan muncul menu, dari menu tersebut pilihlah Insert, Module
Selanjutnya ketik script di bawah ini pada kotak isian modul tersebut (”Book1 - Module1 (Code)”) atau anda tinggal blok/select lalu copy dan paste pada kotak isian modul.

Option Explicit

Public Function TERBILANG(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = “RIBU “
letak(2) = “JUTA “
letak(3) = “MILYAR “
letak(4) = “TRILYUN “

If (x < 0) Then
TERBILANG = “”
Exit Function
End If

If (x = 0) Then
TERBILANG = “NOL”
Exit Function
End If

If (x < 2000) Then
tanda = True
End If
teks = “”

If (x >= 1E+15) Then
TERBILANG = “NILAI TERLALU BESAR”
Exit Function
End If

For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
TERBILANG = teks
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = “SE”
angka(2) = “DUA “
angka(3) = “TIGA “
angka(4) = “EMPAT “
angka(5) = “LIMA “
angka(6) = “ENAM “
angka(7) = “TUJUH “
angka(Cool = “DELAPAN “
angka(9) = “SEMBILAN “

Dim posisi(2)
posisi(1) = “PULUH “
posisi(2) = “RATUS “

bilang = “”
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = “BELAS “
Else
angka(y) = “SE”
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next

If (flag = False) Then
angka(1) = “SATU “
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function

Setelah script di atas diketik, lalu simpan file lembar kerja Excel tersebut dengan nama file “TERBILANG.XLS”. Maka sudah siap deh lembar kerja tersebut dipakai. Cara menggunakannya tinggal anda ketik fungsinya yaitu ucapangka. Sebagai contoh coba anda isikan 1974 pada sel A1, lalu pada sel B1 tuliskan “=TERBILANG(A1)” maka setelah anda menekan enter akan muncul tulisan “SERIBU SEMBILAN RATUS TUJUH PULUH EMPAT” pada sel B1.

Mudah bukan? Langkah di atas sudah saya coba dan berhasil, kalau masih tidak muncul atau muncul pesan kesalahan error berarti macro masil belum benar, coba periksa kembali langkah-langkahnya atau biasanya kesalahan terjadi pada tanda kutip, coba rubah/ganti secara manual tanda kutipnya.

Selamat mencoba semoga bermanfaat
.: Dokumentasi xko_productions:.
Kembali Ke Atas Go down
Lihat profil user http://www.aishiteru204.wordpress.com
 
Terbilang Excel
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum Komunikasi Alumni Teknokrat :: Ngobrol IT :: Programming-
Navigasi: