Excel'de para birimini yazıyla metne nasıl dönüştürebilirim?
İngilizceyi ikinci dil olarak kullanan ve ana dili İngilizce olmayan kişiler için, çok haneli rakamları doğrudan İngilizce para birimi cinsinden yazıya çevirmek bazen zorlu olabilir. Bu makalede, Excel’de para birimini kolayca yazıya dönüştürmeyi öğreneceksiniz.
Para birimini VBA kodu ile yazıya dönüştürme
Para birimini Kutools for Excel ile yazıya dönüştürme
Para birimini VBA kodu ile yazıya dönüştürme
Aşağıdaki VBA koduyla para birimi tutarını İngilizce kelimelere dönüştürebilirsiniz.
1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications iletişim kutusunu açın.
2. Microsoft Visual Basic for Applications iletişim kutusunda, Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki kodu kopyalayıp kod penceresine yapıştırın.
VBA kodu: Para birimi sayısını İngilizce Kelimelere Dönüştürme
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 Function3. Alt+Q tuşlarına aynı anda basarak Microsoft Visual Basic for Applications iletişim kutusunu kapatın.
4. Yazıya dönüştürmek istediğiniz hücreye bitişik boş bir hücreyi (B1) seçin, =NumberstoWords(A1) formülünü girin ve ardından Enter tuşuna basın.
Not: A1 hücresi para birimi tutarını içerir. İhtiyacınıza göre değiştirebilirsiniz.
5. B1 hücresini seçin ve para birimi tutarlarını İngilizce kelimelerle görüntülemek için Doldurma Kulpu’nu aşağı doğru sürükleyin.
Para birimini Kutools for Excel ile yazıya dönüştürme
Bu uzun VBA kodu karmaşık görünebilir. Neyse ki, bu sorunu kolayca çözebileceğiniz çok kullanışlı bir araca sahibiz! Kelimeye Dönüştür aracı sayesinde, Kutools for Excel ile para birimini yazıya dönüştürmek artık hiç sorun olmayacak. Aşağıdaki adımları takip edin!
İndirip yükleyin, ardından Kutools for Excel uygulamasını kullanmaya başlayın.
1. Dönüştürmek istediğiniz para birimi değerlerini içeren hücreleri seçin.
2. Kutools > İçerik > Kelimeye Dönüştür seçeneğine tıklayın. Ekran görüntüsüne bakın:
3. Küçük harf para birimini büyük harfe dönüştür iletişim kutusunda, İngilizce seçeneğini işaretleyin ve Tamam veya Uygula düğmesine tıklayın.
Artık seçili para birimi tutarları anında İngilizce kelimelere dönüştürülüyor.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar