Note: The other languages of the website are Google-translated. Back to English

Excel'de sayıları İngilizce kelimelere hızla nasıl dönüştürebilirim?

Bir çalışma sayfasında sayısal değerler sütununuz varsa ve şimdi bunları aşağıda gösterilen ekran görüntüsü gibi eşdeğer İngilizce kelimelerine veya İngilizce para birimi kelimelerine dönüştürmeniz gerekir. Burada sayıları hızlı ve kolay bir şekilde İngilizce kelimelere nasıl değiştireceğimi anlatacağım.

Kullanıcı Tanımlı İşleviyle sayıları İngilizce kelimelere dönüştürün

Kullanıcı Tanımlı İşlev ile sayıları para birimi kelimelerine dönüştürün

Kullanışlı bir özellikle sayıları para birimi kelimelerine dönüştürün


Kullanıcı Tanımlı İşleviyle sayıları İngilizce kelimelere dönüştürün

Bu görevi doğrudan Excel'de çözmenize yardımcı olabilecek hiçbir özellik veya formül yoktur, ancak bitirmek için bir Kullanıcı Tanımlı İşlev oluşturabilirsiniz. Lütfen aşağıdaki adımları uygulayın:

1. basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic Penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Bu kodu kaydedin ve kapatın ve çalışma sayfasına geri dönün, boş bir hücreye bu formülü girin = NumberstoWords (A2)( A2 Numarayı İngilizce bir kelimeye dönüştürmek istediğiniz hücredir), ekran görüntüsüne bakın:

4. Daha sonra tuşuna basın. Keşfet tuşuna basın ve C2 hücresini seçin, ardından doldurma tutamacını bu formülü içermesini istediğiniz aralığa sürükleyin. Tüm sayısal değerler, karşılık gelen İngilizce sözcüklerine dönüştürülmüştür.

not: Bu kod yalnızca tamsayılar için çalışır ancak ondalık sayılar için geçerli değildir.


Kullanıcı Tanımlı İşlev ile sayıları para birimi kelimelerine dönüştürün

Sayıları İngilizce para birimi kelimelerine dönüştürmek istiyorsanız, aşağıdaki VBA kodunu uygulamalısınız.

1. basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic Penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

Function SpellNumberToEnglish(ByVal pNumber)
'Update by Extendoffice
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. Bu kodu kaydedin ve çalışma sayfasına geri dönün, boş bir hücreye bu formülü girin = SpellNumberToEnglish (A2)( A2 Numarayı İngilizce para birimi kelimesine dönüştürmek istediğiniz hücredir) ve ardından doldurma tutamacını bu formülü uygulamak istediğiniz hücrelere sürükleyin; tüm sayılar İngilizce para birimi kelimelerine yazılmıştır, ekran görüntüsüne bakın:


Kullanışlı bir özellikle sayıları para birimi kelimelerine dönüştürün

Yukarıdaki kod, Excel'e yeni başlayanlar için biraz zahmetli, burada yararlı bir özellik sunacağım, Kutools for Excel's Sayılardan Kelimelere, bu yardımcı program ile sayıları hızlı bir şekilde İngilizce kelimelere veya para birimi kelimelerine çevirebilirsiniz.

İpuçları:Bunu uygulamak için Sayılardan Kelimelere özelliği, öncelikle indirmelisiniz Kutools for Excelve ardından özelliği hızlı ve kolay bir şekilde uygulayın.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. Dönüştürmek istediğiniz sayıların listesini seçin ve ardından Kutools > içerik > Sayılardan Kelimelere, ekran görüntüsüne bakın:

2. In Para Birimi Kelimelerine Sayılar iletişim kutusu, kontrol edin İngilizce seçeneği Diller liste kutusunu ve ardından Ok düğmesi, tüm sayıların İngilizce para birimi kelimelerine yazıldığını göreceksiniz:

İpuçları: İngilizce kelimeleri almak istiyorsanız, lütfen kontrol edin Para Birimine dönüştürülmez onay kutusu Opsiyonlar bölümünde ekran görüntülerine bakın:

Kutools for Excel'i indirmek için tıklayın ve Şimdi ücretsiz deneme!


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (62)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba GünaydınMerhaba.. Günaydın.. Tanıştığımıza memnun oldum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu kod çalışmıyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Efendim, son kelimesi "Sadece" olan sayısal kelimeleri kelimelere nasıl dönüştürebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
sorun çözme?????
Bu yorum sitedeki moderatör tarafından en aza indirildi
Diğer sütuna bir ek formül daha eklemelisiniz
="Rs."&""&F6&"Yalnızca"&"."
Bu yorum sitedeki moderatör tarafından en aza indirildi
peki sayı 150.75 veya 3.35 gibi bir (.) içeriyorsa? lütfen yardım edin teşekkürler...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Formül oluşturmaya yönelik nazik desteğiniz için teşekkür ederiz. Suudi Riyali veya İngiliz Sterlini gibi para birimi adını eklememiz gerekirse lütfen bize söyler misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Örneğin, 4000'i "Dört Bin" kelimesine çeviriyoruz, bunu "Sadece Suudi Riyali Dört Bin" gibi çevirmek istiyorum, bu yüzden formülde eksik olan "Suudi Riyali ve Sadece"
Lütfen yardım et
Bu yorum sitedeki moderatör tarafından en aza indirildi
Modüldeki yukarıda belirtilen formül Microsoft Web Sitesinden tekrarlanarak kopyalanmıştır..

Lütfen orijinal bağlantıya bakın ve Microsoft Update'i takip edin.

https://support.microsoft.com/en-in/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel
Bu yorum sitedeki moderatör tarafından en aza indirildi
canım bu kod bu satırda sözdizimi hatası gösteriyor
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) &_"00", 2))

bana yardım edebilir misin ..??En kısa sürede bana cevap ver
Bu yorum sitedeki moderatör tarafından en aza indirildi
KELİME VE KELİME ARASINDAKİ EKLEYİN. Yüz Kırk Bin Beş Yüz Yirmi Altı yerine Yüz Kırk Bin Beş Yüz Yirmi Altı. Cümle, uygun ingilizce olmadığı için iyi anlaşılmayabilir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu kod kalıcı olarak çalışmıyor ... sayfayı kapatıp açarsak çalışmıyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Dosyayı "Makro Etkin Çalışma Kitabı" olarak kaydedin ve açtığınızda Makroları etkinleştirin
Bu yorum sitedeki moderatör tarafından en aza indirildi
kod olduğun için çok teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Örneğin 2500'ü "İki Bin Beş Yüz" kelimesine çeviriyoruz, "Sadece İki Bin Beş Yüz" gibi çevirmek istiyorum, bu yüzden formülde eksik "Yalnız"
Lütfen yardım et
Bu yorum sitedeki moderatör tarafından en aza indirildi
=BİRİŞTİR(Kelimeler Sayısı(A1)," Yalnızca") kullanın
Bu yorum sitedeki moderatör tarafından en aza indirildi
Gerçekten teşekkürler canım, formülün mükemmeldi, güzel, Allah senden razı olsun.
Saygılar.
Bu yorum sitedeki moderatör tarafından en aza indirildi
lakh crore formülde değil. Lütfen bana yardım et.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Örneğin 2500'ü "İki Bin Beş Yüz" kelimesine çeviriyoruz, "İki Bin Beş Yüz & Sent Sadece Elli" gibi çevirmek istiyorum, lütfen yardım eder misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sentleri hecelemiyorum... miktarım 123.50 ve "yüz yirmi üç" var... tüm formülü kopyaladım, lütfen yardım edin
Bu yorum sitedeki moderatör tarafından en aza indirildi
Lakhs ve crores ne olacak?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
İYİ. Ama bu formülün kalıcı olarak ÇALIŞMADIĞINI söylediğim için üzgünüm... Çalışma kitabını öğle tatili için kapattım. Öğle yemeğinden sonra dosyayı açtım ama formül çalışmıyordu. #NAME? gibi bir hata gösteriliyor. Lütfen samimi çözümler lütfen.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler


İşe yarıyor! :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
tutarım "618475" iken bir hata var "altı lac on sekiz bin dört yüz yetmiş beş" yerine "Altı Yüz Onsekiz Bin Dört Yüz Yetmiş Beş" yazıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
bende de aynı sorun var
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu bir problem değil, kelimelerle yazma biçimidir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
teşekkür ederim extendOfficea
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır