para hücresini yazıya çevirme

[kitreli]

Ekteki dosyada D,E=36 hücresindeki genel toplam parasını, c,d,e=38 hücresine yazıyla yazmak istiyorum.

örnek: Yirmi Beş TL Seksen Krş

 

[İhsan Tank]

Ekteki dosyada D,E=36 hücresindeki genel toplam parasını, c,d,e=38 hücresine yazıyla yazmak istiyorum.

örnek: Yirmi Beş TL Seksen Krş

merhaba
burada oldukça örnek var

 

[kitreli]

Verilen örneklerde bu makroları kopyaladıktan sonra; =yaziyla falan diye formüller verilmiş. ben office 2003 kullanıyorum ama bende böyle formül çıkmıyor.

bununla ilgili biraz daha açık yardım ederseniz çok sevinirim.

 

[Mahir64]

Verilen örneklerde bu makroları kopyaladıktan sonra; =yaziyla falan diye formüller verilmiş. ben office 2003 kullanıyorum ama bende böyle formül çıkmıyor.

bununla ilgili biraz daha açık yardım ederseniz çok sevinirim.

Merhaba,

Maroları bir molüle ekleyin.

Excel sayfasının her hangi bir yerine =yazıyla(A1) yazdığınız A1 hücresinin çevirisini yapacaktır.

Makroyu modüle eklemeden =yazıyla formülü bir işe yaramaz. Makroya endexlidir.

 

[İhsan Tank]

Verilen örneklerde bu makroları kopyaladıktan sonra; =yaziyla falan diye formüller verilmiş. ben office 2003 kullanıyorum ama bende böyle formül çıkmıyor.

bununla ilgili biraz daha açık yardım ederseniz çok sevinirim.

merhaba
boş bir module

Function tl_yaz(sayi)
On Error Resume Next
Dim deg(3), s(3), deger(2)
a = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")
b = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")
c = Array("", "", "Bin", "Milyon", "Milyar", "Trilyon")
deger(1) = Int(sayi)
deger(2) = Round(sayi - deger(1), 2) * 100
If sayi = 0 Then son = "sıfır"
For g = 1 To 2
yazi = deger(g)
For d = 1 To Len(yazi) Step 3
e = e + 1
deg(1) = Mid(yazi, Len(yazi) - d - 1, 1)
deg(2) = Mid(yazi, Len(yazi) - d, 1)
deg(3) = Mid(yazi, Len(yazi) - d + 1, 1)
If deg(1) <> 0 Then s(1) = Replace(a(deg(1)) & "Yüz", "BirYüz", "Yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
If deg(1) + deg(2) + deg(3) = 0 Then s(3) = ""
son = s(1) & s(2) & s(3) & son
If Left(son, 6) = "BirBin" Then son = Replace(son, "BirBin", "Bin")
For f = 1 To 3
deg(f) = ""
s(f) = ""
Next: Next
If g = 1 And deger(1) <> 0 Then tl = son & " TürkLirası"
If g = 2 And deger(2) <> 0 Then kr = " " & son & " Kuruş"
son = ""
e = 0
Next
tl_yaz = tl & kr
End Function

bu kodu
C38 hücresine

=tl_yaz(D36)

bu formülü yazarak deneyiniz

 

[kitreli]

Bu kod office 2010 da işe yaramıyor mu? Modülü ekledikten sonra

=tl_yaz(d36) formülünü yazdığım zaman

HÜCREDE

#AD? hatası çıkıyor

 

[İhsan Tank]

Bu kod office 2010 da işe yaramıyor mu? Modülü ekledikten sonra

=tl_yaz(d36) formülünü yazdığım zaman

HÜCREDE

#AD? hatası çıkıyor

direk yazarsanız bu hatayı almanız normal
önce makro güvenlik ayarlarını düşürmelisiniz
sonra verdiğim kod'u boş bir module atamalısınız sonra formülü yazmalısınız
burada bir örnek mevcut işinize yararsa kullanırsınız