excel de bir rakamı yazıya çevirme nasıl oluyor. Olmuyorsa ayrıca bir prg mi var. yardımcı olacak arkadaşlara şimdiden teşekkürler.

yorunbaba nasıl bir rakamı yazıya çevirme biraz açabilirmisin ? örnek vererek yazarsan daha iyi belki yardım edebilirim ?

Arkadaşın istediği excel in çalışma sistemiyle alakasız. Ben Office kursuna gittim. Böyle bir şey öğrenmedim.

Geçen senelerde bunun bir yarışmasını yaptılar, pcmagazin yada pcworld dergisi, aslında çok zor değil, ama basamak sayısı artınca işler uğraştırıcı bir hal alıyordu, ödüllü bir yarışmaydı elimi kaldırıp yapmadım sonrada pişman oldum, sen şimdi internette gir dergilerin sitelerine sitelerinde araştır, oda olmadı google da yaz bakalım "alphanumeric to numeric in excell" diye araştır.

bahsettiğin olay hücre formatı mı yoksa başka bir olay mı daha ayrıntılı sorsan yardımcı olabiliriz belki

Sanırım demek istedigi
örneğin 1.151.100 sayısını girdiginde direk " Birmilyaryüzellibirbinyüz "olarak yazacak Ben görmüştüm ama nasıl yapıldığını bilmiyorum ...

arkadaşım bun yöntem en basit olaram mod ve dizilerle yapılırki bunuda makro ile yapacaksın yöntem söylemek gerekirsen önce
birler'bir,iki,üç....dokuz';
onlar"on,yirmi,otuz..doksan';
binler
filan flan
bunları tanımladıktan sonra
mesela sayımız 123 olsun
ilk olarak (b11 123 sayısının yazılı olduğu hücredir
=MOD(B11:10)
bu işlem sonucu biz 3 sayısın elde ederiz elimizdeki dizenin birler[3] dersek oraya üç yazacaktır.
=MOD(B11:100)
simdide bize 2 sayısı verecektir yine onlar[2] ne oldu yirmi+üç yirmiüçyazdı demi
=MOD(B11:1000)
sol olarak bize 1 rakamını verdi ve yuzler[1] sonuc yuz+yirmi+üç ama execde dizi nasıl tanımlanıyor bilmiyorum herhalde makrolardan filan yapıloyordur. benim bildiğim yöntem bu umarım yardımcı olmuşumdur

Sayıları yazıya çeviren excell makrosu
excel'i açın araçlar/macro/vb macro düzenleyicisini çalıştırın.project bölümünden modüle yi seçin. Aşağıdaki kodları girin (copy/past yapabilirsiniz) örneğin bir hücreye =yazıyla(A1) yazarsanız. a1 hücresindeki değer yazıyla karşınızda olacaktır.
Not: bu macronun kodları pcmagazine dergisinden alınmıştır.
----
Function Yaziyla$(sayi)

b$(0) = ""
b$(1) = "Bir"
b$(2) = "İki"
b$(3) = "Üç"
b$(4) = "Dört"
b$(5) = "Beş"
b$(6) = "Altı"
b$(7) = "Yedi"
b$(8) = "Sekiz"
b$(9) = "Dokuz"

y$(0) = ""
y$(1) = "On"
y$(2) = "Yirmi"
y$(3) = "Otuz"
y$(4) = "Kırk"
y$(5) = "Elli"
y$(6) = "Altmış"
y$(7) = "Yetmiş"
y$(8) = "Seksen"
y$(9) = "Doksan"

m$(0) = "Trilyon"
m$(1) = "Milyar"
m$(2) = "Milyon"
m$(3) = "Bin"
m$(4) = ""

a$ = Str(sayi)
If Left$(a$, 1) = " " Then pozitif = 1 Else pozitif = 0
a$ = Right$(a$, Len(a$) - 1)
For x = 1 To Len(a$)
If (Asc(Mid$(a$, x, 1)) > Asc("9")) Or (Asc(Mid$(a$, x, 1)) < Asc("0")) Then GoTo hata
Next x
If Len(a$) > 15 Then GoTo hata
a$ = String(15 - Len(a$), "0") + a$
For x = 1 To 15
v(x) = Val(Mid$(a$, x, 1))
Next x

s$ = ""
For x = 0 To 4
c(1) = v((x * 3) + 1)
c(2) = v((x * 3) + 2)
c(3) = v((x * 3) + 3)
If c(1) = 0 Then
e$ = ""
ElseIf c(1) = 1 Then
e$ = "Yüz"
Else
e$ = b$(c(1)) + "Yüz"
End If
e$ = e$ + y$(c(2)) + b$(c(3))
If e$ <> "" Then e$ = e$ + m$(x)
If (x = 3) And (e$ = "BirBin") Then e$ = "Bin"
s$ = s$ + e$
Next x

If s$ = "" Then s$ = "Sıfır"
If pozitif = 0 Then s$ = "Eksi" + s$
Yaziyla$ = s$
GoTo tamam
hata: Yaziyla$ = "Hata"
tamam:
End Function
------

bu da benden