Fonksiyonların Tüm Çalışmalarda Kullanılması

[Serpily]

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

 

[xxrt]

Tüm Çalışma Kitaplarında Kullanabilmekse eğer maksadınız..
Leventm'nin Ã?rnek Çalışmasındaki =paraçevir fonksiyonunu,tüm çalışmalarınızda fonksiyon olarak kullanmak için;
1.)Yeni Çalışma Kitabı açınız,,
2.)Bu ÇalışmaKitabı açık ike Alt+F11 tuşuna basınız,
3.)Gelen Modül Sayfasına bir yeni Modül1 Ekleyiniz.
4.)Modül1'in içine leventm'nin çalışma sayfalarında kullanılmak üzere verilen =paracevir kodarının tamamını kopyalayıp,yeni açtığınız Kitap1'in Modül1 kod sayfasına paste ediniz..
5.)Bu Dosyayı (F12)Farklı olarak kaydedin..
6.)Kayıt Türü Olarak "Excel Eklentisi"Seçeneğini seçin..
7.)Zaten AddIns klasörü gelecek olup,oraya kaydedin...
Buraya kadar geldiyseniz,İşleminiz bitmiştir..
Esas Ã?nemli olan Eklenti olarak aldığınız bu çalışma Kitabının Tüm Çalışalarınızda kullanılmasıdır.
Herzaman kullandığınız veya yeni açtığınız Kitap2'de :
Araçlar>Eklentiler Kısmından Bu Kaydettiğiniz dosyayı işaretlemeniz yeterli..

 

[Serpily]

Sayın xxrt;
Koccaman teşekkürler efendim. Artık ytl korksun bizden.

 

[xxrt]

Valla ben hesapları ve işçi maaşlarını hala dönüştürmeye uğraşıyorum,cumadan beri burda geceli gündüzlüyüz,o değil biz korkmaya başladık.. :hiho:

 

[ozlemoner]

SİSTEME HENÜZ GİRDİM HERKESE MERHABA
BEN BU PARA ÇEVİR OLAYINI YAPAMADIM YARDIMCI OLURSANIZ MUTLU OLUCAM
SEVGİLERİMLE

 

[abdi]

sayın htsumerin kodları

--------------------------------------------------------------------------------

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:

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

Kodlarınızı ilave ettikten sonra Kod:

=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

sayın moderator levent m nin konuyla ilgili daha önce hazırladığı dosya linke tıklayarak indirebilirsiniz

http://www.excel.web.tr/download.php?id=830