Toplam 6 adet sonuctan sayfa basi 1 ile 6 arasi kadar sonuc gösteriliyor

Konu: excel

Hybrid View

  1. #1
    Ziyaretci
    üstadlar bi ara burada yazılmış program vardı rakamla yazmış olduğumuz 12,50 rakamla yazılanı nasıl oniki TL Elli Krş. Yazabilirim Acaba

  2. #2
    Müdavim Üye
    Üyelik tarihi
    26.Eylül.2007
    Nereden
    Uşak
    Mesajlar
    1,974
    bunun için kod yazılması gerekir.
    ücretsiz proğramlarda var bildiğim kadar ama o eski YTL ye göre yazılmış idi
    ben kodları düzneledim
    kodu burdan göndereyim sana exel in içine kayıt edebilirmisin?
    İyi olmak bu dünyada çözüm değil.

  3. #3
    Müdavim Üye
    Üyelik tarihi
    26.Eylül.2007
    Nereden
    Uşak
    Mesajlar
    1,974


    Function ParaCevir(Para, Optional PBirim = "Lira", Optional KBirim = "Kuruş")
    Dim ParaStr As String
    Dim Lira As String, Kurus As String

    If Not IsNumeric(Para) Then
    ParaCevir = "GİRİLEN DEĞER SAYI DEĞİL!"
    Exit Function
    End If

    ParaStr = Format(Abs(Para), "0.00")

    Lira = Left(ParaStr, Len(ParaStr) - 3)
    Kurus = Right(ParaStr, 2)

    ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(Lira) & " " & PBirim & " " & _
    IIf(Val(Kurus) <> 0, Cevir(Kurus) & " " & KBirim & " ", "")
    End Function


    Private Function Cevir(SayiStr As String) As String
    Dim Rakam(15)
    Dim c(3), Sonuc, e

    Birler = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
    Onlar = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
    Binler = Array("trilyon", "milyar", "milyon", "bin", "")

    SayiStr = String(15 - Len(SayiStr), "0") + SayiStr

    For i = 1 To 15
    Rakam(i) = Val(Mid$(SayiStr, i, 1))
    Next i

    Sonuc = ""
    For i = 0 To 4
    c(1) = Rakam(i * 3 + 1)
    c(2) = Rakam(i * 3 + 2)
    c(3) = Rakam(i * 3 + 3)
    If c(1) = 0 Then
    e = ""
    ElseIf c(1) = 1 Then
    e = "yüz"
    Else
    e = Birler(c(1)) + "yüz"
    End If
    e = e + Onlar(c(2)) + Birler(c(3))
    If e <> "" Then e = e + Binler(i)
    If (i = 3) And (e = "birbin") Then e = "bin"
    Sonuc = Sonuc + e
    Next i


    If Sonuc = "" Then Sonuc = "Sıfır"

    Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
    End Function


    İyi olmak bu dünyada çözüm değil.

  4. #4
    Kıdemli Üye
    Üyelik tarihi
    06.Temmuz.2009
    Mesajlar
    204

  5. #5
    Ziyaretci


    arkadaşlar onu gördümde excel dosyaların tamamında yapmak istiyorum şubat ayında forumda yazılmış olanı yapıştırınca biyere oduydu şimdi bulamıyorum

  6. #6
    Müdavim Üye
    Üyelik tarihi
    26.Eylül.2007
    Nereden
    Uşak
    Mesajlar
    1,974
    eğer tüm exelde geçerli oalcak bişey bulursan benimde işime yarar.
    ama yukardaki işlem exel e yapılan bir yama.
    tüm exelde geçerli olması için tahminimce exel in içersine kaydetmek gerekecek!!!!!!!!!!
    İyi olmak bu dünyada çözüm değil.

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •