Excel De Rakamı Yazıya Çevirme

Excel’de Rakamı Yazıya Çevirme

Excel, günlük hayatta sıklıkla kullandığımız bir programdır. Bu programda, sayıları yazıya çevirmek için çeşitli yöntemler bulunmaktadır. Bu yöntemlerden bazıları şunlardır:

• Sayı Biçimleri Kullanma: Excel’de, sayıları yazıya çevirmek için sayı biçimleri kullanabilirsiniz. Sayı biçimleri, sayıların nasıl görüntüleneceğini belirler. Örneğin, bir sayıyı para birimi olarak görüntülemek için para birimi sayı biçimini kullanabilirsiniz. Sayı biçimlerini kullanarak sayıları yazıya çevirmek için şu adımları izleyebilirsiniz:

  1. Sayıları içeren hücreleri seçin.
  2. Giriş sekmesine tıklayın.
  3. Sayı grubu altında, Sayı Biçimi açılır listesini tıklayın.
  4. Yazı sayı biçimini seçin.

• Metin İşlevlerini Kullanma: Excel’de, sayıları yazıya çevirmek için metin işlevlerini de kullanabilirsiniz. Metin işlevleri, metin verileriyle ilgili işlemler yapmanıza olanak tanır. Sayıları yazıya çevirmek için kullanabileceğiniz metin işlevlerinden bazıları şunlardır:

  • SAYI2YAZI: Bu işlev, bir sayıyı yazıya çevirir.
  • SAYI2METİN: Bu işlev, bir sayıyı metne çevirir.
  • BİRLEŞTİR: Bu işlev, birden fazla metin değerini birleştirir.

• VBA Kullanma: Excel’de, sayıları yazıya çevirmek için VBA (Visual Basic for Applications) kullanabilirsiniz. VBA, Excel’de makro oluşturmanıza olanak tanıyan bir programlama dilidir. Sayıları yazıya çevirmek için VBA kullanarak şu adımları izleyebilirsiniz:

  1. Geliştirici sekmesine tıklayın.
  2. Kod grubunda, Visual Basic’i tıklayın.
  3. VBE (Visual Basic Editor) penceresi açılacaktır.
  4. Ekle > Modül’ü tıklayın.
  5. Aşağıdaki kodu modül penceresine yapıştırın:

Function Sayi2Yazi(sayi)
Dim yuzler, onlar, birler, binler, milyonlar, milyarlar
yuzler = Int(sayi / 100)
onlar = Int((sayi - yuzler * 100) / 10)
birler = sayi - yuzler * 100 - onlar * 10
binler = Int(sayi / 1000)
milyonlar = Int(sayi / 1000000)
milyarlar = Int(sayi / 1000000000)
If milyarlar > 0 Then
Sayi2Yazi = Sayi2Yazi(milyarlar) & " milyar "
End If
If milyonlar > 0 Then
Sayi2Yazi = Sayi2Yazi & Sayi2Yazi(milyonlar) & " milyon "
End If
If binler > 0 Then
Sayi2Yazi = Sayi2Yazi & Sayi2Yazi(binler) & " bin "
End If
If yuzler > 0 Then
Sayi2Yazi = Sayi2Yazi & Sayi2Yazi(yuzler) & " yüz "
End If
If onlar > 0 Then
Sayi2Yazi = Sayi2Yazi & Sayi2Yazi(onlar) & " on "
End If
If birler > 0 Then
Sayi2Yazi = Sayi2Yazi & Sayi2Yazi(birler)
End If
Sayi2Yazi = Trim(Sayi2Yazi)
End Function

6. Modülü kaydedin ve kapatın.
7. Sayıları içeren hücreleri seçin.
8. Formül çubuğuna =Sayi2Yazi(A1) yazın. (A1, sayıları içeren hücrenin adresidir.)
9. Enter tuşuna basın.

Konuyla Alakalı Faydalı Siteler ve Dosyalar:

• Excel’de Sayıları Yazıya Çevirme
• Excel’de Sayıları Yazıya Çevirme VBA Kodu
• Excel’de Sayıları Yazıya Çevirme Çalışma Dosyası