Excel'de "Kelimeye Dönüştür" özelliğini kullanarak para birimini nasıl hızlıca dönüştürebilirsiniz?
Excel’de finansal verilerle çalışırken, özellikle çek tutarlarını yazarken para birimi rakamlarını yazıyla ifade etmeniz gerekebilir. Ne yazık ki Excel bu işlem için yerleşik bir işlev sunmaz; ancak bunu gerçekleştirmenin iki etkili yöntemi vardır. Bu makalede her iki yöntemi adım adım inceleyecek ve ihtiyaçlarınıza en uygun olanı seçmenize yardımcı olacağız.
Para birimini VBA koduyla yazıya dökün
Para birimini Kutools for Excel ile yazıya dökün 
Para birimini VBA koduyla yazıya dökün
Excel'de, VBA kullanmadan rakamları İngilizce kelimelere hızlıca dönüştürmek mümkün değildir.
1. "Microsoft Visual Basic for Applications" penceresini açmak için "Alt + F11" tuşlarına basın.
2. "Ekle (Insert)" > "Modül (Module)" seçeneğine tıklayıp aşağıdaki VBA kodunu yeni Modül penceresine yapıştırın.
VBA: Para birimi rakamlarını İngilizce kelimelere dönüştürme
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 Function3. Ardından bu kodu kaydedin ve çalışma sayfasına dönmek için **Bu pencereyi kapat** tuşuna basın. Boş bir hücreye şu formülü girin: =SpellNumberToEnglish(A2) (A2 hücresi para birimi rakamlarını içerir) ve Enter tuşuna basın. Daha sonra bu formülü ihtiyaç duyduğunuz diğer hücrelere uygulamak için doldurma tutamacını aşağı doğru sürükleyin. Ekran görüntülerine göz atın:
Para birimini kullanışlı Sayıları Yazıyla Yaz işleviyle yazıya dökün
VBA kullanmak istemeyenler için Kutools for Excel, rakamları kelimelere dönüştürmenin basit ve tek tıklamayla gerçekleştirilebilen bir yolunu sunar. Kutools for Excel’in “Kelimeye Dönüştür” özelliği, rakamların 40 farklı para birimi biçiminde kelimeye çevrilmesini destekler; bu da finansal raporlama ve uluslararası işlemler için ideal bir çözümdür. Sadece birkaç tıklama ile kullanıcılar, USD, EUR, GBP, JPY, CNY ve daha fazlası dahil olmak üzere çok çeşitli dillerde sayısal değerleri tam biçimlendirilmiş para birimi metnine dönüştürebilir. Böylece manuel dönüşümler ortadan kalkar ve hatalar en aza iner.
1. Para birimi rakamlarını seçin ve "Kutools" > "İçerik (Content)" > "Kelimeye Dönüştür" seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. "Küçük Harf Para Birimini Büyük Harfe Dönüştür" iletişim kutusunda kullanmak istediğiniz dili seçin; burada "Diller (Languages)" listesinden "İngilizce (English)" seçeneğini seçeceğim. Ekran görüntüsüne bakın:
3. "Tamam (OK)" veya "Uygula (Apply)" düğmesine tıklayın; ardından seçtiğiniz para birimindeki rakamlar, belirtilen para birimi cinsinden ifade edilecektir.
Excel'de para birimi rakamlarını kelimelere dönüştürmek, VBA veya Kutools for Excel kullanılarak son derece verimli bir şekilde gerçekleştirilebilir. Bu yöntemlerden birini uygulayarak finansal raporlamayı otomatikleştirebilir ve manuel yazım hatalarını tamamen ortadan kaldırabilirsiniz. Daha fazla Excel ipucu ve püf noktasını keşfetmeye ilgi duyuyorsanız,web sitemiz Excel'i ustalıkla öğrenmeniz için binlerce öğretici sunmaktadır.
Demo: Kutools for Excel kullanarak Para Birimi Rakamını Kelimelere Dönüştürme
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