excel'de rakamı metine dönüştürmek

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel excel'de rakamı metine dönüştürmek

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

4
Cevap 3873
Tıklama 0
Öne Çıkarma

1. sayfa

excel'de rakamı metine dönüştürmek

Cevap Yaz

temcit

23 yıl (28 mesaj)

Onbaşı

Konu Sahibi

selamlar,

excel'de rakamlarla yazdığımız bir sayının metin olarak (okunuşu) karşığını nasıl elde ederiz. Bu dönüştürme işlemini pratik olarak nasil yapabiliriz... cevaplarinizi bekliyorum, şimdiden tesekkurler...

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

Guest-12B838DDF

23 yıl (604 mesaj)

Yüzbaşı

metin olarak okunmasıını ıstedıgın bolumun uzerıne gel ve sağ tıkla ve çıkan menuden hücreleri biçimlendir yap.
Orda metin kısmı var onu secersen olacaktır...
Tabiki eğer sorununu doğru anladıysam:)))

Dursun

23 yıl (4832 mesaj)

Yarbay

galiba sorunu yanlış anlamışsın
23=yirmiüç
gibi birşey isteniyor

Dursun

23 yıl (4832 mesaj)

Yarbay

=METNEÇEVİR(D17;J13)
böyle birşey var ama tam anlayamadım

cdemir

23 yıl (24660 mesaj)

Yarbay

Yeni bir sayfa oluştur (örn. kitap3)
Alt + F11 yapıp VBA editörü açıyorsun. Ekle'den modülü seçiyorsun. Bu kodları modüle kopyalıyorsun. Daha sonra kitap3'de herhangi bir hücreye =yaz(Sayı yada hücre adresi) fonksiyonunu yazıyorsun. İşte bu kadar. Bu fonksiyonu kitap3 haricindeki kitaplarda kulanmak istersen kitap3.xls!yaz(sayı) olarak yazman gerekiyor..

Metneçevir() fonksiyonu ise tamamen farklı birşey. hücredeki değeri istediğimiz formata çevirmeye yarıyor. Tarih, saat, para birimi yada özel formatlara..

Örneğin Başka bir programdan excele veri aktardık 051200, 005100, 000100 gibi verilerimizin başlarındaki sıfırlar yok oldu ve A1 Hücresinde 51200 A2 Hücresinde 5100 A3 Hücresinde 100 ..................... gibi bir çok verimiz var, Bunları altı karakter ve başlarına 0 gelecek şekilde formatlamamız gerekiyor. =metneçevir(A1;"000000") --> 051200, metneçevir(A2;"000000") -->005100 sonuçlarını verir.

Kolay gelsin

Function yaz$(sayi)

Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)

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$

yaz$ = s$
GoTo tamam
hata: yaz$ = "Hata"
tamam:
End Function

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel excel'de rakamı metine dönüştürmek