1. * 5651 Sayılı Kanun'a göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur.
    * Telif hakkına konu olan eserlerin yasal olmayan şekilde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahiplerinin İLETİŞİM bölümünden bize ulaşmaları durumunda ilgili şikayet incelenip gereği 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz
Notu Gizle
Yaklaşık 6 ay içinde forumda köklü değişimlerin olacağı bir sürümle karşınızda olacağız. Sistemi test etmek için aşağıdaki adresi kullanabilirsiniz.

http://www.degisim-sanat.com/_xf2/
Notu Gizle
Merhaba Ziyaretçi.

"KIRMIZI" konulu resimler için anketimiz açıldı. İlgili konuya BURADAN ulaşabilirsiniz.

Sizi de ankete katılmaya davet ediyoruz...

excell de rakamları yazıya çevirme makrosu

Konusu 'Office Programları' forumundadır ve biz tarafından 9 Mayıs 2008 başlatılmıştır.

  1. biz

    biz Aktif

    Katılım:
    12 Şubat 2007
    Mesajlar:
    324
    Beğenileri:
    3
    Ödül Puanları:
    630
    Banka:
    0 ÇTL
    Arkadaşlar excell de rakamları makroyla yazıya çevirmek mümkün bende bu makrovardı kaybettim şöyle bir makro buldum hata veriyor düzelte bilirseniz memnun olurum
    Dim b$(9)
    Dim y$(9)
    Dim m$(4)
    Dim v(15)
    Dim c(3)

    Function Yaziyla$(sayi1)

    TamSayi = Int(sayi1)
    KusurSayi = Val(Right(Format(sayi1, "0.00"), 2))

    If KusurSayi <> 0 Then
    Yaziyla = YaziylaYaz(TamSayi) & "-YTL-" & YaziylaYaz(KusurSayi) & "-YKr-"
    Else
    Yaziyla = YaziylaYaz(TamSayi) & "-YTL-"
    End If

    End Function

    Function YaziylaYaz$(sayi)
    b$(0) = ""
    b$(1) = "Bir"
    b$(2) = "İki"
    b$(3) = "Üç"
    b$(4) = "Dört"
    b$(5) = "Beş"
    b$(6) = "Altı"
    b$(7) = "Yedi"
    b$(8) = "Sekiz"
    b$(9) = "Dokuz"

    y$(0) = ""
    y$(1) = "On"
    y$(2) = "Yirmi"
    y$(3) = "Otuz"
    y$(4) = "Kırk"
    y$(5) = "Elli"
    y$(6) = "Altmış"
    y$(7) = "Yetmiş"
    y$(8) = "Seksen"
    y$(9) = "Doksan"

    m$(0) = "Trilyon"
    m$(1) = "Milyar"
    m$(2) = "Milyon"
    m$(3) = "Bin"
    m$(4) = ""

    a$ = Str(sayi)
    If Left$(a$, 1) = " " Then pozitif = 1 Else pozitif = 0
    a$ = Right$(a$, Len(a$) - 1)
    For x = 1 To Len(a$)
    If (Asc(Mid$(a$, x, 1)) > Asc("9")) Or (Asc(Mid$(a$, x, 1)) < Asc("0")) Then GoTo hata
    Next x
    If Len(a$) > 15 Then GoTo hata
    a$ = String(15 - Len(a$), "0") + a$
    For x = 1 To 15
    v(x) = Val(Mid$(a$, x, 1))
    Next x

    s$ = ""
    For x = 0 To 4
    c(1) = v((x * 3) + 1)
    c(2) = v((x * 3) + 2)
    c(3) = v((x * 3) + 3)
    If c(1) = 0 Then
    e$ = ""
    ElseIf c(1) = 1 Then
    e$ = "Yüz"
    Else
    e$ = b$(c(1)) + "Yüz"
    End If
    e$ = e$ + y$(c(2)) + b$(c(3))
    If e$ <> "" Then e$ = e$ + m$(x)
    If (x = 3) And (e$ = "BirBin") Then e$ = "Bin"
    s$ = s$ + e$
    Next x

    If s$ = "" Then s$ = "Sıfır"
    If pozitif = 0 Then s$ = "Eksi" + s$
    YaziylaYaz$ = s$
    GoTo tamam
    hata: YaziylaYaz$ = "Hata"
    tamam:
    End Function
     
  2. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.605
    Beğenileri:
    7.624
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.265 ÇTL
    Hocam forumumuzda mecvuttu bu konu. Kullanım şekli de anlatılmıştı.

    [Linkleri görebilmek için ÜYE olmalısınız!..][Linkleri görebilmek için ÜYE olmalısınız!..]
     
  3. biz

    biz Aktif

    Katılım:
    12 Şubat 2007
    Mesajlar:
    324
    Beğenileri:
    3
    Ödül Puanları:
    630
    Banka:
    0 ÇTL
    konu açmadan önce hem arattım hemde kendim aradım fakat bir şey bulamadım onun için açtım
     
  4. cadaloz

    cadaloz Üyecik

    Katılım:
    6 Mayıs 2009
    Mesajlar:
    1
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    rakamları yazıya çeviren programı arıyorum ama tl ve ykr yazmayacak nasıl yapabilirim :(:(
     
  5. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.605
    Beğenileri:
    7.624
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.265 ÇTL
    Makrodan YTL veya TL yazan kısımları silmeniz yeterli.
     
  6. orhanyorulmaz

    orhanyorulmaz Üyecik

    Katılım:
    19 Aralık 2009
    Mesajlar:
    1
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    Arkadaşlar execllde 1-500 000 sayısını yazıya çewirmek için ne yapmalıyım. Yardım edebilecek var mı ? Ama makro olmayacak...... şimdiden tşkler
     
  7. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.605
    Beğenileri:
    7.624
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.265 ÇTL
    [Linkleri görebilmek için ÜYE olmalısınız!..] gerekli açıklamaları bulabilirsniz.
     

Sayfayı Paylaş