Elektronik tablolar birçok kişi tarafından günlük işlerinde kullanılır ve bu da onları ofislerinin önemli bir unsuru haline getirir. İnsanların çoğu elektronik tabloları oldukça basit bir şekilde kullanırken, bazı ileri düzey kullanıcılar bunu zor veya karmaşık bulur sayıyı kelimelere dönüştürme Bu kılavuzda, bu sorunu ele aldık ve aşağıdakileri sağladık dört için farklı yöntemler sayıyı kelimelere dönüştürme Ayrıca, Excel'de üç için daha fazla yöntem sayıları metin biçimlerine dönüştürme .

Çalışma Kitabını İndirin

Bu makalede kullandığımız çalışma kitabını aşağıdan indirebilir ve kendiniz pratik yapabilirsiniz.

Excel'de Sayıyı Sözcüklere Dönüştürmenin 4 Yolu

Makalenin bu bölümünde Excel'de sayıların kelimelere nasıl dönüştürüleceği açıklanmaktadır. Ayrıca, aşağıdakileri de göstereceğiz dört tekniklerini kullanacağız. Oturumu gerçekleştirmek için Microsoft 365 sürümü .

1. Excel'de Sayıyı Sözcüklere Dönüştürmek için Birleşik İşlevlerin Kullanımı

Burada kullandığımız Excel formülü aşağıdakilere dayanır dört fonksiyonlar. SOL , MID , METİN , ve SEÇİNİZ fonksiyonlar.

İlk olarak, sözdizimi SOL fonksiyonu aşağıdaki gibidir:

Temel olarak, bu fonksiyon metinden karakterleri ayıklamak için kullanılır.

Metin: Karakterlerin ayıklanacağı metin dizesi.

num_chars [İsteğe bağlı]: Çıkarılacak karakter sayısı. Varsayılan olarak soldan başlar, num_chars=1 .

İkinci olarak, sözdizimi MID fonksiyonu aşağıdaki gibidir:

Aslında, bu fonksiyon bir dizenin içinden metin çıkarmak için kullanılır.

Metin: Çıkarılacak metin.

start_num: Çıkarılacak ilk karakterin konumu.

num_chars: Çıkarılacak karakter sayısı.

Üçüncü olarak, sözdizimi METİN fonksiyonu aşağıdaki gibidir:

Sonuç olarak, bu fonksiyon bir sayıyı sayı formatında bir metne dönüştürür.

değer: Dönüştürülecek sayı.

format_text: Kullanılacak sayı biçimi.

Daha sonra, sözdizimi SEÇİNİZ fonksiyonu aşağıdaki gibidir:

Bu fonksiyon, konuma göre bir listeden bir değer alır.

index_num: Seçilecek değer. arasında bir sayı 1 ve 254 .

değer1: Aralarından seçim yapılabilecek ilk değer.

value2 [isteğe bağlı]: Aralarından seçim yapılabilecek ikinci değer.

• Burada, sayıyı dönüştürerek Kelimelerdeki Sayılar sütun.

• Şimdi, aşağıdaki formülü yazınız C5 Hücre.

=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,, "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")

&IF(–LEFT(TEXT(B5,”000000000.00″))=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),2,1)=0,–MID(TEXT(B5,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),2,1)+1,,, "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")

&IF(-MID(TEXT(B5, "000000000.00″),2,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),

CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen"))

&IF((–LEFT(TEXT(B5,”000000000.00″))+MID(TEXT(B5,”000000000.00″),2,1)+MID(TEXT(B5,”000000000.00″),3,1))=0,,IF(AND((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1)+MID(TEXT(B5,”000000000.00″),7,1))=0,(–MID(TEXT(B5,”000000000.00″),8,1)+RIGHT(TEXT(B5,”000000000.00″)))>0),” Million and “,” Million “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),4,1)+1,, "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")

&IF(–MID(TEXT(B5,”000000000.00″),4,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),5,1)=0,–MID(TEXT(B5,”000000000.00″),6,1)=0),” Hundred”,” Hundred and”))

