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?
ü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
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.
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.
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
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.