Bir çalışmayı .xlm olarak kaydedip XLSTART içine atıp tüm Excel uygulamalarında =paracevir() olarak kullanma imkanı var mı?
Edit:=paraçevir Fonksiyonu ile ilgili Kısım
Edit:=paraçevir Fonksiyonu ile ilgili Kısım
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
sayın moderator levent m nin konuyla ilgili daha önce hazırladığı dosya linke tıklayarak indirebilirsiniz--------------------------------------------------------------------------------
Merhaba,Mars2 arkadaşımızın kodunu yeni Kuruş Tl ile arşivinize alırsanız eminim işinize yarıyacaktır.Bir Modul1'in içine Kod:
Kodlarınızı ilave ettikten sonra Kod:Kod:Public Function ParaCevir(Para) Dim ParaStr As String Dim Lira As String, Kurus As String If Not IsNumeric(Para) Then GoTo SayiDegil ParaStr = Format(Abs(Para), "0.00") Lira = Left(ParaStr, Len(ParaStr) - 3) Kurus = Right(ParaStr, 2) ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(Lira) & " Lira " & Cevir(Kurus) & " Kuruş" Exit Function SayiDegil: ParaCevir = "GİRİLEN DEÃER SAYI DEÃİL!" 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
=ParaCevir(A1)
Fonksiyonunu herhangi bir hücreye yazdıktan sonra A1 Hücresine Mesela;1,256,630 lira yaz.Sonuç:Kod:
Birmilyonikiyüzellialtıbinaltıyüzotuz Lira Sıfır Kuruş
Olacaktır.Dahada ilerletebilirsin.
_________________
Excel-2003