Cara Merubah Angka Menjadi Terbilang Huruf

Cara Merubah Angka Menjadi Terbilang Huruf

Karangan:Kami ingin secepatnya menyenggangkan konten pertolongan terbaru dalam bahasa Anda. Pelataran ini diterjemahkan memperalat mesin dan kali terwalak kesalahan pengelolaan bahasa maupun keburukan keakuratan. Kami bertujuan menyediakan konten yang bermanfaat buat Anda. Dapatkah Ia memberi sempat kami apakah informasi ini signifikan lakukan Anda di bagian bawah halaman ini? Berikut artikel intern bahasa Inggris untuk teks.

Excel tidak memiliki fungsi default nan menampilkan angka bak kata bahasa Inggris dalam lembar kerja, tapi Sira boleh menambahkan kapabilitas ini dengan menempelkan kode fungsi SpellNumber berikut ini ke dalam modul VBA (Optis Basic for Applications). Fungsi ini memungkinkan Anda mengonversi jumlah dolar dan sen alas kata-alas kata dengan rumus, sehingga 22,50 akan dibaca laksana dua puluh mata uang dan lima puluh sen. Ini dapat habis bermakna takdirnya Kamu menggunakan Excel sebagai Templat lakukan mencetak pemeriksaan.

Jikalau Anda ingin mengonversi nilai numerik ke matra wacana tanpa menampilkannya sebagai pengenalan, gunakan kemujaraban TEXT .

Karangan:Microsoft menyediakan hipotetis pemrograman ilustrasi belaka, minus panjar dinyatakan atau tersirat. Ini mengikutsertakan, saja enggak terbatas pada, garansi maupun kesesuaian untuk tujuan tertentu. Artikel ini memisalkan bahwa Kamu sudah familiar dengan bahasa pemrograman VBA, dan dengan perlengkapan yang digunakan bagi membuat dan debug prosedur. Insinyur dukungan Microsoft bisa mendukung mengklarifikasi fungsionalitas prosedur tertentu. Namun, mereka enggak akan memodifikasi abstrak ini untuk menyediakan fungsionalitas ditambahkan, atau menciptakan menjadikan prosedur lakukan memenuhi kebutuhan spesifik Anda.

Membuat fungsi SpellNumber kerjakan mengonversi kodrat ke kata

  1. Gunakan terobosan keyboard,
    Alt
    +
    F11
    untuk membuka Visual Basic Pengedit (VBE).

  2. Klik
    sisipkan
    tab, dan klik
    modul.

    Pada menu sisipkan, klik modul.

  3. Salin garis kode berikut.

    Catatan:Dikenal sebagai Arti ditetapkan konsumen (UDF), kode ini Mengotomatiskan tugas mengonversi kredit menjadi teks seluruh benang kerja Anda.

    Option Explicit  'Main Function  Function SpellNumber(ByVal MyNumber)  Dim Dollars, Cents, Temp  Dim DecimalPlace, Count  ReDim Place(9) As String  Place(2) = " Thousand "  Place(3) = " Million "  Place(4) = " Billion "  Place(5) = " Trillion "  ' 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  Dollars = Dollars & " Dollars"  End Select  Select Case Cents  Case ""  Cents = " and No Cents"  Case "One"  Cents = " and One Cent"  Case Else  Cents = " and " & Cents & " Cents"  End Select  SpellNumber = 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  Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "  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)  Inci 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 = "Ten"  Case 11: Result = "Eleven"  Case 12: Result = "Twelve"  Case 13: Result = "Thirteen"  Case 14: Result = "Fourteen"  Case 15: Result = "Fifteen"  Case 16: Result = "Sixteen"  Case 17: Result = "Seventeen"  Case 18: Result = "Eighteen"  Case 19: Result = "Nineteen"  Case Else  End Select  Else ' If value between 20-99...  Select Case Val(Left(TensText, 1))  Case 2: Result = "Twenty "  Case 3: Result = "Thirty "  Case 4: Result = "Forty "  Case 5: Result = "Fifty "  Case 6: Result = "Sixty "  Case 7: Result = "Seventy "  Case 8: Result = "Eighty "  Case 9: Result = "Ninety "  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 = "One"  Case 2: GetDigit = "Two"  Case 3: GetDigit = "Three"  Case 4: GetDigit = "Four"  Case 5: GetDigit = "Five"  Case 6: GetDigit = "Six"  Case 7: GetDigit = "Seven"  Case 8: GetDigit = "Eight"  Case 9: GetDigit = "Nine"  Case Else: GetDigit = ""  End Select  End Function

  4. Tempelkan baris kode ke
    Module1 (kode)
    boks.

    Kode ditempelkan di Module1 kotak (kode).

  5. Tekan
    Alt + T
    cak bagi pula ke Excel. Khasiat SpellNumber kini siap bakal digunakan.

    Coretan:Maslahat ini berfungsi hanya buat pokok kerja saat ini. Untuk menunggangi faedah ini di muslihat kerja nan lain, Beliau harus mengulangi langkah-ancang untuk menyalin dan menempelkan kode dalam daya kerja itu.

Atas Pekarangan

Memperalat keistimewaan SpellNumber kerumahtanggaan sel khas

  1. Ketikkan rumus
    = SpellNumber
    (A1) ke privat lokap bekas Anda ingin menampilkan angka ditulis, di mana A1 ialah lokap yang berisi nilai yang ingin Engkau transformasi. Dia kembali bisa mengetikkan angka seperti = SpellNumber(22.50).

  2. Tekan
    Enter
    kerjakan mengonfirmasi rumus.

Atas Halaman

Menyimpan taktik kerja fungsi SpellNumber Sira

Excel tidak bisa menyimpan buku kerja dengan fungsi makro privat format patokan bebas makro buku kerja (.xlsx). Jika Sira mengklik
File
>
Simpan. Kotak dialog
kiriman VB
membengang. Klik
tidak.

Di kotak dialog proyek VB, klik tidak.

Engkau bisa menyimpan file Ia umpama buku
Kerja Excel makro aktif (.xlsm)
cak bagi menyimpan file Sira dalam format saat ini.

  1. Klik
    File
    >
    Simpan Sebagai.

  2. Klik menu turun dasar
    Simpan misal varietas
    , dan memperbedakan
    Buku kerja Excel makro aktif.

  3. Klik
    Simpan.

Atas Halaman

Perlu bantuan lainnya?

Cara Merubah Angka Menjadi Terbilang Huruf

Source: https://support.microsoft.com/id-id/office/mengonversi-angka-menjadi-kata-a0d166fb-e1ea-4090-95c8-69442cd55d98

Baca Juga :  Syarat Dan Cara Tukar Uang Baru 2022