Excel'de sayıları İngilizce kelimelere nasıl heceleyebilir veya dönüştürebilirim?
Çok sayıda fiyat tutarı numaranız olduğunu varsayarsak ve şimdi bunları metin dizelerine dönüştürmeniz veya hecelemeniz gerekir. Örneğin, dönüştür $123.55 İngilizce kelimelere yüz yirmi üç dolar ve elli beş sent. Excel'de bu sorunu çözmek için uzun ve karmaşık VBA kodunu kullanmak için etkili bir tesis yoktur. Bu yazıda, bununla başa çıkmak için size bazı yöntemler tanıtacağım.
VBA kodu ile sayıları İngilizce kelimelere heceleyin veya dönüştürün
Kutools for Excel ile sayıları İngilizce kelimelere heceleyin veya dönüştürün
VBA kodu ile sayıları İngilizce kelimelere heceleyin veya dönüştürün
Aşağıdaki uzun VBA kodu, sayıları metin dizelerine hecelemenize yardımcı olabilir. Aşağıdaki gibi yapın:
1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki makroyu Modül penceresi.
VBA: Para birimi sayılarını Excel'de İngilizce kelimelere yazın
Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
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. Ardından kodu kaydedin ve bitişik Hücre B2'deki çalışma sayfasına dönün, formülü girin = SpellNumberToEnglish (A1), ekran görüntüsüne bakın:
4. Daha sonra tuşuna basın. Keşfet tuşuna basın ve Cell B2'yi seçin, ardından doldurma tutamacını bu formülü içeren aralığın üzerine sürükleyin. Ve tüm para birimi sayıları İngilizce kelimelere yazılmıştır. Ekran görüntüsüne bakın:
not: Formüller oldukları için, onları kopyalayıp yapıştırmanız gerektiğinde lütfen değerler olarak yapıştırın.
Kutools for Excel ile sayıları İngilizce kelimelere heceleyin veya dönüştürün
Belki yukarıdaki uzun kod sizi kızdırabilir, lütfen endişelenmeyin, burada size sorunu çözmenin kolay ve hızlı bir yolunu verebilirim. İle Kutools for Excel'S Sayılardan Kelimelere işlevi, sayıları hızlı ve kolay bir şekilde metin dizelerine dönüştürebilirsiniz.
Kutools for Excel- Excel için 300'den fazla kullanışlı araç içerir. 30 günlük tam özellikli ücretsiz deneme, kredi kartı gerekmez! Şimdi alın
1. Hecelemek istediğiniz aralık numaralarını seçin ve Kutools > içerik > Sayılardan Kelimelere.
2. Açılan iletişim kutusunda, İngilizce itibaren Diller. Ve sonuçları sağ taraftan önizleyebilirsiniz Önizleme Bölme. Ekran görüntüsüne bakın:
3. Sonra tıklayın Ok or Tamam. Ve tüm fiyat miktarı numaraları, orijinal aralıktaki metin dizelerine dönüştürüldü.
not: Eğer sayıları sadece İngilizce kelimelere (para birimine değil) dönüştürmek istiyorsanız, lütfen kontrol edin Para Birimine dönüştürülmez onay kutusunu işaretleyin.
Bu harika özelliği Sayılardan Kelimelere para birimi sayılarını İngilizce veya Çince para birimi metnine kolayca çevirebilir, örneğin 32.01 "Otuz iki dolar ve bir kuruş" veya "叁拾 贰元 零 壹 分" çevirmek gibi. Ücretsiz Deneme Yapın!
Demo: Para birimi sayılarını İngilizce kelimelere çevirin
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!