Menampilkan Angka sebagai Kata di Excel - dummies

Jika Anda pernah perlu menampilkan nomor yang ditulis sebagai teks, Anda mungkin mendapati bahwa Excel tidak menawarkan fungsi semacam itu. Ketika Excel gagal menyampaikannya, seringkali mungkin untuk memperbaiki kekurangan dengan menggunakan VBA. Inilah fungsi VBA, bernama SPELLDOLLARS, yang bisa Anda gunakan dalam formula lembar kerja.

contoh Excel

Berikut adalah beberapa contoh SPELLDOLLARS.

Kode VBA

Untuk menggunakan kode ini, tekan Alt + F11 untuk mengaktifkan Editor Visual Basic. Kemudian pilih Insert → Module untuk menyisipkan modul VBA baru. Salin kode dan tempelkan ke modul baru.

Fungsi SPELLDOLLARS (sel) Sebagai Variant 'Mengembalikan nilai, terbilang dalam kata-kata Dim Dollars As String, Cents As String Dim TextLen As Long, Pos As Long Dim Temp As String Dim iHundreds As Long, iTens As Long, iOnes As Long Dim Ones Sebagai Variant, Teens As Variant, Puls Sebagai Variant Dim Units (2 To 5) Sebagai String Dim bHit Sebagai Boolean, NegFlag Sebagai Boolean 'Apakah ini adalah bilangan non-atau sel kosong? Jika Tidak IsNumeric (sel) Atau sel = "" Kemudian SPELLDOLLARS = CVErr (xlErrValue) Fungsi Keluar Berakhir Jika 'Apakah itu negatif? Jika sel 15 Then SPELLDOLLARS = CVErr (xlErrNum) Exit Function End If 'Lakukan bagian sen sen Cents = Right (Dollars, 2) & "/ 100 Dollars" Jika sel = Pos - 2 Then bHit = False If TextLen> = Pos Then iHundreds = Asc (Mid $ (Dollar, TextLen - Pos + 1, 1)) - 48 Jika iHundreds> 0 Then Temp = Temp & "" & Ones (iHundreds) & "Ratus" bHit = True End If End If iTens = 0 iOnes = 0 Jika TextLen> = Pos - 1 Kemudian iTens = Asc (Mid $ (Dollars, TextLen - Pos + 2, 1)) - 48 End If If TextLen> = Pos - 2 Then iOnes = Asc (Mid $ (Dollars, TextLen - Pos + 3, 1)) - 48 Akhir Jika Jika iTens = 1 Then Temp = Temp & "" & Teens (iOnes) bHit = True Else Jika iTens> = 2 Then Temp = Temp & "" & Puluhan (iTens) bHit = True End Jika Jika iOnes> 0 Then If iTens> = 2 Then Temp = Temp & "-" Else Temp = Temp & "" End If Temp = Temp & Ones (iOnes) bHit = True End If End Jika Jika bHit And Pos > 3 Then Temp = Temp & "" & Unit (Pos 3) End If End Jika Next Pos SPELLDOLLARS = Trim (Temp) & "and" & Cents If NegFlag Then SPELLDO LLARS = "(" & SPELLDOLLARS & ")" End Function