En Komik ve Eğlenceli Videolar Burada. * FrmTR Sohbet Kontrol Panelinizde.
Forum TR
Go Back   Forum TR > >
FrmTR'ye Reklam Vermek İçin: [email protected]
Cevapla
 
Konu Araçları
Eski 18-07-08, 22:16   #1
KuMaRBaZ42

Varsayılan excel de rakamları yazı ile yazma


arkadaşlar ofis 2003 te yaptım ama 2007 de yapamadım yardımcı olurmusunuz ??
  Alıntı Yaparak Cevapla
Eski 24-07-08, 01:33   #2
CaYKeSh

Varsayılan C: excel de rakamları yazı ile yazma


Muhtemelen makro ile yapmışsınızdır..
Kodları 2007 ye eklerseniz de çalışır..
  Alıntı Yaparak Cevapla
Eski 24-07-08, 01:33   #3
CaYKeSh

Varsayılan C: excel de rakamları yazı ile yazma


Muhtemelen makro ile yapmışsınızdır..
Kodları 2007 ye eklerseniz de çalışır..
  Alıntı Yaparak Cevapla
Eski 26-07-08, 22:19   #4
KuMaRBaZ42

Varsayılan C: excel de rakamları yazı ile yazma


onu nasıl ekleyeceğiz yardımcı olurmusunuz ?
  Alıntı Yaparak Cevapla
Eski 27-07-08, 01:10   #5
ragip2007

Varsayılan C: excel de rakamları yazı ile yazma

Function ParaCevir(Para, Optional PBirim = "Lira", Optional KBirim = "Kuruş")
Dim ParaStr As String
Dim Lira As String, Kurus As String

If Not IsNumeric(Para) Then
ParaCevir = "GİRİLEN DEĞER SAYI DEĞİL!"
Exit Function
End If

ParaStr = Format(Abs(Para), "0.00")

Lira = Left(ParaStr, Len(ParaStr) - 3)
Kurus = Right(ParaStr, 2)

ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(Lira) & " " & PBirim & " " & _
IIf(Val(Kurus) <> 0, Cevir(Kurus) & " " & KBirim & " ", "")
End Function

Private Function Cevir(SayiStr As String) As String
Dim Rakam(15)
Dim c(3), Sonuc, e

Birler = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
Onlar = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
Binler = Array("trilyon", "milyar", "milyon", "bin", "")

SayiStr = String(15 - Len(SayiStr), "0") + SayiStr

For i = 1 To 15
Rakam(i) = Val(Mid$(SayiStr, i, 1))
Next i

Sonuc = ""
For i = 0 To 4
c(1) = Rakam(i * 3 + 1)
c(2) = Rakam(i * 3 + 2)
c(3) = Rakam(i * 3 + 3)
If c(1) = 0 Then
e = ""
ElseIf c(1) = 1 Then
e = "yüz"
Else
e = Birler(c(1)) + "yüz"
End If
e = e + Onlar(c(2)) + Birler(c(3))
If e <> "" Then e = e + Binler(i)
If (i = 3) And (e = "birbin") Then e = "bin"
Sonuc = Sonuc + e
Next i

If Sonuc = "" Then Sonuc = "Sıfır"

Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function


yukarıda verdiğim makro rakamları paraya ve metne çevirir.formülü de =ParaCevir(A1) ve =Cevir(A1) şeklindedir. (A1, rakamın olduğu örnek hücre)
exceli açıyorsun alt+F11 e basıyorsun.insert sekmesinde module' yi açıyor ve yukarıda verdiğim makroyu yapıştırıyorsun. kapatıp excele dönüyorsun.macron hazır demektir. tüm excel uygulamalarında kullanmak istersen sayfayı farklı kaydet deyip kayıt türünü microsoft office excel eklentisi(*.xla) yapıp dosya adını da ParaCevir diyorsun ve addins klasörüne kaydediyorsun. daha sonra excelde araçlar sekmesinde eklentileri tıklatıp kaydettiğin macroyu(ParaCevir) bulup kutuya işaret koyuyorsun. artık her excel uygulamasında kullanabilirsin.

not:2009 yılında liradan yeni ibaresi kalkacağı için formülü lira ve kuruş olarak belirttim. yani A1 hücresindeki 16,25 sayısını, =ParaCevir(A1) formülü kullanınca onaltı lira yirmibeş kuruş olarak yazacaktır. Sen YTL ve YKr. yazsın istiyorsan ilk satırdaki "Lira" ve "Kuruş" yazan yerleri "YTL" ve "YKr" şeklinde değiştirebilirsin. o zaman Onaltı YTL Yirmibeş YKr yazar.
A1 hücresindeki 625 sayısını =Cevir(A1) formülü, Altıyüzyirmibeş olarak yazar.

Mesajı son düzenleyen ragip2007 ( 27-07-08 - 01:45 ) Neden: açıklama notu eklemek için
  Alı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ı



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. Reklam Mailimiz. Gizlilik Politikası


Reklamı Kapat

Reklamı Kapat