Terkadang di mincrosoft excel kita membutuhkan sebuah fungsi atau rumus yang sanggup mengkonversi suatu angka menjadi bentuk tulisan, misal angka yang mewakili nilai uang di ubah menjadi goresan pena terbilang untuk besarnya uang tersebut, rumus ini biasanya dipakai contohnya saat membuat kuetansi, memang sanggup saja memakai cara manual, namun tentu akan kerepotan jikalau jumlah data yang harus dikonversi sangat banyak, salah satu cara mudah ialah memakai fungsi khusus.
Sayangnya microsft excel tidak menyediakan fungsi yang sanggup mengkonversi angka menjadi tulisan, tapi hening saja kita sanggup menciptakannya sendiri, alasannya ialah microsoft excel menyediakan kemudahan untuk membuat sendiri fungsi-yang kita inginkan memakai perintah khusus (macro), dengan macro ini tiruana fungsi-gungsi yang memang tidak disediakan sanggup dibentuk oleh sendiri memakai script khusus, salah satunya untuk mengkonversi uang menjadi tulisan.
Untuk membuat fungsi terbilang sebetulnya sudah banyak yang menyediakan, bahkan sudah tersedia dalam bentuk add-in atau plugin yang siap didownload dan siap digunakan. memang untuk membuat sendiri fungsi di ms excel membutuhkan keahlian bahasa pemrograman visual basic, sehingga tentu saja yang tidak tau caranya akan kesusahan bagaimana cara menciptakannya.
Tapi tidakboleh khawatir, alasannya ialah disini saya akan mempersembahkan sebuah tutorial langkah-langkah bagaimana cara membuat sendiri fungsi terbilang di ms excel yang sanggup dipakai di tiruana versi microsoft excel, baik microsoft excel 2003, 2007, 2010, 2013 mapun di ms excel 2017.
1. Buka aplikasi microsoft excel anda
2. Kemudian buka visual basic editor caranya tekan saja tombol ALT + F11
Atau sanggup melalui hidangan developer, jikalau hidangan developer tidak ada silahkan munculkan doloe caranya, klik hidangan file > options, kemudian pada obrolan excel option, di bilah hidangan sisi kiri pilih hidangan Customize ribbon, kemudian centang Developer.
Kemudian silahkan Ok, pada microsoft excel anda akan muncul hidangan gres berjulukan developer.
Sesudah hidangan tab developer muncul, silahkan klik tab developer, kemudian pilih hidangan Visual basic editor.
3. Pada halaman visual basic editor, Pilih hidangan insert > module
4. Kemudian Tulis atau copy paste instruksi macro di bawah ini:
Terlihat menyerupai gambar di bawah ini:
5. Simpan dalam format Excel macro-enable workbook, caranya pada visual basic editor pilih hidangan file > save book1 dan silahkan diberi nama file contohnya terbilang.xlsx. dan pada Opsi save as type pilih Excel Macro-Enable workbook.
6. Kembali ke halaman kerja MS Excel anda, Anda siap memakai fungsi terbilang anda
Teknik Menggunakan Fungsi terbilang di atas sangat sederhana.
a. Bisa memakai hidangan Formulas > Insert functions
Lalu pilih user defined dan pilih nama fungsi yang kita buat di visual basic editor sebelumnya:
a. Teknik langsung
Ketikan saja pada cell dengan format formula =Terbilang(angka), misalnya =Terbilang(200), maka kesudahannya "dua ratus rupiah"
b. Menggunakan Referensi Cell
=Terbilang (Cell), Cell ialah nama cell dalam microsft excel yang mempunyai nilai dalam bentuk anga.
Misal di cell B1 saya ingin membuat goresan pena terbilang untuk angka yang terdapat di cell A1, maka perintahnya, ketikan di cell B1 perintah =Terbilang(A1), kesudahannya di cell B1 akan tampil goresan pena nilai terbilang.
Demikian artikel wacana Teknik Membuat Sendiri Fungsi Terbilang di MS Excel (Inggris dan Indonesia), supaya bermanfaa.
Sayangnya microsft excel tidak menyediakan fungsi yang sanggup mengkonversi angka menjadi tulisan, tapi hening saja kita sanggup menciptakannya sendiri, alasannya ialah microsoft excel menyediakan kemudahan untuk membuat sendiri fungsi-yang kita inginkan memakai perintah khusus (macro), dengan macro ini tiruana fungsi-gungsi yang memang tidak disediakan sanggup dibentuk oleh sendiri memakai script khusus, salah satunya untuk mengkonversi uang menjadi tulisan.
Untuk membuat fungsi terbilang sebetulnya sudah banyak yang menyediakan, bahkan sudah tersedia dalam bentuk add-in atau plugin yang siap didownload dan siap digunakan. memang untuk membuat sendiri fungsi di ms excel membutuhkan keahlian bahasa pemrograman visual basic, sehingga tentu saja yang tidak tau caranya akan kesusahan bagaimana cara menciptakannya.
Tapi tidakboleh khawatir, alasannya ialah disini saya akan mempersembahkan sebuah tutorial langkah-langkah bagaimana cara membuat sendiri fungsi terbilang di ms excel yang sanggup dipakai di tiruana versi microsoft excel, baik microsoft excel 2003, 2007, 2010, 2013 mapun di ms excel 2017.
Teknik Membuat Fungsi Terbilang di MS Excel
Berikut ialah langkah-langkah membuat fungsi terbilang di microsoft excel:1. Buka aplikasi microsoft excel anda
2. Kemudian buka visual basic editor caranya tekan saja tombol ALT + F11
Atau sanggup melalui hidangan developer, jikalau hidangan developer tidak ada silahkan munculkan doloe caranya, klik hidangan file > options, kemudian pada obrolan excel option, di bilah hidangan sisi kiri pilih hidangan Customize ribbon, kemudian centang Developer.
Sesudah hidangan tab developer muncul, silahkan klik tab developer, kemudian pilih hidangan Visual basic editor.
3. Pada halaman visual basic editor, Pilih hidangan insert > module
4. Kemudian Tulis atau copy paste instruksi macro di bawah ini:
Option Explicit 'Main Function Function Terbilang(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Ribu " Place(3) = " Juta " Place(4) = " Miliar " Place(5) = " Triliun " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else If (Cents = "") Then Dollars = Dollars & " Rupiah" Else Dollars = Dollars End If End Select Select Case Cents Case "" Cents = "" Case "One" Cents = " and One Cent" Case Else Cents = " Koma " & Cents & " Rupiah" End Select Terbilang= Dollars & Cents End Function ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then If Mid(MyNumber, 1, 1) = 1 Then Result = " Seratus " Else Result = GetDigit(Mid(MyNumber, 1, 1)) & " Ratus " End If End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = "Sepuluh" Case 11: Result = "Sebelas" Case 12: Result = "Dua Belas" Case 13: Result = "Tiga Belas" Case 14: Result = "Empat Belas" Case 15: Result = "Lima Belas" Case 16: Result = "Enam Belas" Case 17: Result = "Tujuh Belas" Case 18: Result = "Delapan Belas" Case 19: Result = "Sembilan Belas" Case Else End Select Else ' If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result = "Dua Puluh " Case 3: Result = "Tiga Puluh " Case 4: Result = "Empat Puluh " Case 5: Result = "Lima Puluh " Case 6: Result = "Enam Puluh " Case 7: Result = "Tujuh Puluh " Case 8: Result = "Delapan Puluh " Case 9: Result = "Sembilan Puluh " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Satu" Case 2: GetDigit = "Dua" Case 3: GetDigit = "Tiga" Case 4: GetDigit = "Empat" Case 5: GetDigit = "Lima" Case 6: GetDigit = "Enam" Case 7: GetDigit = "Tujuh" Case 8: GetDigit = "Delapan" Case 9: GetDigit = "Sembilan" Case Else: GetDigit = "" End Select End Function
Terlihat menyerupai gambar di bawah ini:
5. Simpan dalam format Excel macro-enable workbook, caranya pada visual basic editor pilih hidangan file > save book1 dan silahkan diberi nama file contohnya terbilang.xlsx. dan pada Opsi save as type pilih Excel Macro-Enable workbook.
6. Kembali ke halaman kerja MS Excel anda, Anda siap memakai fungsi terbilang anda
Teknik Menggunakan Fungsi terbilang di atas sangat sederhana.
a. Bisa memakai hidangan Formulas > Insert functions
Lalu pilih user defined dan pilih nama fungsi yang kita buat di visual basic editor sebelumnya:
a. Teknik langsung
Ketikan saja pada cell dengan format formula =Terbilang(angka), misalnya =Terbilang(200), maka kesudahannya "dua ratus rupiah"
b. Menggunakan Referensi Cell
=Terbilang (Cell), Cell ialah nama cell dalam microsft excel yang mempunyai nilai dalam bentuk anga.
Misal di cell B1 saya ingin membuat goresan pena terbilang untuk angka yang terdapat di cell A1, maka perintahnya, ketikan di cell B1 perintah =Terbilang(A1), kesudahannya di cell B1 akan tampil goresan pena nilai terbilang.
Demikian artikel wacana Teknik Membuat Sendiri Fungsi Terbilang di MS Excel (Inggris dan Indonesia), supaya bermanfaa.