Pada worksheet ini kita memakai fungsi terbilang yang telah di entry pada module Terbilang
Pada module tersebut kita memiliki dua fungsi utama untuk menampilkan angka menjadi:
1. Terbilang(x) -> sekian koma sekian per seratus
2. TerbilangRp(x) -> sekian rupiah sekian sen
2. TerbilangSen(x) -> sekian koma sekian sekian
Penggunaannya sama dengan penggunaan fungsi-fungsi dalam excel lainnya.
Contoh 922,337,203,685,477.00
Ditulis : = TerbilangRp(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh rupiah
Ditulis : = Terbilang(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh
Memasukkan Fungsi Terbilang
Masukkan Kode dalam listing vba function dengan cara mengcopy seluruh kode
ke dalam module Vba dalam suatu worksheet.
1. Blok/sorot A1:A163 dan Copy atau Ctrl-C pada Sheet Listing Vba Function
2. Pilih Tool - Macro - Visual Basic Editor atau Alt-F11
3. Insert - Module
4. Edit - Paste atau Ctrl-V
5 File Save … Beri nama misalnya: BacaAngka atau yang lainnya
selesai
anda tinggal menggunakannya.
contoh
!!!! Ingat anda harus men-setup macro security ke medium !!!!
Caranya
1 Menu Tools pilih tab Security lalu
2 Tekan tombol Macro Security pilih option Medium tekan Ok
3 Tutup Microsoft Excell dan Exit dari Excell
4 Buka Microsoft Excell
5 Mulai
LISTING
‘This Public Function for Indonesian “Numeric to string Converstion”
‘You can copy, modify or take part of this function
‘Redesign and retouch to get new rupiah function by: aurinoradjamaris@yahoo.com
‘aurinodjamaris@gmail.com
Web Site:
Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
Terbilang = ““
Exit Function
End If
‘jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
‘triliun = Int(x / 1000 ^ 4)
‘milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
‘juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
‘ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
’satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
’sen = Int((x - Int(x)) * 100)
‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun “
End If
‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “milyar “
End If
‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “juta “
End If
‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “ribu “
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” + Ratus(sen, 0) + “per seratus “
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Public Function TerbilangRp(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangRp = ““
Exit Function
End If
‘jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun “
End If
‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “milyar “
End If
‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “juta “
End If
‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “ribu “
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1) + “”
End If
’sebelum bagian sen
baca = baca & “rupiah “
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + Ratus(sen, 0) + “sen “
End If
End If
TerbilangRp = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Function Ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)
If a100 = 1 Then
baca = “Seratus “
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + “ratus “
End If
End If
‘baca bagian puluhan dan satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + “puluh “
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
Ratus = baca
End Function
Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = “Nol”
Case 1:
If Posisi 2 Then
angka = “Satu “
Else
angka = “Se”
End If
Case 2: angka = “Dua “
Case 3: angka = “Tiga “
Case 4: angka = “Empat “
Case 5: angka = “Lima “
Case 6: angka = “Enam “
Case 7: angka = “Tujuh “
Case 8: angka = “Delapan “
Case 9: angka = “Sembilan “
Case 10: angka = “Sepuluh “
Case 11: angka = “Sebelas “
Case 12: angka = “Duabelas “
Case 13: angka = “Tigabelas “
Case 14: angka = “Empatbelas “
Case 15: angka = “Limabelas “
Case 16: angka = “Enambelas “
Case 17: angka = “Tujuhbelas “
Case 18: angka = “Delapanbelas “
Case 19: angka = “Sembilanbelas “
End Select
End Function
Public Function TerbilangSen(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1E+15 Then
TerbilangSen = ““
Exit Function
End If
x = Round(x, 2)
‘jika x adalan 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
‘triliun = Int(x / 1000 ^ 4)
‘milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
‘juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
‘ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
’satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
’sen = Int((x - Int(x)) * 100)
‘baca bagian triliun dan ditambah akhiran trilliun
If triliun > 0 Then
baca = Ratus(triliun, 5) + “triliun “
End If
‘baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = baca + Ratus(milyar, 4) + “milyar “
End If
‘baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + Ratus(juta, 3) + “juta “
End If
‘baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + Ratus(ribu, 2) + “ribu “
End If
‘baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + Ratus(satu, 1)
End If
‘baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + “koma ” + angka(Left(sen, 1), 1) + angka(Right(sen, 1), 1)
End If
End If
TerbilangSen = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Macro Kata Ulang
Dalam penulisan bahasa Indonesia dan Melayu, seringkali kita menggunakan kata ulang. Sebagai contoh kata masing-masing, tamu-tamu, jalan-jalan dan lain sebagainya. Untuk mempercepat pengetikan maka kita dapat menggunakan macro dengan listing di bawah ini Untuk membuatnya maka copykan macro ini ke menu Tools - Macro sehingga muncul dialog box seperti di bawah ini. Kemudian ketik kata “ulang” pada Macro Name: dan tekan tombol perintah Create
Selanjutnya akan muncul window baru sebagai berikut:
Copykan perintah dibawah ini kedalam window sehingga menjadi sebagai berikut::
Klik toolbar atau menu File – Save Normal, dan tutup windows tersebut.
Agar macro tersebut dapat di akses dengan menekan tombol ALT –U, maka langkah selanjutnya adalah sebagai berikut::
1. menu Tools – Customize sehingga muncul dialog seperti di bawah ini, kemudian geser Catagories sampai ketemu dengan Macros dan click pada kata tersebut untuk memastikan bahwa macro telah dimasukkan yaitu pada Commands: Normal.NewMacros.Ulang
2. Tekanlah tombol perintah Keyboard pada Customize dialog sehingga muncul sebagai berikut
3. Selanjutnya pada click pada Press new shortcut key , dan tekanlah Alt-U, kemudian Clik tombol perintah Assign, selanjutnya Close Customize Keyboard dialong dan Close Customize dialog.
Sekarang anda dapat mencoba menuliskan kata-kata ulang dengan mengetikkan hanya sekali dan Alt-U
Listing Macro Ulang
Sub Ulang()
‘
‘ Ulang Macro
‘ Makro ini digunakan untuk membuat kata ulang yang banyak
‘ digunakan dalam pengetikan kata di bahasa indonesia dan melayu
‘ Sebagai contoh kata Masing-masing, jalan-jalan dll.
‘ Untuk mengetikan kata-kata tsb kita cukup menuliskan satu kata
‘ kemudian menekan dan tahan tombol Alt - dan tekan tombol U pada Keyboard
‘ Macro recorded 3/8/2007 by Aurino R A Djamaris
‘ mailto: aurinodjamaris@gmail.com
‘
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=”-”
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.TypeBackspace
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Range.Case = wdLowerCase
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.TypeText Text:=” “
End Sub
BAGAIMANA AGAR EXCEL MENGENALI DATABASE KITA
Untuk dapat mengakses atau menggunakan perintah dan fungsi menu Data maka perlu mengenali data kita sebagai sebuah (misalnya fungsi dasar Sort dan Filter atau fungsi yang lebih lanjut yaitu Form, Subtotals dan Pivot Table).
DATABASE yang dimaksud adalah sekelompok column (yang biasa disebut fields oleh ahli database) yang memiliki judul tunggal untuk masing-masing column. Pilihlah format yang berbeda untuk cell judul, sehingga Excel mengenali tabel kita dan memperlakukan data tersebut sebagai sebuah DATABASE. Biasanya kita dapat menggunakan font tebal (bold font) sebagai judul dan diberi garis atau kotak sebagai batas antara judul (field) dengan datanya. Gunakan pemotongan kalimat (Text Wrap) melalui menu “Format/Cells/Alignment” untuk menuliskan data yang panjang dan gunakan “Alt/Enter” untuk memotong kalimat. Ingat satu data satu sel (lihat syarat data).
Database harus dikelilingi oleh baris-baris kosong (di atasnya atau di bawahnya) dan kolom-kolom kosong. Kalau database dimulai dari cell A1, maka kita tidak perlu menambahkan baris dan kolom kosong pada bagian kiri dan atasnya.
Database Excel mulai dari cell judul sampai baris terakhir (yang biasa disebut sebagai record oleh ahli database) dan berisi setidaknya satu nilai pada setiap kolom atau fields.
Untuk memastikan bahwa database kita dikenali oleh Excel, maka click pada salah satu sel yang berisi data atau judul dan gunakan menu Edit/Go to/Specials/Current Region. Bagian yang dipilih/disorot adalah database.
Berikut 4 contoh data Excel sebagai database dimana 3 contoh tidak dikenal dan satu contoh yang dianggap sebagai database.
Data berikut ini tidak dianggap sebagai sebuah database oleh Excel karena terdapat dua baris judul.
Data di bawah ini bukan database Excel karena baris ke dua (2) tidak kosong?
Data di bawah ini bukan database because kolom-kolom B, D, F dan H kosong (tidak berisi data). Hapus kolom yang kosong maka kita akan mendapatkan sebuah database yang dikenali oleh Excel.
Sedangkan tabel di bawah ini dikenali oleh Excel sebagai database. Terdapat 5 field (kolom) yaitu; ….. dan 7 record (baris data). Kolom E tidak kosong, ada sel judulnya dan baris ke 4 tidak kosing karena ada data pada field 1. Boleh terdapat banyak sel yang kosong dalam sebuah database database (kecuali sel-sel judul)tetapi tidak boleh ada baris-baris atau kolom-kolom yang kosong.
Daftar Pilihan Isi (Drop-down Lists)
- Mudah sekali untuk membuat daftar pilihan isi untuk suatu sel atau range tertentu. Pilihlah sebuah sel atau sekelompok/range sel (misalnya sel A1:A20) kemudian klik menu “Data/Validation”, sehingga muncul Data Validation Dialog Box, kemudian pilih “List” pada text box “Allow”. Sedangkan dalam text box “Source” tulislah nilai atau kata-kata yang dijadikan pilihan isi dengan membatasi dengan koma “,” misalnya (Peserta, Aurino, Andi, Dika). Klik OK.
Setelah selesai kita pilih sel A1 to A20, maka panah kecil akan muncul di ujung kanan sel. Jika kita meng-klik panah tersebut maka pilihan isi akan muncul dan jika kita pilih salah satu akan langsung masuk ke dalam sel tersebut.
Pembahasan lebih lanjut mengenali Data Validation ini akan dilanjutkan pada pembahasan khusus mengenali dan range name.
Lanjutan Excel Tip Dasar
Memasukkan Tanggal
Untuk mengetikkan tanggal hari ini kita dapat menggunakan cara tahan tombol CTRL dan tekan titik koma(;). Sedangkan untuk memasukkan jam tahan CTRL/SHIFT dan tekan titik dua(:)
Jika kita ingin memasukkan tanggal hari ini dan berubah setiap saat kita membuka spreadsheet tersebut, maka gunakan rumus (formula) =Now() dan format sel tersebut untuk menunjukkan tanggal. Jika kita mengubah formatnya dengan format jam (time), maka sel tersebut akan menunjukkan jam pada saat kita terakhir kali membuka workbook tersebut.
Angka Nol
Jika kita mempunyai tabel yang banyak menggunakan formula dalam spreadsheet dan kita tidak ingin menampilkan angka “0″ maka pakailah “Tools/Options/View” dan pilihlah untuk menyembunyikannya dengan memberi tanda check (?) “Zero Values”.
Gambar Nyusul ya
Akan tetapi jika kita ingin menyembunyikan hanya yang ada di tabel dan tidak di jumlahnya (yang biasanya diletakkan pada akhir baris atau akhir kolom) maka kita gunakan “Format/Conditional Formatting” dan pilih warna putih (”white”) untuk font yang selnya bernilai “0″. Untuk Conditional Formatting dapat dilihat di judul Conditional Formatting.
Copy Format Beberapa Kali (Format Painter)
Dengan Double-click pada Format Painter kita dapat mengcopy format suatu sel ke beberapa sel atau range sekaligus. Pilih sel yang akan dicopy formatnya, kemudian double-click pada Format Painter. Pada saat kita menggerakkan kursor pada sel yang akan ditempel (paste) formatnya maka kita akan melihat Format Painter mengikuti kursor tersebut. Paste (temple) format beberapa sel atau range, jika sudah selesai kabala ke icon Format Painter pada toolbar dan click sekali untuk menonaktifkan fungsi tersebut.
Tanda Dollar ($)
Jika kita akan mengcopykan rumus dari satu sel ke satu atau beberapa sel, maka kita harus mulai menggunakan tanda dollar ($) untuk menandai bahwa kita memakai alamat relative atau alamat absolute. Untuk melakukannya kita harus ke formula bar (window pada kiri atas layar tempat kita memasukkan angka maupun rumus) kita harus mengklik sebelum alamat setiap kolom dan baris dan tambahkan $. Misalnya rumus: A2*C4 maka $A$2 * C4 artinya $A$2 alamat absolute (tidak berubah jika dicopy) sedangkan C4 alamat relative (berubah jika dicopykan).
Kita dapat juga mengklik tombol “F4″ pada keyboard. Dua buah $ akan muncul. klik “F4” lagi dan satu $ akan hilang. Dan seterusnya
Ms Access Entry Using Ms Excel
Microsoft Access is a convenient database package. It has templates for creating personal databases for books, recipes, etc. These templates are accessed by the Database Wizard which can be opened from the initial screen. The more specialized databases are created using
It is probably most efficient to enter the data into an Excel file and then import that file into Access. One reason that it is more convenient to work through Excel is that arithmetic manipulations such as computing ratios are easily done in Excel but only done with difficulty or not at all in Access.
Importing a database from Excel
• First create the Microsoft Database file, .mdb
• Select FILE and click on GET EXTERNAL DATA
• Select IMORT
• Scroll down the File Type menu to Microsoft Excell files
• Select from the list provided the file to be imported
• Click on IMPORT
• Click on NEXT
• Click on FINISH
Once the data is entered into the database the operations of sorting and selecting subtables from the data can be carried out.
Mencari Minggu ke Berapa dari Suatu Tanggal dalam Satu Tahun
Saya diberi tugas untuk membuat rencana penerimaan berdasarkan penerimaan tahun lalu yang dibagi dalam dwi mingguan.
Berarti saya harus memilah-milah data penerimaan tahun lalu berdasarkan tanggal dan minggunya. [Susah amat sih kata-katanya, maksud saya, tanggalnya itu jatuh di minggu ke berapa… kok tambah susah ya? ya udah, pokoknya gitu deh.]
Saya menggunakan MsExcel. Fungsi yang saya gunakan adalah fungsi weeknum.
Apabila fungsi ini tidak tersedia di MsExcel Anda, dan memunculkan error #NAME?, berarti Anda harus meng-install add-in Analysis ToolPak.
1. Dari menu Tools, Klik Add-Ins
2. Dalam daftar Add-Ins available, beri tanda centang pada Analysis ToolPak, kemudian klik OK.
3. Kalo dalam daftar itu, Analysis ToolPak belum ada, berarti Anda harus menambahkan dari instalasi Office.
Cara menggunakannya dengan sintaks berikut :
WEEKNUM(serial_num;return_type)
• serial_num adalah tanggal dalam suatu minggu. Tanggal jangan dalam bentuk text.
• return_type adalah nomor yang menujukkan pada hari apa sebuah minggu itu dimulai. Default-nya adalah 1.
Return_type Dimulainya Minggu
1 Minggu dimulai pada hari Ahad.
2 Minggu dimulai pada hari Senin.
Contoh :
Tanggal Minggu ke- Formula
01/01/2007 1 =WEEKNUM(E6;1)
01/01/2007 1 =WEEKNUM(E7;2)
08/01/2007 2 =WEEKNUM(E8;1)
08/01/2007 2 =WEEKNUM(E9;2)
09/03/2008 11 =WEEKNUM(E10)
09/03/2008 10 =WEEKNUM(E11;2)
Semoga bermanfaat.
NOTE : UNTUK GAMBAR TIDAK DITAMPILAKAN
