Excel rakamı yazıya çevirme – para tutarı rakama çevirme – TL yi yazıyla yazma

Yayın tarihi

Öncelikle Ofis 2007, ofis 2010 ve üstü için

Görünüm sekmesinden
Makrolar
Makro Kaydet (bi isim verip geçiyoruz)
sonra alt+f8 e basıp düzenle diyoruz.

önce bu kodu yerleştiriyoruz.
KOD:
———————————————————————————————————-

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) <> 0 Then s(1) = Replace(a(deg(1)) & "Yüz", "BirYüz", "Yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
If deg(1) + deg(2) + deg(3) = 0 Then s(3) = ""
son = s(1) & s(2) & s(3) & son
If Left(son, 6) = "BirBin" Then son = Replace(son, "BirBin", "Bin")
For f = 1 To 3
deg(f) = ""
s(f) = ""
Next: Next
If g = 1 And deger(1) <> 0 Then tl = son & " TürkLirası"
If g = 2 And deger(2) <> 0 Then kr = " " & son & " Kuruş"
son = ""
e = 0
Next
tl_yaz = tl & kr
End Function

———————————————————————————————————-

ekledikten sonra pencereyi kapatıyoruz

daha sonra bu kodla TL rakamla yazılı olan hücreyi belirtiyoruz. örnek olarak A1 yazdım, yazıya çevirmek istediğiniz hücre hangisi ise onu seçiniz.
Kod:
=tl_yaz(A1)

 

işte bu kadar.

basitcozum.com

“Excel rakamı yazıya çevirme – para tutarı rakama çevirme – TL yi yazıyla yazma” üzerine 64 düşünce

  1. Tek seferliğinemi olacak exele kaydedilemiyor fonksiyon olduğu için. Yani dosyayı kapattığımda kaydedemediği için uçuyor. Yeniden kod lazım olduğunda tekrar girmek gerekiyor. Bu ne biçim iş, yoksa benmi yanlış yapıyorum.

    Yanıtla ↓

  2. I simply needed to thank you very much again. I’m not certain what I would’ve undertaken without the type of points revealed by you directly on such theme. This was the challenging issue in my view, however , finding out your expert fashion you solved that made me to weep for delight. Extremely happier for this information and thus expect you are aware of an amazing job you have been getting into educating many people via your blog. Most likely you’ve never got to know all of us.

    Yanıtla ↓

  4. sayın admin,
    ben yazı şeklinde her bir rakamın ayrı ayrı yazılmasını istiyorum ve sayılardan sonra kodların içerisinde boşluk bırakarak bunu yapıyorum. fakat örnk”129.890,00″ tl çevirdiğinde bir yüz yirmi dokuz bin sekiz yüz doksan türk lirası yazıyor. dolayısı ile
    kodun içerisindeki “biryüz” kısmını kaldırmak istiyorum fakat yapamıyorum lütfen yardımcı olurmusunuz.

    Yanıtla ↓

    • Murat bey, aynı formülü kullanarak 129890 tl yi yazıya çevirtiyorum.
      YüzYirmiDokuzBinSekizYüzDoksan TürkLirası çıkıyor. bir yüz vs yazmıyor.
      dolayısıyla formülde bir değişikliğe gitmenize gerek yoktur.
      ben bu denemeyi ofis 2010 ile yaptım, 2003 te de calışacağını umuyorum.

      Yanıtla ↓

  9. I just want to say I am just beginner to weblog and definitely loved you’re web site. Very likely I’m going to bookmark your blog post . You amazingly come with great writings. Thanks a bunch for sharing with us your blog site.

    Yanıtla ↓

    • sevgili salih, traş oldum, ama saç veya sakal değil! öncelikle işine yaramasa da yazdıklarımız senin bunu cıvık ağızla söylemen hoş değil.
      konuya gelecek olursak eklentisiz olarak rakamı yazıya çevirmek istiyorsan bu basit bir formüldür.

      Yanıtla ↓

  12. çok güzel olmuş eline sağlık yanlız küçük yazı ile yazıyor bunun modülünü büyük harfle yapmanız yada varsa bir çözümünü bana mail atabilirmisiniz teşekkürler.

    Yanıtla ↓

  18. Abi makroyu dediğin gibi girdim işe yaradı kaydettim daha sonra aynı excelin başka sayfasına =tl_yaz(g12) dedim çalışmadı ve makroyu silip ilk haline getiremiyorum nasıl yapabilirim ilk haline yada her sayfada çalışması için ne yapmam gerekiyor. Yardımcı olursanız çok sevinirim.

    Yanıtla ↓

  21. Hi, i think that i saw you visited my website thus i came to “return the favor”.I’m trying to find things to enhance my site!I suppose its ok to use a few of your ideas!!|

    Yanıtla ↓

  22. Thanks , I have recently been searching for info approximately this topic for ages and yours is the greatest I have found out so far. However, what concerning the bottom line? Are you positive in regards to the source?|

    Yanıtla ↓

  24. I’m truly enjoying the design and layout of your blog. It’s a very easy on the eyes which makes it much more pleasant for me to come here and visit more often. Did you hire out a developer to create your theme? Exceptional work!|

    Yanıtla ↓

  27. makroyu kaydediyorum işlem yapıparken sıkıntı yok gayet iyi çalışıyor ama sayfayı kapatıp tekrara açtıtan sonra makrolara kaydetmiş olduğumuz formül siliniyo excel makro çalışma kitabı olarakta kaydettim ama sorun çözülmüyo her defasında kayıt siliniyo yardım lütfen

    Yanıtla ↓

  29. Very nice post. I just stumbled upon your weblog and wanted to say that I’ve really enjoyed surfing around your blog posts. In any case I will be subscribing to your rss feed and I hope you write again soon!|

    Yanıtla ↓

  30. Greetings from Colorado! I’m bored at work so I decided to check out your website on my iphone during lunch break. I really like the information you present here and can’t wait to take a look when I get home. I’m amazed at how fast your blog loaded on my cell phone .. I’m not even using WIFI, just 3G .. Anyhow, good site!|

    Yanıtla ↓

  31. An interesting discussion is worth comment. I think that you should write more on this topic, it might not be a taboo subject but generally people are not enough to speak on such topics. To the next. Cheers

    Yanıtla ↓

  32. Hello my family member! I want to say that this article is awesome, nice written and come with almost all vital infos. I’d like to peer more posts like this .|

    Yanıtla ↓

  34. Have you ever considered about including a little bit more than just your articles? I mean, what you say is valuable and all. Nevertheless think about if you added some great photos or video clips to give your posts more, “pop”! Your content is excellent but with pics and video clips, this website could certainly be one of the greatest in its niche. Excellent blog!|

    Yanıtla ↓

  36. This design is incredible! You certainly know how to keep a reader amused. Between your wit and your videos, I was almost moved to start my own blog (well, almost…HaHa!) Wonderful job. I really loved what you had to say, and more than that, how you presented it. Too cool!|

    Yanıtla ↓

  38. Hello my friend! I want to say that this post is amazing, great written and include approximately all important infos. I’d like to look extra posts like this .|

    Yanıtla ↓

  41. hacım ellerine sağlık süper olmuş. bu işlemi formüllerle yapmıştım gereksiz bir sürü tablo ve formül yazmak zorunda kalmıştım. kusursuz çalışıyor.

    Yanıtla ↓

  42. Gerçekten çok faydalı bir paylaşım olmuş, benim sorum örneğin “YirmiYedi Türk Lirası Doksan Kuruş” ta yirmi ve yediyi birleşik yazıyor, ben arasında boşluk kalmasını yani Yirmi Yedi Türk Lirası yazmasını istiyorum. Mümkün müdür acaba yardımcı olabilir misiniz?

    Yanıtla ↓

    • Alt + F11 e basın orada açılan modülde kopyaladığınız kodlar var.
      “Bir”
      “İki” gibi devam eden metinleri boşluk bırakarak yazın. Şu şekilde:
      “Bir ”
      “İki ”
      “Üç ”
      Bütün metinlerde o tek boşluğu bırakarak yazdığınızda istediğiniz aralıklar ortaya çıkmış olacak. Modülü kapatıp yeni bir rakam yazın ve kontrol edin.

      Yanıtla ↓

    • makroda kodu yazdıktan sonra en altta TürkLirası yazan yere DOLAR ve Kuruş yazan yere SENT yazarsan çıkar. aynı sorun bende de vardı denedim oldu.

      ADMİN BABA, İNGİLİZCE OLARAK YAZSIN DİYE ( commercial invoice lar için) Türkçe yazdığın rakamları ingilizce yazdım olmadı patladı.
      bir el atarsan çok sevinirim. Allah şimdiden razı olsun. .

      Yanıtla ↓

      • Aslında istediğim şöyle;

        Sub eur()
        Function euroeng_yaz(sayi)
        On Error Resume Next
        Dim deg(3), s(3), deger(2)
        a = Array(“”, “ONE “, “TWO “, “TREE “, “FOUR “, “FIVE “, “SIX “, “SEVEN “, “EIGHT “, “NINE “)
        b = Array(“”, “TEN “, “TWENTY “, “THIRTY “, “FOURTY “, “FIFTY “, “SIXTY “, “SEVENTY “, “EIGHTY “, “NINETY “)
        c = Array(“”, “”, “THOUSAND “, “MILLION “, “BILLION “, “GRANDBILLION “)
        deger(1) = Int(sayi)
        deger(2) = Round(sayi – deger(1), 2) * 100
        If sayi = 0 Then son = “ZERO”
        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) 0 Then s(1) = Replace(a(deg(1)) & “HUNDRED “, “HUNDRED “, “HUNDRED “)
        s(2) = b(deg(2))
        s(3) = a(deg(3)) & c(e)
        If deg(1) + deg(2) + deg(3) = 0 Then s(3) = “”
        son = s(1) & s(2) & s(3) & son
        If Left(son, 6) = “THOUSAND” Then son = Replace(son, “THOUSAND”, “THOUSAND”)
        If Left(son, 2) = “TEN ONE ” Then son = Replace(son, “ELEVEN “, “ELEVEN “)
        For f = 1 To 3
        deg(f) = “”
        s(f) = “”
        Next: Next
        If g = 1 And deger(1) 0 Then EURO = son & ” EURO”
        If g = 2 And deger(2) 0 Then CENT = ” ” & son & ” CENT”
        son = “”
        e = 0
        Next
        euroeng_yaz = EURO & CENT
        End Function

        Fakat burada bir sorun var 11 ile 19 arası tüm rakamları Ten One Ten Two vs.vs. diye yanlış olarak yazıyor. Bu olay ile ilgili yardım etmenizi rica ediyorum.

        Saygılar

        Yanıtla ↓

  45. Merhaba, makroyu kaydettim çalışıyor. Ancak şöyle bir durum var, örneğin; formül ile çıkan 187,00 TL tutarı yazıya çevirirken Yüzseksenaltı TürkLirası Yüz Kuruş şeklinde çeviriyor. Sayıyı 3 ondalık basamaklı sayıya çevirdiğimde; 186,998 TL yazıyor. Ben, 2 basamaklı olduğu gibi yani YüzSeksenYedi Türk Lirası şeklinde çevirmesini istiyorum. Nasıl yapabiliriz?

    Yanıtla ↓

  47. Öncelikle emeğinize sağlık. Çok yararlı bir paylaşım olmuş. benim formülle ilgili sıkıntım şu, 1000 sayısını metne çevirirken “BİRBİN” şeklinde değiştiriyor. yardımcı olursanız sevinirim.

    Yanıtla ↓

serhat için bir cevap yazın Cevabı iptal et

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir