YTL Para Birimi Yerine TL Para Birimi

[eyboli]

Excel de para birimi olarak Ytl kullanıyordum. Ytl yine TL ye dönünce TL para birimini bulamadım ve kullanamıyorum yardımcı olabilecek arkadaşlara teşekkür ederim.

 

[xcoll]

bende arıyorum dostum sanırım daha hazırlayan kımsede yok

 

[Metin Karaağaç]

Başlat/Denetim masası/bölge ve dil seçenekleri ni tıklayın
ordan açılan pencerede özelleştir deyip para birimini TL olarak ayarlayın.

 

[eyboli]

çok teşekkür ederim
işime yaradı

 

[xcoll]

hocam benım sorun tam bu degıl yanlış anlamışım

ben excel de yazdıgım rakamları TL çevirmesını soyluyorum YTL ye çevirıyor tşk ederim.

 

[eyboli]

hocam benım sorun tam bu degıl yanlış anlamışım

ben excel de yazdıgım rakamları TL çevirmesını soyluyorum YTL ye çevirıyor tşk ederim.

tamam bu işlemleri yapınca TL yazacak

 

[xcoll]

yok yazmıyor paraçevir var bende
örneğin 32.120 yazıyorum baska surunda otuzikinin YTL yüzyirmi YKR yazıyor
ben otuzikibin TL yüzyirmi KR yazsın ıstıyorum bu işlemı yapınca olmuyor

 

[naakgul960@hotmail.com]

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

b$(0) = ""
b$(1) = " BİR "
b$(2) = " İKİ "
b$(3) = " ÜÇ "
b$(4) = " DÖRT "
b$(5) = " BEŞ "
b$(6) = " ALTI "
b$(7) = " YEDİ "
b$(8) = " SEKİZ "
b$(9) = " DOKUZ "

y$(0) = ""
y$(1) = " ON "
y$(2) = " YİRMİ"
y$(3) = " OTUZ"
y$(4) = " KIRK"
y$(5) = " ELLİ"
y$(6) = " ALTMIŞ"
y$(7) = " YETMİŞ"
y$(8) = " SEKSEN"
y$(9) = " DOKSAN"

m$(0) = "TRİLYON "
m$(1) = " MİLYAR "
m$(2) = " MİLYON"
m$(3) = " BİN "
m$(4) = ""


'TL Hesabı

a1$ = Str(sayi)
x = Len(a1$)
a$ = ""
a2$ = " "
aa1:
If Mid$(a1$, ((Len(a1$) - x) + 1), 1) = "." Then GoTo aa21
a$ = a$ + Mid$(a1$, ((Len(a1$) - x) + 1), 1)
x = x - 1
If x > 0 Then GoTo aa1
aa2:
GoTo aa22
aa21:
a2$ = " "
For x1 = 1 To 2
x = x - 1

If x > 0 Then
a2$ = a2$ + Mid$(a1$, ((Len(a1$) - x) + 1), 1)
Else
a2$ = a2$ + "0"
End If

Next
aa22:


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

s1$ = ""

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$ = " BİRBİN ") Then e$ = " BİN "
s$ = s$ + e$
Next x

If s$ = "" Then s$ = "Sıfır"
If pozitif = 0 Then s$ = "Eksi" + s$

s1$ = s$ + " TL "


'KR Hesabı
a$ = a2$

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$ = " BİRBİN ") Then e$ = " BİN "
s$ = s$ + e$
Next x

If s$ = "" Then s$ = "Sıfır"
If pozitif = 0 Then s$ = "Eksi" + s$

If s$ = "Sıfır" Then
s$ = ""
Else
s$ = s$ + " KRŞ "
End If


s1$ = s1$ + s$


t$ = "Yalnız" + s1$
GoTo tamam

hata: t$ = "Hata"
tamam:
End Function

 

[eyboli]

sayı ytl programını yükle
yükledikten sonra excel ayarlarına geç
orada YTL - YKR yazıyır onları düzelt
sayı ytl programın yoksa ben göndereyim

 

[Merhum İdris SERDAR]

yok yazmıyor paraçevir var bende
örneğin 32.120 yazıyorum baska surunda otuzikinin YTL yüzyirmi YKR yazıyor
ben otuzikibin TL yüzyirmi KR yazsın ıstıyorum bu işlemı yapınca olmuyor

http://www.excel.web.tr/showthread.php?t=61317

Buraya eklediğim dosyayı inceleyin.


.

 

[naakgul960@hotmail.com]

YTL yi TL ye çevirmek için kullanabilirsiniz

 

[naakgul960@hotmail.com]

sayın yurttaş yukarda gönderdiğim formülleri kullan olur

 

[xcoll]

yurttaş bu dosyada sadece gecerlı yanı eklı dosyada oluyor ben baska excel sayfalarında nasıl yapacagım bunu

 

[Merhum İdris SERDAR]

sayın yurttaş yukarda gönderdiğim formülleri kullan olur

Ben neden kullanacak mışım? Anlayamadım. Soruyu ben sormıyorum...

.

 

[naakgul960@hotmail.com]

Araçlar menüsü Makrolar-VisaulBasic düzenleyicisi-İnsert-Module açtıktan sonra bu fomülü yapıştır. kaydet. normal çalışma sayfasında örneğin A1 Hücresine yazılan rakam için Başka hücreden Shift=(t(A1)) şeklinde düzenlerseniz olacak.....

 

[naakgul960@hotmail.com]

özür Xcool sormuştu galiba . öyle aklımda kaldı.

 

[Merhum İdris SERDAR]

yurttaş bu dosyada sadece gecerlı yanı eklı dosyada oluyor ben baska excel sayfalarında nasıl yapacagım bunu

Ekte sözünü ettiğim dosyanın eklentisini veriyorum.

Bu Dosyayı açarak, Add ins klasörünün içine koyun. Sonra Tools/Add inns'ten bunu tanıtın.

 

[xcoll]

ok soran bende tşk ederim hocam ama burda baya bi imla hatası var ya
16.722,00 TL yazdım
yazıya çevirilmiş halide bu :Yalnız ON ALTI BİN YEDİ YÜZ YETMİŞ İKİ TL

 

[Merhum İdris SERDAR]

ok soran bende tşk ederim hocam ama burda baya bi imla hatası var ya
16.722,00 TL yazdım
yazıya çevirilmiş halide bu :Yalnız ON ALTI BİN YEDİ YÜZ YETMİŞ İKİ TL

Benim dosyadan söz etmiyorsunuz herhelde...

.

 

[xcoll]

Ekte sözünü ettiğim dosyanın eklentisini veriyorum.

Bu Dosyayı açarak, Add ins klasörünün içine koyun. Sonra Tools/Add inns'ten bunu tanıtın.

hocam bunu yaptım rakamları yazdım a1 sutununa b1de metinle nasıl yacagım