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

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.433
    Beğenileri:
    7.360
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.871 Ç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.433
    Beğenileri:
    7.360
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.871 Ç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.433
    Beğenileri:
    7.360
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.871 ÇTL
    [Linkleri görebilmek için ÜYE olmalısınız!..] gerekli açıklamaları bulabilirsniz.
     

Sayfayı Paylaş