Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara cepat mengubah angka menjadi kata-kata bahasa Inggris di Excel?

Jika Anda memiliki kolom nilai numerik dalam lembar kerja, dan sekarang Anda perlu memasukkannya ke kata-kata bahasa Inggris yang setara atau kata-kata mata uang bahasa Inggris seperti gambar berikut yang ditampilkan. Di sini saya akan berbicara tentang bagaimana mengubah angka menjadi kata-kata bahasa Inggris dengan cepat dan mudah.

Ubah angka menjadi kata-kata bahasa Inggris dengan User Defined Function

Ubah angka menjadi kata mata uang dengan User Defined Function

Ubah angka menjadi kata mata uang dengan fitur yang berguna


Ubah angka menjadi kata-kata bahasa Inggris dengan User Defined Function

Tidak ada fitur atau rumus yang dapat membantu Anda menyelesaikan tugas ini secara langsung di Excel, tetapi Anda dapat membuat Fungsi Buatan Pengguna untuk menyelesaikannya. Silakan lakukan dengan langkah-langkah berikut:

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic untuk Aplikasi.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Simpan dan tutup kode ini dan kembali ke lembar kerja, di sel kosong, masukkan rumus ini = NumberstoWords (A2)( A2 adalah sel yang ingin Anda ubah nomornya menjadi kata bahasa Inggris), lihat tangkapan layar:

4. Lalu tekan Enter kunci, dan pilih sel C2 lalu seret gagang isian ke kisaran yang Anda inginkan untuk memuat rumus ini. Semua nilai numerik telah diubah kata-kata bahasa Inggrisnya yang sesuai.

Note: Kode ini hanya berfungsi untuk bilangan bulat tetapi tidak berlaku untuk bilangan desimal.


Ubah angka menjadi kata mata uang dengan User Defined Function

Jika Anda ingin mengonversi angka menjadi kata mata uang bahasa Inggris, Anda harus menerapkan kode VBA di bawah ini.

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic untuk Aplikasi.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Function SpellNumberToEnglish(ByVal pNumber)
'Update by Extendoffice
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 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
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        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
Select Case Val(Left(pTens, 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(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    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

3. Simpan kode ini dan kembali ke lembar kerja, di sel kosong, masukkan rumus ini = SpellNumberToEnglish (A2)( A2 adalah sel yang ingin Anda ubah angka menjadi kata mata uang bahasa Inggris), lalu seret pegangan isian ke sel yang ingin Anda terapkan rumus ini, semua angka telah dieja menjadi kata mata uang bahasa Inggris, lihat tangkapan layar:


Ubah angka menjadi kata mata uang dengan fitur yang berguna

Kode diatas agak merepotkan untuk pemula Excel, disini saya akan memperkenalkan fitur yang berguna, Kutools untuk Excel's Angka ke Kata, dengan utilitas ini, Anda dapat dengan cepat mengeja angka menjadi kata bahasa Inggris atau kata mata uang.

Tip:Untuk menerapkan ini Angka ke Kata fitur, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Pilih daftar nomor yang ingin Anda ubah, lalu klik Kutools > Content > Angka ke Kata, lihat tangkapan layar:

2. di Angka ke Kata Mata Uang kotak dialog, centang English pilihan dari Bahasa kotak daftar, dan kemudian klik Ok tombol, Anda akan melihat semua angka telah dieja menjadi kata mata uang bahasa Inggris:

Tips: Jika Anda ingin mendapatkan kata-kata dalam bahasa Inggris, harap periksa Tidak dikonversi ke Mata Uang kotak centang dari Opsi bagian, lihat tangkapan layar:

Klik untuk Mengunduh Kutools for Excel dan uji coba gratis Sekarang!


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (61)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo selamat pagiHai.. Selamat pagi.. Senang bertemu denganmu.
Komentar ini diminimalkan oleh moderator di situs
kode ini tidak berfungsi
Komentar ini diminimalkan oleh moderator di situs
Pak bagaimana saya bisa mengubah angka menjadi kata-kata dengan kata terakhir "Hanya"?
Komentar ini diminimalkan oleh moderator di situs
penyelesaian masalah?????
Komentar ini diminimalkan oleh moderator di situs
Anda harus menambahkan satu formula tambahan di kolom lain
="Rp."&""&F6&"Hanya"&"."
Komentar ini diminimalkan oleh moderator di situs
bagaimana jika nomor itu memiliki (.) seperti 150.75 atau 3.35? mohon bantuannya terima kasih...
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas dukungan baik Anda untuk membuat formula. Bisakah Anda memberi tahu kami jika kami perlu menambahkan nama mata uang..seperti Riyal Saudi atau Pound Inggris.
Komentar ini diminimalkan oleh moderator di situs
Misal kita ubah 4000 menjadi kata “Empat Ribu”, saya mau terjemahkan seperti “Saudi Riyal Empat Ribu Saja” jadi hilang dalam rumusnya adalah “Saudi Riyal & Saja”
Tolong bantu
Komentar ini diminimalkan oleh moderator di situs
Rumus yang disebutkan di atas dalam modul diulang dan disalin dari Situs Web Microsoft ..

Silakan lihat tautan asli dan ikuti Pembaruan Microsoft ..

https://support.microsoft.com/en-in/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel
Komentar ini diminimalkan oleh moderator di situs
sayang kode ini menunjukkan kesalahan sintaksis di baris ini
Sen = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) &_"00", 2))

dapatkah Anda membantu saya ..?? Balas saya sesegera mungkin
Komentar ini diminimalkan oleh moderator di situs
TAMBAHKAN KATA DAN ANTARA KATA. Seratus Empat Puluh Ribu Lima Ratus Dua Puluh Enam bukannya Seratus Empat Puluh Ribu Lima Ratus Dua Puluh Enam. Kalimat itu mungkin tidak dipahami dengan baik karena bahasa Inggrisnya tidak tepat.
Komentar ini diminimalkan oleh moderator di situs
kode ini tidak berfungsi secara permanen ... jika kita menutup dan membuka lembar itu tidak berfungsi
Komentar ini diminimalkan oleh moderator di situs
Simpan file sebagai "Buku Kerja yang Diaktifkan Makro" dan aktifkan Makro saat Anda membukanya
Komentar ini diminimalkan oleh moderator di situs
terima kasih banyak karena kamu adalah kode
Komentar ini diminimalkan oleh moderator di situs
Misal kita ubah 2500 menjadi kata “Dua Ribu Lima Ratus”, saya mau terjemahkan seperti “Dua Ribu Lima Ratus Saja” jadi rumus yang hilang adalah “Hanya”
Tolong bantu
Komentar ini diminimalkan oleh moderator di situs
gunakan =CONCATENATE(NumberstoWords(A1)," Hanya")
Komentar ini diminimalkan oleh moderator di situs
Sungguh terima kasih sayang, formulamu sempurna, bagus, Allah memberkatimu.
Salam.
Komentar ini diminimalkan oleh moderator di situs
lakh crore tidak ada dalam formula. Mohon bantu saya.
Komentar ini diminimalkan oleh moderator di situs
Misalnya kita ubah 2500 menjadi kata "Dua Ribu Lima Ratus", saya ingin menerjemahkannya seperti "Dua Ribu Lima Ratus & Sen Lima Puluh Saja" jadi bisa tolong bantu
Komentar ini diminimalkan oleh moderator di situs
Saya tidak mendapatkan sen yang dieja ... jumlah saya 123.50 dan mendapat "seratus dua puluh tiga" ... menyalin semua rumus, tolong bantu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana dengan lakh dan crores?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
BAGUS. Tapi maaf untuk mengatakan bahwa formula ini TIDAK bekerja secara permanen ... Saya menutup buku kerja untuk istirahat makan siang. Setelah Makan Siang saya membuka file tetapi rumusnya tidak berfungsi. menampilkan kesalahan seperti #NAME?. Mohon solusi yang intim.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih


Bekerja! :)
Komentar ini diminimalkan oleh moderator di situs
ada bug ketika jumlah saya "618475" itu mengatakan "Enam Ratus Delapan Belas Ribu Empat Ratus Tujuh Puluh Lima" bukannya "enam lac delapan belas ribu empat ratus tujuh puluh lima".
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama
Komentar ini diminimalkan oleh moderator di situs
Ini bukan masalah, ini adalah format penulisan dalam kata-kata
Komentar ini diminimalkan oleh moderator di situs
Terima kasih extendOfficea
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan