Excel'de sayıları İngilizce kelimelere nasıl dönüştürebilirsiniz?
Excel’de sayıları İngilizce kelime karşılıklarına dönüştürmek, özellikle finansal raporlama, faturalandırma veya çek oluşturma gibi senaryolarda son derece değerli bir beceridir. Excel bu işlevi doğrudan sağlamasa da, bunu gerçekleştirmenin birkaç etkili yöntemi mevcuttur. Bu makalede, Excel’de sayıları kelimelere dönüştürmenin en verimli yollarını ve uygulamada işinizi kolaylaştıracak optimizasyon ipuçlarını adım adım sizinle paylaşacağız.
Sayıları VBA koduyla İngilizce kelimelere dökün veya dönüştürün
Aşağıdaki kapsamlı VBA kodu, sayıları yazıyla ifade edilen metin dizgelerine dönüştürmenize yardımcı olabilir. Şöyle yapın:
1. "ALT + F11" tuşlarına basılı tutun; böylece "Microsoft Visual Basic for Applications" penceresi açılır.
2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki makroyu Modül penceresine yapıştırın.
VBA: Excel'de para birimi sayılarını İngilizce kelimelere dökme
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 çalışma sayfasına dönün. Bitişik B2 hücresine =SpellNumberToEnglish(A2) formülünü girin; ekran görüntüsüne bakın:
4. Ardından Enter tuşuna basın, C2 hücresini seçin ve bu formülü içeren aralığa kadar doldurma tutamacını sürükleyin. Böylece tüm para birimi değerleri İngilizce kelimelere dönüştürülmüş olur. Ekran görüntüsüne göz atın:
Sayıları Kutools for Excel ile İngilizce kelimelere dökün veya dönüştürün
Excel görevlerinizi kolaylaştırın ve verimliliğinizi Kutools for Excel kullanarak artırın. Güçlü "Kelimeye Dönüştür" özelliği, ABD Doları, Çin YUAN’ı veya başka herhangi bir para birimi için sayıları sadece birkaç tıklamayla kelimelere dönüştürmenizi sağlayan 40 farklı Döviz Kuru Dönüşümü seçeneği sunar.
1. Kelimeye dönüştürmek istediğiniz sayıların bulunduğu aralığı seçin ve "Kutools" > "İçerik" > "Kelimeye Dönüştür" seçeneğine gidin.
2. Açılan iletişim kutusunda "Diller" bölümünden "İngilizce"yi seçin. Sonuçları, sağdaki "Önizleme" Bölmesi'nden önizleyebilirsiniz. Ekran görüntüsüne bakın:
3. Ardından Tamam veya Uygula düğmesine tıklayın; böylece tüm fiyat tutarları orijinal aralıklarında metin dizgelerine dönüştürülmüş olur.
Not: Sayıları yalnızca İngilizce kelimelere (para birimi değil) dönüştürmek istiyorsanız, lütfen Para birimine dönüştürme onay kutusunu işaretlemeyin.
Bu rehberde özetlenen adımları ve optimizasyonları uygulayarak Kelimeye Dönüştür işlemini verimli şekilde gerçekleştirebilir, iş akışınızı kolaylaştırabilirsiniz. Finansal raporlar mı hazırlıyorsunuz, faturalar mı oluşturuyorsunuz—bu beceriyi öğrenmek zamanınızı ve emeğinizi tasarruf edecektir. Excel hakkında daha fazla ipucu ve püf noktası keşfetmeye ilgi duyuyorsanız, web sitemizde binlerce öğretici içerik sunulmaktadır.
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