Para birimini Excel'de sözcük metnine dönüştürmek nasıl?
İngilizceyi ikinci dilleri olarak kullanan ana dili İngilizce olmayanlar için, numara çok uzun olduğunda bazen para birimi numarasını doğrudan İngilizce kelimelere değiştirmek zordur. Bu makalede, Excel'de para birimini kolayca sözcük metnine nasıl dönüştürebileceğinizi öğreneceksiniz.
VBA kodu ile para birimini kelimelere dönüştürün
Kutools for Excel ile para birimini kelimelere dönüştürün
VBA kodu ile para birimini kelimelere dönüştürün
Aşağıdaki VBA kodu ile para birimi numarasını İngilizce kelimelere dönüştürebilirsiniz.
1. Basın Ara Toplam + F11 açmak için Uygulamalar için Microsoft Visual Basic iletişim kutusu.
2. içinde Uygulamalar için Microsoft Visual Basic iletişim kutusunu tıklayın Ekle > Modülü. Ardından aşağıdaki kodu kopyalayıp kod penceresine yapıştırın.
VBA kodu: Para birimi numarasını İngilizce kelimelere dönüştürün
Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. Basın Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic iletişim kutusu.
4. Kelimelere dönüştürmek istediğiniz hücrenin bitişiğinde boş bir hücre (B1) seçin, formülü girin = NumberstoWords (A1)tuşuna basın ve ardından tuşuna basın. Keşfet tuşuna basın.
not: A1, hücrede para birimi numarasını içerir. İhtiyacınız olduğu gibi değiştirebilirsiniz.
5. B1 hücresini seçin, para birimi numaralarının tüm İngilizce kelimelerini almak için Dolgu Tutamaçını aşağı sürükleyin.
Kutools for Excel ile para birimini kelimelere dönüştürün
Bu uzun VBA kodu karmaşık görünüyor. Burada size bu sorunu kolayca çözmek için kullanışlı bir yardımcı program tanıtacağım. İle Sayılardan Kelimelere yarar Kutools for Excel, para birimini kelimelere dönüştürmek artık sorun olmayacak. Lütfen aşağıdaki işlemleri yapın.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. Dönüştürmek istediğiniz para birimi numaralarını içeren hücreleri seçin.
2. tık Kutools > içerik > Sayılardan Kelimelere. Ekran görüntüsüne bakın:
3. içinde Para Birimi Kelimelerine Sayılar iletişim kutusunu seçin İngilizce seçeneğini tıklayın ve OK or Tamam düğmesine basın.
Şimdi seçilen para birimi numaraları hemen İngilizce kelimelere dönüştürülür.
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
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!