Bunun için kaynağını henüz tespit edemediğim çok eski bir makroyu paylaşıyorum: Function tl_yaz(sayi) On Error Resume Next Dim deg(3), s(3), deger(2) a = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz") b = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan") c = Array("", "", "Bin", "Milyon", "Milyar", "Trilyon") deger(1) = Int(sayi) deger(2) = Round(sayi - deger(1), 2) * 100 If sayi = 0 Then son = "sıfır" For g = 1 To 2 yazi = deger(g) For d = 1 To Len(yazi) Step 3 e = e + 1 deg(1) = Mid(yazi, Len(yazi) - d - 1, 1) deg(2) = Mid(yazi, Len(yazi) - d, 1) deg(3) = Mid(yazi, Len(yazi) - d + 1, 1) If deg(1) ...