Eski 04-05-04, 22:52 #1
yorgunbaba yorgunbaba çevrimdışı
Varsayılan Excel Sorunu

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.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 04-05-04, 23:13 #2
ANADOLU ANADOLU çevrimdışı
Varsayılan Cvp: Excel Sorunu

yorunbaba nasıl bir rakamı yazıya çevirme biraz açabilirmisin ? örnek vererek yazarsan daha iyi belki yardım edebilirim ?
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 05-05-04, 01:46 #3
rtaydin rtaydin çevrimdışı
Varsayılan Cvp: Excel Sorunu

Arkadaşın istediği excel in çalışma sistemiyle alakasız. Ben Office kursuna gittim. Böyle bir şey öğrenmedim.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 05-05-04, 10:17 #4
omer omer çevrimdışı
Varsayılan Cvp: Excel Sorunu

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.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 05-05-04, 13:21 #5
greenflash greenflash çevrimdışı
Varsayılan Cvp: Excel Sorunu

Alıntı:
Gerçek Mesajı Gönderen yorgunbaba
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.
bahsettiğin olay hücre formatı mı yoksa başka bir olay mı daha ayrıntılı sorsan yardımcı olabiliriz belki
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 05-05-04, 13:24 #6
CaN CaN çevrimdışı
Varsayılan Cvp: Excel Sorunu

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 ...
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 05-05-04, 13:50 #7
arachnida arachnida çevrimdışı
Varsayılan Cvp: Excel Sorunu

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
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 05-05-04, 14:06 #8
MiRaBiLiS MiRaBiLiS çevrimdışı
Varsayılan Cvp: Excel Sorunu

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
------
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 05-05-04, 16:23 #9
ZuCChiNi ZuCChiNi çevrimdışı
Varsayılan Cvp: Excel Sorunu

bu da benden
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 21:04
(Türkiye için artık GMT +3 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Tatil