Excelde Rakamı Yazıyla Yazma

03/Mar/14 01:27

Kısayol

Şikayet

Özel Mesaj

smnz

Kayıt Tarihi: 10/Nisan/2013

burda A2 hücresindeki rakamı B3 hücresindeki gibi nasıl yazabilirim

Alıntı yap

03/Mar/14 01:31

Kısayol

Şikayet

Özel Mesaj

interfector

Kayıt Tarihi: 14/Haziran/2011

Gözünüzü seviyim şu siteyi google niyetine kullanmayın yav. Başlığı google da arattım sürüsüne sonuç çıkarttı.

Bu kadar hazırcı olmayın. Armut piş ağzıma düş. Zaten tbt yardısever yapacak bi eşşek çıkar mantığıyla dolanıyosunuz sitede.

https://www.google.com.tr/?gfe_rd=cr&ei=F78TU6zzBYbe8gf_24A4#q=excel+rakam%C4%B1+yaz%C4%B1ya+%C3%A7evirme&safe=off

Aldanma insanların samimiyetine, menfaatleri için gelirler vecde, vaad etmeseydi allah cenneti, ona bile etmezlerdi secde..

Alıntı yap

03/Mar/14 01:33

Kısayol

Şikayet

Özel Mesaj

smnz

Kayıt Tarihi: 10/Nisan/2013

interfector bunu yazdı

Gözünüzü seviyim şu siteyi google niyetine kullanmayın yav. Başlığı google da arattım sürüsüne sonuç çıkarttı.

Bu kadar hazırcı olmayın. Armut piş ağzıma düş. Zaten tbt yardısever yapacak bi eşşek çıkar mantığıyla dolanıyosunuz sitede.

https://www.google.com.tr/?gfe_rd=cr&ei=F78TU6zzBYbe8gf_24A4#q=excel+rakam%C4%B1+yaz%C4%B1ya+%C3%A7evirme&safe=off

bunları denedim olmuyor sadece rakamı yazıyor yazıyla yazmıyor onlar

Alıntı yap

03/Mar/14 01:34

Kısayol

Şikayet

Özel Mesaj

zalimadam

Kayıt Tarihi: 08/Şubat/2011

sağ tıkla güceyi biçimleindir tıkla yazı şekli metin de herşeyi yazarsın

fukara hamam böceklerini zehirleyen adam.

Alıntı yap

03/Mar/14 02:54

Kısayol

Şikayet

Özel Mesaj

ZoRKaYa

Kayıt Tarihi: 18/Eylül/2007

interfector bunu yazdı

Gözünüzü seviyim şu siteyi google niyetine kullanmayın yav. Başlığı google da arattım sürüsüne sonuç çıkarttı.

Bu kadar hazırcı olmayın. Armut piş ağzıma düş. Zaten tbt yardısever yapacak bi eşşek çıkar mantığıyla dolanıyosunuz sitede.

https://www.google.com.tr/?gfe_rd=cr&ei=F78TU6zzBYbe8gf_24A4#q=excel+rakam%C4%B1+yaz%C4%B1ya+%C3%A7evirme&safe=off

Google'da birisi aratınca bundan sonra burası çıkacak. O yüzden bunu yazacağına çözümü anlatsaydın daha mantıklıydı,, cp değil orjinal yazı yazacaksan yaz yoksa yazma.

Alıntı yap

03/Mar/14 03:10

Kısayol

Şikayet

Özel Mesaj

YekteranBaymedir

Kayıt Tarihi: 10/Temmuz/2009

Excel aç, ALT F11 bas.

Insert > Module

Aşağıdaki kodu kopyala: kullanımı: =YAZIYACEVIR(A1)

Public Function YAZIYACEVIR(Para_Tutar)

Dim Para_TutarStr As String
Dim ParaBirimi As String, ParaAltBirimi As String

HücreAdı = Para_Tutar.Address

If Para_Tutar = "" Then
YAZIYACEVIR = HücreAdı & " Hücresine bir değer girmelisiniz !..."
Exit Function
End If

If Not IsNumeric(Para_Tutar) Then
YAZIYACEVIR = HücreAdı & " Hücresine girilen değer, sayı değil !..."
Exit Function
End If

ParaStr = Format(Abs(Para_Tutar), "0.00")
ParaBirimi = Left(ParaStr, Len(ParaStr) - 3)
ParaAltBirimi = Right(ParaStr, 2)

YAZIYACEVIR = IIf(Para_Tutar = 0, Cevir(ParaBirimi) & "", "") & _
IIf(Para_Tutar <> 0, "", "") & _
IIf(Para_Tutar < 0, "Eksi (-) ", "") & _
IIf(Para_Tutar <> 0, Cevir(ParaBirimi) & "", "") & _
IIf(Val(ParaAltBirimi) <> 0, Cevir(ParaAltBirimi) & "", "")

If ParaBirimi = 0 And ParaAltBirimi > 0 Then
YAZIYACEVIR = "" & Cevir(ParaAltBirimi) & ""

If Para_Tutar < 0 And ParaAltBirimi > 0 Then
YAZIYACEVIR = "Eksi " & Cevir(ParaAltBirimi) & ""

End If

End If

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

YekteranBaymedir tarafından 03/Mar/14 03:12 tarihinde düzenlenmiştir

Alıntı yap

03/Mar/14 10:39

Kısayol

Şikayet

Özel Mesaj

Çömez
underzero

Kayıt Tarihi: 20/Ocak/2003

macro kodu yazmadan cevirmez yukaridaki macro kodunu kullan

pist bak bi ! - Ban Golu Canavari

Alıntı yap

03/Mar/14 12:05

Kısayol

Şikayet

Özel Mesaj

ugurben

Kayıt Tarihi: 02/Nisan/2003

interfector bunu yazdı

Gözünüzü seviyim şu siteyi google niyetine kullanmayın yav. Başlığı google da arattım sürüsüne sonuç çıkarttı.

Bu kadar hazırcı olmayın. Armut piş ağzıma düş. Zaten tbt yardısever yapacak bi eşşek çıkar mantığıyla dolanıyosunuz sitede.

https://www.google.com.tr/?gfe_rd=cr&ei=F78TU6zzBYbe8gf_24A4#q=excel+rakam%C4%B1+yaz%C4%B1ya+%C3%A7evirme&safe=off

cok guzel bır kapaklık cevap eywallah

sevdigim 3 turk atasozu.. 1- besle kargayı atsın iftirayı, 2- yayılma sivril ( bu bir çin atasozudur), 3- luzumsuz eşek sucuk olur ( buda bir çin atasozudur ) ve son olarak, 4- ak akçe karagün kara akçe ak gün içindir...

Alıntı yap