Eğer

[emreunalp]

Merhaba,

Arkadaşlar ekli dosyda yapmak istediğim formül ile ilgili dosya var. Forumun içinde aradım ama inanın bulamadım.

Şimdiden Teşekkürle.


Emre

 

[uzmanamele]

merhaba

istediğiniz işlemin en kısa yolu rakamı yazıya çeviren bir kodu siteden edinmek ve kendinize uyarlamak, veya formül ile rakamı yazıya çevirme örneği bulabilirsiniz.
bir deneyin, olmazsa bir arkadaşımız el atar.

 

[İdris SERDAR]

Merhaba,

Arkadaşlar ekli dosyda yapmak istediğim formül ile ilgili dosya var. Forumun içinde aradım ama inanın bulamadım.

Şimdiden Teşekkürle.


Emre

":hücreye 1-9 kadar rakam girdiğimde B1 yazmasını 10-19 kadar rakam girdiğimde B11 hücresini yazmasının istiyorum ve bunu 6'dan fazla tekrarlamak istiyorum."

Hangi hücreye? Aynı hücreye ise formülle ollamz, makro ile olur.

Formülle istiyorsanız, nereye yazılacak ve sonucu nerede istiyorsunu?

.

 

[uzmanamele]

merhaba

aşağıdaki ktf istediğinizi yapar sanıyorum, deneyiniz.

Function sayı_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 tam_sayı = son
If g = 2 And deger(2) <> 0 Then ondalık_sayı = " " & son
son = ""
e = 0
Next
sayı_yaz = tam_sayı & ondalık_sayı
End Function

B2 ye yazın ve sütun boyunca kopyalayın.

=sayı_yaz(A2)

 

[İdris SERDAR]

Merhaba,

Arkadaşlar ekli dosyda yapmak istediğim formül ile ilgili dosya var. Forumun içinde aradım ama inanın bulamadım.

Şimdiden Teşekkürle.


Emre

Dosyanız ekte.

 

[emreunalp]

Dosyanız ekte.

merhaba sayın yurttaş,


gönderdiğiniz dosyada formülleri göremedim.

 

[İdris SERDAR]

merhaba sayın yurttaş,


gönderdiğiniz dosyada formülleri göremedim.

Formül yok.

Makro ile yapılmıştır.

E1:E20 arasında bir hücreye rakam girin. Sonucu izleyin.

Kodu görmek için ALT ve F11 tuşlarına birlikte basın.

 

[emreunalp]

Merhaba,

Sanıyorum anlatmak istediğimi anlatamadım ancak sorun değil başka bir arkadaşın yazmış olduğu bir sorudan yapmak istediğimi yaptım.

Cevap gönderen arkadaşlara çok teşekkür ederim.


Emre