Webmaster Forumu

Geri git   Webmaster Forumu > Webmaster Kaynak Eğitim Tanıtım Hizmet > Programlar ve Araçlar > MS Office

MS Office Excel Outlook Word Visio

Cevapla
 
LinkBack Seçenekler Stil
  #1 (permalink)   iTrader 
Alt 2002-09-18, 11:52
Junior Member
 
Üyelik tarihi: Sep 2002
Mesajlar: 84
Teşekkür: 0
Thanked 1 Time in 1 Post
Tecrübe Puanı: 0
iTrader: %0/0
Anonymous is an unknown quantity at this point
Standart

merhaba,
benim sorunum excellde yazdığım bir rakamı texte çeviremiyorum istiyorum.
Ör: rakamla (10) yazmışsam bunu yazı ile (on )olarak görmek istiyorum

şenay
Alıntı ile Cevapla

  #2 (permalink)   iTrader 
Alt 2002-09-28, 21:36
Junior Member
 
Üyelik tarihi: Oct 2002
Mesajlar: 6
Teşekkür: 0
Thanked 0 Times in 0 Posts
Tecrübe Puanı: 0
iTrader: %0/0
hizli is an unknown quantity at this point
Standart

ilk önce görünümden araclar menusunden visual basic acmalısın sonra
actıktan sonra visual basic editor acmalasın ve oradan kısyal yol cubugundan ıkıncı secenege tıklarsan yanı mouse yaklastırdıgında (insert userform) yazan yere oradan modul sectıkten sonra asagıda vermıs oldugum modulu onun ıcerısıne copy yap
Function Yaziyla$(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$
Yaziyla$ = s$
GoTo tamam
hata: Yaziyla$ = "Hata"
tamam:
End Function




bunu paste yaptıktan sonra makroyu tamamen kapat vede sonra visual basic kapat vede sonra eger rakkamı yazacagın yerın hemen yanındakı hucreye sunu yazacaksınız =yaziyla(hücreadı) ve de artık herhangı en buyuk sayıyı yaz hemencecık rakkamla yazacak simdilik bu kadar eger baska bır sorun varsa bana yazabılırsın tabı yada buraya yazman yeterlı
sevgılerımle
Alıntı ile Cevapla

  #3 (permalink)   iTrader 
Alt 2002-10-11, 11:26
Junior Member
 
Üyelik tarihi: Sep 2002
Mesajlar: 84
Teşekkür: 0
Thanked 1 Time in 1 Post
Tecrübe Puanı: 0
iTrader: %0/0
Anonymous is an unknown quantity at this point
Standart

www.pcmagazine.com dan dosyayı direkt indirebilirsin yazmakla falan hiç uğraşma
Alıntı ile Cevapla

Cevapla


Seçenekler
Stil

Yetkileriniz
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Milliyette çıkan yazıya bakın :) darkman Güncel Konular Haberler 9 2006-07-03 16:36
ses dosyalarini cevirme draligus Firefox 4 2006-04-10 23:31
Excelde rakamı sayıya çevirme? OnlineCasinoLTD.CoM MS Office 1 2006-01-17 12:28
Access -Excell tttt MySQL Veritabanı SQL 0 2004-09-28 19:58
tel cevirme Anonymous Java JSP C# 1 2002-08-06 16:25


Bütün Zaman Ayarları WEZ +2 olarak düzenlenmiştir. Şu Anki Saat: 22:34 .


Powered by vBulletin® Version 3.7.2
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.1.0

Firefox