excel de rakamı yazıya çevirme
PCnet Online forumlarına katılmak için hesap açabilirsiniz.
  • Üye girişi:

PCnet Online forumlarına hoş geldiniz

+ Başlığa Yanıt Yaz
5 sonuçtan 1 - 5 arası sonuçlar
  1. Varsayılan excel de rakamı yazıya çevirme
    arkadaşlar excel de rakamı otomatik olarak yazıya cevirme nasıl yapılıyor???


    mesela
    A1 : 1 500 000

    A2 : yalnızbirmilyarbeşyüzmilyontürklirası


    yardımcı olursanız sevinirim...
    teşekkürler....

  2. #2
    Varsayılan
    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) = "Miyon"
    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

    Bu kodu excel açıkken alt+F11 e bas...açılan menüde sol tarafta insert modüle de...BU kodu oraya yaz...Sonra =YAZIYLA(B5) komutu ile yazıya çevirme işlemi yapabilirsin...

  3. #3
    Varsayılan Excel de rakamı yazıya çevirme
    MERHABA

    mesela
    A1 : 1.991,99
    A2 : yalnızbindokuzyüzdoksanbir.-TL doksandokuz.-KR
    nasıl otomatik yazdırabilirim.
    yardımlarınızı rica ediyorum.

  4. #4
    Varsayılan selam
    merhaba arkadaşlar iş yerimde kullandığım office 2007 programı ingilizce lisanslı.
    oluşturduğum tabloda rakamları yazı olarak yazmasını istiyorum fakat dili ingilizce olduğu için başaramadım
    tabloda TL CİNSİNDEN BÜTÜN PARA BİRİMLERİ VAR
    MESELA
    200*4= 800 TL SEKİZYÜZ TL
    100*2=200 TL İKİ YÜZ TL
    50*3=150 TL YÜZ ELLİ TL
    GİBİ YAZDIRMAK İSTİYORUM

    bana yardımcı olabilirmisiniz?

  5. Varsayılan
    Ordan tl förmülüne git hallolmuştur bu iş


 
Benzer Başlıklar
  1. konuşmayı yazıya dökmek

    ahmetkaracan tarafından Yazılım forumunda
    Yanıt: 14
    Son Mesaj: 10.04.2010, 08:27
  2. yazıya tıklayınca link

    health_water tarafından PCnet forumunda
    Yanıt: 2
    Son Mesaj: 04.09.2006, 15:38
  3. Resimleri yazıya çevirin...

    Cnyt tarafından İnternet, Ağ ve Güvenlik forumunda
    Yanıt: 11
    Son Mesaj: 16.06.2005, 13:30
  4. yazıya çeviren program var mı?

    istanbulworld tarafından Yazılım forumunda
    Yanıt: 9
    Son Mesaj: 30.11.2004, 16:27
  5. resim üzerine yazılmış yazıyı düz yazıya çevirme

    eljahad tarafından İnternet, Ağ ve Güvenlik forumunda
    Yanıt: 2
    Son Mesaj: 21.10.2004, 17:13