MS Excel'de makro 1 (sayıyı harfe çevirme)

[emoak]

Excel kullananlar bilirler, sayılar, formüller derken bir de bakmışsınız düz metinleri bile artık excelde yazıyorsunuz. Aşağıdaki makroyu kullanarak bir hücredeki sayıyı metne çevirebilirsiniz.
Yapmanız gerekenler;
Microsoft Excel’i açın, Araçlar>Makro>Visual Basic Düzenleyicisi (Kısayol: Alt+F11)Insert>Module tıklayın. Açılan boş sayfaya aşağıdaki kodu yapıştırın. Kaydedip Excel’e geri dönün.Deneme için A1 hücresine bir sayı yazın B1 hücresine geçip şu formülü yazın =yaz(A1) Yazdığınız rakamlar metne dönüşecektir. Burada kullanacağımız işlem terimi =yaz(hücre_adı) olacaktır.



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

Function yaz$(sayi)



b$(0) = ""

b$(1) = "bir"

b$(2) = "iki"

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




<<buraya kadar>>

[bozdag]

emoak arkadaşım tşk ederim
uyguladım çalıştı

[ayakar]

güzel bir uygulama, teşekkürler... devamını beklerim.
sadece 1001'i yanlış yazıyor. birbinbir diye.

[troia]

Sevgili ayakar sizde bir problem olmalı. Kodu yanlış kopyalamış olabilirsiniz. Denedim 1001 de bir problem yok.

Saygılar...

[emoak]

Rica ederim arkadaşlar devamı gelecektir.
@ayakar bende öyle bir problem yok denedim tekrar
ne yaptımsa birbinbir yazdıramadım?

[ayakar]

arkadaşlar, hata bende imiş, zaten prıgramı incelediğinizde, "birbin"in düzeltildiği görülüyor.
If (x = 3) And (e$ = "birbin") Then e$ = "bin"
ben sayıları büyük harfe çevirmiştim. burayı çevirmemişim...
emoak tşk...

[emoak]

bi karakteri hatalı yazınca bile oluyo böyle şeyler; ben nelerle karşılaştım excel'de...
saatlerce aradığım hatalar oldu, uykularıma girdi belki sadece bir nokta virgül ayrımı yüzünden. Dikkat etmek lazım.
Saygılar...

[SPYYYY]

İyi ya Forumumuzda Visual Basic bilenlerin olması ne güzel.Bir problemimiz olduğu zaman birbirimizle fikir ya da kod alışverişinde bulunuruz.Ben aslında Sn.Bülent Tekcan'a Yazılım Bölümünde Programlama Dilleri ile ilgili(C,Sql,Vb,Ado,Php,Asp) gibi alt bölümler açılmasını önerecektim fakat sonra buranın uydu forumu olduğunu düşünüp vazgeçtim.Eğer sizlerden de talep olursa önerelim mi böyle bir şey ne dersiniz ?

[Shadowman]

Alıntı: Orijinal Mesaj Sahibi SPYYYY İyi ya Forumumuzda Visual Basic bilenlerin olması ne güzel.Bir problemimiz olduğu zaman birbirimizle fikir ya da kod alışverişinde bulunuruz.Ben aslında Sn.Bülent Tekcan'a Yazılım Bölümünde Programlama Dilleri ile ilgili(C,Sql,Vb,Ado,Php,Asp) gibi alt bölümler açılmasını önerecektim fakat sonra buranın uydu forumu olduğunu düşünüp vazgeçtim.Eğer sizlerden de talep olursa önerelim mi böyle bir şey ne dersiniz ?

Yaww aslında fena fikir değil... Bilenler ve yeni öğrenenler için iyi olur ama... Tabiki son karar Bülent hocamızın...

[SPYYYY]

E zaten öyle tek başına söylemek de doğru olmaz şunu açalım bunu açalım diye fakat belirli bir istek olursa belki...

[by_hidrojen]

arkadaslar acele yardım edin bu formulleri bütün excel dosyalarına uygulamak istiyorum nasıl yapabilirim

[emoak]

Alıntı: Orijinal Mesaj Sahibi by_hidrojen arkadaslar acele yardım edin bu formulleri bütün excel dosyalarına uygulamak istiyorum nasıl yapabilirim

Nasıl yani??? Dilediğiniz kadar excel dosyasına ilk mesajımın ikinci paragrafında anlattığım şekilde bu makroyu oluşturabilirsiniz. Daha hızlı uygulamak istiyorsanız, önce bir excel dosyasına uygulayıp kaydedin. Sonra bu makroyu eklemek istediğiniz tüm excel dosyalarını açıp Visual Basic sayfasında kopyala yapıştır ile makroyu diğer dosyalara uygulayın.

Sevgiler...

[by_hidrojen]

tamamda bu dediğinizin daha kısa bir yolu olmalı bu komutları birkez yazıp diğer butun exel dosyalarına yani ilkkez yeni olarak acmıs oldugum excell sayfasında bile bu makroyu kullanabileyim bunu demek istemistim

[erol68]

arkadaşlar makina dilini okutabilecegimiz bir program bilen varmı?

[ayakar]

bu makroyu "yazdınığınız rakamı YTL (yeni türk lirası) ve YKR (yeni kuruş) cinsinden yazı ile yazan" şekle dönüştürdüm... ilgilenen varsa buraya kopyalayayım...

[diego24]

merhaba by_hidrojen;

öncelikle bu kodları emoak arkadaşın anlattığı şekilde boş bir excel sayfasına ekleyin sonra farklı kaydet deyip, kayıt türü alanından Microsoft excel Eklentisi ni seçin ve kaydedin, sonra excel de araçlar - eklentiler penceresinden gözatı seçin buradan kaydettiğiniz dosyayı seçin, aynı pencerede kullanılabilir eklentilerde seçili olarak dosya gözükecektir. Bundan sonra tüm excel dosyalarında çalışacaktır.

Saygılarımla...

[emoak]

Alıntı: Orijinal Mesaj Sahibi ayakar bu makroyu "yazdınığınız rakamı YTL (yeni türk lirası) ve YKR (yeni kuruş) cinsinden yazı ile yazan" şekle dönüştürdüm... ilgilenen varsa buraya kopyalayayım...

Sevgili ayakar, yaz tabi dostum, 1 kişiye bile yardımı dokunacaksa bundan büyük mutluluk olur mu?

Sevgiler...

[tyelkovan]

Sayfayı kopyalayarak kullanabiliyorsunuz. http://www.halkapinar.gov.tr/rem/excel_ornekleri.htm

[HUNTER1]

Abi bu link harika bir şey ya özellikle excel hakkında bir çok şey var

[ayakar]

İŞTE, rakamı YTL ve YKR cinsinden yazan excel makrosunu buraya koydum...

http://www.turkeyforum.com/satforum/...395#post556395