Paraçevir kodunu MODÜL de değilde sayfanın kendisine ekleme

[ferhatgurbuz]

Ekteki formül modül1 de çalışıyor. Bunu sayfanın kendisine alamaz mıyız, yani sayfa taşındığında yada yedeği alındığında formülde sayfa ile birlikte gitsin. ilgilenen arkadaşlara teşekkürler





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

 

[zafer]

Merhaba

Kodları yeni bir kitaptaki modüle kopyalayıp. zzzzzz.xla olarak office/xlstart dizinine kaydedin.

Kitap excel her açıldığında otomatik açılacaktır.

İstediğiniz kitaptada işlevi kullanabilirsiniz.

 

[ferhatgurbuz]

Say&#305;n Zafer bey san&#305;r&#305;m ben bunu yapamam. Yani o kadar bilgim yok. Biraz daha ayr&#305;nt&#305;l&#305; tarif ederseniz sevinirim.

 

[zafer]

Merhaba

Aşağıdaki Xla uzantılı dosyayı diskinizdeki herhangi bir yere kopyalayın.
Excel'de araçlar'da eklentileri seçin gözattan dosyayı bulun(xla) tamam diyin.

Artik herhangi bir hücrede sağ mouse ile istediğiniz rakamı yazıya çevibirebilirsiniz.
Veya

Kullanıcı tanımlı fonksiyonlardan seçip aynı işlemi yapabilirsiniz.

 

[ferhatgurbuz]

&#199;ok te&#351;ekk&#252;r ederim. &#199;ok makbule ge&#231;ti. hay&#305;rl&#305; &#231;al&#305;&#351;malar

 

[comission]

MERHABALAR.RAKAMLA YAZILAN PARAYI YAZIYA ÇEVİRME,

ÖNCELİKLE EKLENTİYİ PC NİZE İNDİRİN. DAHA SONRA;
(http://office.microsoft.com/tr-tr/excel-help/HP010096834.aspx#BMexceladdin)

Microsoft Office Düğmesi'ni ve sonra da Excel Seçenekleri'ni tıklatın.
Eklentiler kategorisini tıklatın.
Yönet kutusunda, Excel Eklentileri'ni ve ardından Git'i tıklatın.
Bir Excel eklentisini yüklemek için, aşağıdakileri yapın:
Kullanılabilir eklentiler kutusunda, yüklemek istediğiniz eklentinin yanındaki onay kutusunu seçip Tamam'ı tıklatın.
İPUCU Kullanmak istediğiniz eklenti, Kullanılabilir eklentiler kutusundaki listede yoksa, Gözat'ı tıklatarak eklentinin yerini gösterin. Bilgisayarınızda bulunmayan eklentiler, Office Online sitesindeki Yüklemeler sayfasından yüklenebilir.

Eklenti şu anda bilgisayarınızda yüklü değilse, yüklemek için Evet'i tıklatın.
İPUCU Kurulum yönergelerini gerektiği gibi izleyin.

Bir Excel eklentisini kaldırmak için, aşağıdakileri yapın:
Kullanılabilir eklentiler kutusunda, kaldırmak istediğiniz eklentinin yanındaki onay kutusunu temizleyin ve Tamam'ı tıklatın.
Eklentiyi Office Fluent Şeridi'nden kaldırmak için, Excel'i yeniden başlatın.
NOT Bir eklenti Şerit'ten çıkarıldığında veya kaldırıldığında, eklenti bilgisayarınızdan silinmez. Eklentiyi bilgisayarınızdan silmek için, yüklemesini kaldırmanız gerekir.