&CHOOSE(MID(TEXT(B5, "000000000.00″),5,1)+1,,," Yirmi"," Otuz"," Kırk"," Elli"," Altmış"," Yetmiş"," Seksen"," Doksan")

&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Ten"," Eleven"," Twelve"," Thirteen"," Fourteen"," Fifteen"," Sixteen"," Seventeen"," Eighteen"," Nineteen")

&IF((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000.00″),7,1)+MID(TEXT(B5,”000000000.00″),8,1)+MID(TEXT(B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”000000000.00″),7,1)0),” Thousand “,” Thousand and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),7,1)+1,, "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")

&IF(–MID(TEXT(B5,”000000000.00″),7,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),8,1)=0,–MID(TEXT(B5,”000000000.00″),9,1)=0),” Hundred “,” Hundred and “))&

CHOOSE(MID(TEXT(B5, "000000000.00″),8,1)+1,, "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")

&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1, "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

Formülün tamamı ilk bakışta karmaşık görünebilir, ancak aslında tek bir bölümün tekrarıdır. önce kısmını çözdüğünüzde, geri kalanını anlayabilmeniz gerekir.

• Ardından, tuşuna basın GİRİŞ .

Sonuç olarak, aşağıdaki çıktıyı göreceksiniz.

Formül Dağılımı:

İlk başta METİN fonksiyonu burada sayıyı bir "000000000.00" metin formatı.

TEXT(B7,”000000000.00″)

Bundan sonra SOL fonksiyonu, sayıdan en soldaki karakteri çıkarmak için kullanılır. Geri dönen sayının aşağıdaki gibi olup olmadığını belirlememizi sağlar sıfır veya başka herhangi bir değer.

LEFT(TEXT(B7,”000000000.00″))

Daha sonra SEÇİNİZ fonksiyonu, çıkarılan sayıyı uygun kelimelerle temsil etmek için kullanılır.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")

Şimdi, değerin şu olup olmadığını kontrol eder sıfır ya da değil. Eğer öyleyse sıfır sonra hiçbir şey göstermez.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,

Şunları gösterecektir "Yüz" eğer bir sonraki iki sayılar sıfır . Aksi takdirde, görüntülenecektir "Yüz ve."

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”000000000.00″),2,1)=0,–MID(TEXT(B7,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

Bu formül aşağıdakileri gerektirmez VBA Sayıları kelimelere dönüştürmek için mükemmel bir yöntemdir. iki Birincisi, noktalardan sonra ondalık sayıları mükemmel bir şekilde temsil edemez. İkincisi, maksimum sayı sınırı 999, 999, 999 Aslında, Bay Pete M. bu formülü buldum.

• Şimdi, geri kalan satırlar için formülü yazabilir veya sadece Excel Otomatik Doldurma Özelliği .

Son olarak, tüm sayıları kelimelere dönüştürdü .

Daha fazlasını okuyun: Excel'de 2 Ondalık Basamaklı Sayıyı Metne Dönüştürme (5 Yol)

2. Sayıları Kelimelere Dönüştürmek için DÜŞEYARA Fonksiyonunun Uygulanması

Başvurabilirsiniz VLOOKUP fonksiyonuna sayıları kelimelere dönüştürme Burada, önce tüm sayıları kelimelere eklemeniz gerekir, ardından herhangi bir sayıyı onlardan kelimelere dönüştürmek için bu işlevi kullanabilirsiniz.

Adımlar:

• İlk olarak, tüm sayıları kelimeler halinde manuel olarak C sütunu .

• Şimdi, aşağıdaki formülü kullanın C12 Hücre.

• Ardından, tuşuna basın GİRİŞ .

Formül Dağılımı

Bu formülde VLOOKUP fonksiyonu verilen bir diziden bir değer döndürür.

• İlk olarak, B12 verilen tabloda aradığı arama değeridir.
• İkinci olarak, B4:C9 bu tablo dizisi içinde aradığı hedef değer .
• Üçüncüsü, 2 bir değerin döndürüleceği tablodaki sütun sayısıdır.
• Dördüncü olarak, Yanlış bir tam olarak Maç.

Daha fazlasını okuyun: Excel'de DÜŞEYARA için Sayıyı Metne Dönüştürme (2 Yol)

Benzer Okumalar

• Excel'de Kesme İşareti ile Sayıyı Metne Dönüştürme
• Excel'de Yeşil Üçgen ile Sayıyı Metne Dönüştürme
• Excel'de Virgül ile Sayıyı Metne Dönüştürme (3 Kolay Yöntem)
• Excel'de Bilimsel Gösterim Olmadan Sayıyı Metne Dönüştürme
• Excel'de Peso Sayısı Kelimelere Nasıl Dönüştürülür (Kolay Adımlarla)

3. Excel'de Sayıyı kelimelere dönüştürmek için bir VBA kullanma

İşin en ilginç yanı ise kendi kendi işlevi için sayıları kelimelere dönüştürün Ayrıca, Excel'de VBA kodu geliştirmek için tanımlanmış fonksiyonu. Adımlar aşağıda verilmiştir.

Adımlar :

• İlk olarak, seçmeniz gereken Geliştirici sekmesini>> ardından Visual Basic.

• Şimdi Ekleme sekmesini>> seçmeniz gerekir Modül .

• Şu anda aşağıdakileri yazmanız gerekmektedir Kod içinde Modül .

 Function number_converting_into_words(ByVal MyNumber) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_string_Num Dim x_pnt As String Dim x_numb As String Dim x_P() As Variant Dim x_DP Dim x_cnt As Integer Dim x_output, x_T As String Dim x_my_len As Integer On Error Resume Next x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ") x_numb =Trim(Str(MyNumber)) x_DP = InStr(x_numb, ".") x_pnt = "" x_string_Num = "" If x_DP> 0 Then x_pnt = " point " x_string = Mid(x_numb, x_DP + 1) x_string_pnt = Left(x_string, Len(x_numb) - x_DP) For whole_num = 1 To Len(x_string_pnt) x_string = Mid(x_string_pnt, whole_num, 1) x_pnt = x_pnt & get_digit(x_string) & " " Next whole_num x_numb = Trim(Left(x_numb, x_DP - 1)) End If x_cnt = 0x_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1 Do While x_numb "" If x_my_len = x_cnt Then x_T = get_hundred_digit(Right(x_numb, 3), False) Else If x_cnt = 0 Then x_T = get_hundred_digit(Right(x_numb, 3), True) Else x_T = get_hundred_digit(Right(x_numb, 3), False) End If x_T "" Then x_output = x_T& x_P(x_cnt) & x_output End If If Len(x_numb)> 3 Then x_numb = Left(x_numb, Len(x_numb) - 3) Else x_numb = "" End If x_cnt = x_cnt + 1 Loop x_output = x_output & x_pnt number_converting_into_words = x_output End Function Function get_hundred_digit(xHDgt, y_b As Boolean) Dim x_R_str As String Dim x_string_Num As String Dim x_string As String Dim y_I As Integer Dim y_bb As Booleanx_string_Num = xHDgt x_R_str = "" On Error Resume Next y_bb = True If Val(x_string_Num) = 0 Then Exit Function x_string_Num = Right("000" & x_string_Num, 3) x_string = Mid(x_string_Num, 1, 1) If x_string "0" Then x_R_str = get_digit(Mid(x_string_Num, 1, 1)) & "Hundred " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " " y_bb = False End If Mid(x_string_Num, 2, 2)"00" Then x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb) End If get_hundred_digit = x_R_str End Function Function get_ten_digit(x_TDgt, y_b As Boolean) Dim x_string As String Dim y_I As Integer Dim x_array_1() As Variant Dim x_array_2() As Variant Dim x_T As Boolean x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ","Eighteen ", "Nineteen ") x_array_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") x_string = "" x_T = True On Error Resume Next If Val(Left(x_TDgt, 1)) = 1 Then y_I = Val(Right(x_TDgt, 1)) If y_b Then x_string = "and " x_string = x_string & x_array_1(y_I) Else y_I = Val(Left(x_TDgt, 1)) If Val(Left(x_TDgt, 1))> 1 Then If y_b Thenx_string = "ve " x_string = x_string & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If x_string = "" Then If y_b Then x_string = "and " End If End If If Right(x_TDgt, 1) "0" Then x_string = x_string & get_digit(Right(x_TDgt, 1)) End If End If get_ten_digit = x_string End Function get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("Zero ","Bir ", "İki ", "Üç ", "Dört ", "Beş ", "Altı ", "Yedi ", "Sekiz ", "Dokuz ") x_string = "" On Error Resume Next x_string = x_array_1(Val(xDgt)) get_digit = x_string End Function 

• Şimdi, kaydetmek zorundasınız kod .
• Ardından, şu adrese gitmeniz gerekir Excel çalışma sayfası .

Şu anda, kendi tanımlanmış Bunun için verilen adımları izlemelisiniz.

Adımlar:

• Şimdi, dönüştürülmüş çıktıyı göstermek istediğiniz hücreyi seçin. (Bizim durumumuzda, hücre C5 ).
• Ardından, şu adresi girin Eşittir işareti (=) Formülleri yazmanıza olanak sağlamalıdır.
• Bundan sonra, " =number_converting_into_words " öğesini seçin veya number_converting_into_words işlevini açılır menüden seçin.
• Ardından, kelimelere dönüştürmek istediğiniz sayı değerinin bulunduğu hücreyi seçin (Bizim durumumuzda, hücre B5 ).
• Son olarak GİRİŞ Düğme.

Sonuç olarak, seçtiğiniz hücre numarasını karşılık gelen kelimelere dönüştürecektir. Son olarak, bu formülü diğer hücrelere de kopyalayabilirsiniz.

Daha fazlasını okuyun: Excel'de Sayısal Bir Değeri İngilizce Kelimelere Dönüştürme

4. Excel'de Para Birimlerini İfade Etmek için VBA Kullanımı

Bu yöntem de bir öncekine benzer şekilde bir modül ekleyerek çalışır. VBA (Uygulama için Visual Basic) Son yöntemden farklı olduğu nokta ise sayıları uygun para birimi sözcüklerine dönüştürür. Ayrıca, aşağıda bir örnek verilmiştir.

Şimdi, bu yöntemi uygulamak için aşağıdaki adımları izleyin:

• İlk olarak, takip edin yöntem-3 modülü yerleştirmek için.
• İkinci olarak, aşağıdaki kodu Modül 2 .

 Function Convert_Number_into_word_with_currency(ByVal whole_number) Dim converted_into_dollar, converted_into_cent my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") whole_number = Trim(Str(whole_number)) x_decimal = InStr(whole_number, ".") If x_decimal> 0 Then converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2)) whole_number =Trim(Left(whole_number, x_decimal - 1)) End If xIndex = 1 Do While whole_number "" xHundred = "" xValue = Right(whole_number, 3) If Val(xValue) 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) "0" Then xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred " End If Mid(xValue, 2, 1) "0" Then xHundred =xYüz & get_ten(Mid(xValue, 2)) Else xYüz = xYüz & get_digit(Mid(xValue, 3)) End If End If xYüz "" Then converted_into_dollar = xYüz & my_ary(xIndex) & Dollar End If Len(bütün_sayı)> 3 Then bütün_sayı = Left(bütün_sayı, Len(bütün_sayı) - 3) Else bütün_sayı = "" End IfxIndex = xIndex + 1 Loop Select Case converted_into_dollar Case "" converted_into_dollar = " Zero Dollar" Case "One" converted_into_dollar = " One Dollar" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Case converted_into_cent Case "" converted_into_cent = " and Zero Cent" Case "One"converted_into_cent = " and One Cent" Case Else converted_into_cent = " and " & converted_into_cent & "Cents" End Select Convert_Number_into_word_with_currency = converted_into_dollar & converted_into_cent End Function Function get_ten(pTens) Dim my_output As String my_output = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: my_output= "On" Durum 11: my_output = "Onbir" Durum 12: my_output = "Oniki" Durum 13: my_output = "Onüç" Durum 14: my_output = "Ondört" Durum 15: my_output = "Onbeş" Durum 16: my_output = "Onaltı" Durum 17: my_output = "Onyedi" Durum 18: my_output = "Onsekiz" Durum 19: my_output = "Ondokuz" Durum Else End Select ElseSelect Case Val(Left(pTens, 1)) Case 2: my_output = "Twenty " Case 3: my_output = "Thirty " Case 4: my_output = "Forty " Case 5: my_output = "Fifty " Case 6: my_output = "Sixty " Case 7: my_output = "Seventy " Case 8: my_output = "Eighty " Case 9: my_output = "Ninety " Case Else End Select my_output = my_output & get_digit(Right(pTens, 1)) End If get_ten =my_output End Function Function get_digit(pDigit) Select Case Val(pDigit) Case 1: get_digit = "One" Case 2: get_digit = "Two" Case 3: get_digit = "Three" Case 4: get_digit = "Four" Case 5: get_digit = "Five" Case 6: get_digit = "Six" Case 7: get_digit = "Seven" Case 8: get_digit = "Eight" Case 9: get_digit = "Nine" Case Else: get_digit = "" End Select EndFonksiyon 

Sonuç olarak, kendi tanımlanmış adlı fonksiyon Convert_Number_into_word_with_currency Bunun için verilen adımları takip etmelisiniz.

Adımlar:

• Şimdi, sonucu saklamak istediğiniz bir hücre seçmelisiniz. C5 Hücre.
• Ardından, ilgili formülü şurada kullanmanız gerekir C5 Hücre.

• Ardından, tuşuna basın GİRİŞ .

• Son olarak, Excel Otomatik Doldurma Özelliği hücrelerin geri kalanı için C6:C9 .

Son olarak, dönüştürülen tüm tutarı alacaksınız.

Daha fazlasını okuyun: Excel'de Sayıyı Metne Dönüştürme ve Sondaki Sıfırları Koruma (4 Yol)

Excel'de Sayıyı Metin Biçimine Dönüştürme

Şimdiye kadar şu konulardan bahsettik sayılar kelimelere nasıl dönüştürülür Makalenin bu bölümünde, Excel'de sayıları metin biçimine dönüştürme Excel'de sayıları metne dönüştürmek için en basit ve en hızlı yöntemdir.

İşte bu yöntemi uygulamak için aşağıdaki adımları izleyin:

• İlk olarak, metne dönüştürmek istediğiniz sayısal değerlere sahip hücreyi veya hücreleri seçin (bizim durumumuzda, hücre C5:C9 )
• İkinci olarak, şu adrese gidin Ev sekmesini seçin ve Metin altındaki hücre kategorisi açılır menüsünden Sayı Bölüm.

Sonuç olarak, seçtiğiniz hücrelerin sayısal değerini metne dönüştürecektir. Bunu hizalamaları gözlemleyerek anlayabilirsiniz. Excel'de varsayılan olarak metinler sola, sayılar sağa hizalıdır.

Veya şu tuşa basabilirsiniz CTRL+1 adlı pencereyi açmak için Hücreleri Biçimlendir seçin ve Sayı seçeneğini seçin ve ardından Metin oradan kategori.

Daha fazlasını okuyun: Sayıyı Metne Dönüştürmek için Excel VBA (4 Örnek)

Uygulama Bölümü

Pratik yapmak için, her sayfanın sağ kısmına bir Alıştırma bölümü ekledik.

Sonuç

Burada, bu makaleyi, sayının uygun kelimelere veya metne nasıl dönüştürüleceği hakkında nihai bir rehber haline getirmeye çalıştık. MS Excel . Dahası, biz yedi Bu makalede yer alan farklı teknikler sayesinde kendi özel durumunuza en uygun ideal seçeneği seçebilirsiniz. Umarız aradığınız çözümü bulursunuz. Herhangi bir öneriniz veya sorunuz varsa lütfen yorum bırakın. Teşekkürler.