Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • İşletim Sistemleri ve Yazılımlar
  • Yazılım Genel
  • Bu Konuda
Şimdi Ara

excelde sayıyı metne çevirme

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
10
Cevap
0
Favori
20.023
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • excel'de sayı olan hücreleri metne nasıl çeviriyoruz?
    örneğin; a1=15 benim istediğim a1 hücresinin metne çevrilmesi
    yani sonucu a2'de istiyorum diyelim(a2=onbeş çıksın istiyorum).Bunun formülünü verirseniz sevinirim.



  • mesela A15 hücresinde 11.212 nl sayı var bunu B15 hücresinde yazı stilinde görmek istiyosun ve aynen şunu yazıyosun ;

    =yaziyla(A15)


    olay budur
  • bunu daha önceden denemiştim.Bu yöntemle olmuyor .Excel'de dene istersen. Çözüm bana çok acil lazım.yardım ederseniz sevinirim.
  • Visual basic kodu var bunun için sayıyı rakama ceviren ya da tersi bunu Excele atabilirsen VBA ile belki bir çözüm olabilir...

    Bir de sayıyacevir diye bir fonksiyon var onu dene istersen



    < Bu mesaj bu kişi tarafından değiştirildi serseri -- 24 Temmuz 2006; 18:35:56 >
  • ben sayıyı metne cevirmek istiyorum.Visual basic kodunu atabilirmisin veya daha basşit bir çözüm yokmu
    =bahttext(hücre ismi) diye bir formul var,bu başka bir dilde çözüm veriyor .Buna benzer bir çözüm yok mu
  • Biraz ingilizce bilgin var ise;


    http://www.ozgrid.com/VBA/ValueToWords.htm

    Bir de baska bir forumdan alıntı


    quote:


    Bu işlemi -maalesef- Excel'in standart fonksiyonlarını kullanarak yapamazsınız.

    Çözüm için;
    Tools->Macro->Visual Basic Editor menüsünden VBA Project->Sağ Klik->Insert->Modul komutunu kullanarak, çalışma sayfanıza bir modül ekleyin. Ardından, aşağıda verdiğim scripti VB penceresinin sağ tarafındaki panoya (kopyala-yapıştır yöntemiyle) yazın.
    Artık, =Yazı(A1) formülünü kullanarak A1 hücresine girdiğiniz sayıların (trilyonlar basamağı dahil) yazıyla karşılığını A2 hücresinde görebilirsiniz.



    Public Function Yazı(AA)
    Dim AAStr As String
    Dim BB As String

    If Not IsNumeric(AA) Then GoTo SayiDegil

    AAStr = Format(Abs(AA), "0.00")

    BB = Left(AAStr, Len(AAStr) - 3)

    Yazı = IIf(AA < 0, "Eksi ", "") & Cevir(BB)

    Exit Function

    SayiDegil:
    Yazı = "GİRİLEN DEĞER SAYI DEĞİL!"
    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 = "00"

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




  • Bir de bu adreste var


    http://www.aliihsanbayir.com/Down.asp


    Burada yazıya cevir programı işini görür
    • Yapay Zeka’dan İlgili Konular
    Excel de Sayıdaki Noktaları Kaldırarak Sayıyı Düzeltme
    9 yıl önce açıldı
    Kopyalanan Metni Yapıştır Yapılamayan Ekrana Yazdırma
    9 yıl önce açıldı
    Excelde sütunu 3'e bölmek
    2 yıl önce açıldı
    Daha Fazla Göster
  • Arkadaşlaş ben hücrade yazan sayı değerini para birimi olarak yazdırmak istiyorum araştırdım kodları buldum lakin kodları excele nasıl ekliyorum onu beceremiyorum bir türlü yardımcı olursanız sevinirim

  • A1 hücresine yazdığınız sayıyı aşağıdaki formülle yazıya çevirebilirsiniz:


    regional settings'de list seperator = "," (virgül) için:


    =CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),12),1,1)+1,"","","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&IF(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),12),1,1)<>"0","YÜZ","")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),12),2,1)+1,"","ON","YİRMİ","OTUZ","KIRK","ELLİ","ALTMIŞ","YETMİŞ","SEKSEN","DOKSAN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),12),3,1)+1,"","BİR","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&IF(AND(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),12),3,1)="0",MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),12),2,1)="0",MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),12),1,1)="0"),"","MİLYAR")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),9),1,1)+1,"","","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&IF(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),9),1,1)<>"0","YÜZ","")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),9),2,1)+1,"","ON","YİRMİ","OTUZ","KIRK","ELLİ","ALTMIŞ","YETMİŞ","SEKSEN","DOKSAN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),9),3,1)+1,"","BİR","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&IF(AND(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),9),3,1)="0",MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),9),2,1)="0",MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),9),1,1)="0"),"","MİLYON")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),6),1,1)+1,"","","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&IF(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),6),1,1)<>"0","YÜZ","")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),6),2,1)+1,"","ON","YİRMİ","OTUZ","KIRK","ELLİ","ALTMIŞ","YETMİŞ","SEKSEN","DOKSAN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),6),3,1)+1,"","BİR","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&IF(AND(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),6),3,1)="0",MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),6),2,1)="0",MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),6),1,1)="0"),"","BİN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),3),1,1)+1,"","","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&IF(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),3),1,1)<>"0","YÜZ","")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),3),2,1)+1,"","ON","YİRMİ","OTUZ","KIRK","ELLİ","ALTMIŞ","YETMİŞ","SEKSEN","DOKSAN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1,0),"000000000000"),3),3,1)+1,"","BİR","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&"TÜRKLİRASI"&CHOOSE(MID(RIGHT(TEXT(100*(A1-ROUNDDOWN(A1,0)),"000"),3),2,1)+1,"","ON","YİRMİ","OTUZ","KIRK","ELLİ","ALTMIŞ","YETMİŞ","SEKSEN","DOKSAN")&CHOOSE(MID(RIGHT(TEXT(100*(A1-ROUNDDOWN(A1,0)),"000"),3),3,1)+1,"","BİR","İKİ","ÜÇ","DÖRT","BEŞ","ALTI","YEDİ","SEKİZ","DOKUZ")&IF(AND(MID(RIGHT(TEXT(100*(A1-ROUNDDOWN(A1,0)),"000"),3),3,1)="0",MID(RIGHT(TEXT(100*(A1-ROUNDDOWN(A1,0)),"000"),3),2,1)="0"),"","KURUŞ")



    regional settings'de list seperator = ";" (noktalı virgül) için:


    =CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");12);1;1)+1;"";"";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&IF(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");12);1;1)<>"0";"YÜZ";"")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");12);2;1)+1;"";"ON";"YİRMİ";"OTUZ";"KIRK";"ELLİ";"ALTMIŞ";"YETMİŞ";"SEKSEN";"DOKSAN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");12);3;1)+1;"";"BİR";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&IF(AND(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");12);3;1)="0";MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");12);2;1)="0";MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");12);1;1)="0");"";"MİLYAR")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");9);1;1)+1;"";"";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&IF(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");9);1;1)<>"0";"YÜZ";"")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");9);2;1)+1;"";"ON";"YİRMİ";"OTUZ";"KIRK";"ELLİ";"ALTMIŞ";"YETMİŞ";"SEKSEN";"DOKSAN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");9);3;1)+1;"";"BİR";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&IF(AND(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");9);3;1)="0";MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");9);2;1)="0";MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");9);1;1)="0");"";"MİLYON")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");6);1;1)+1;"";"";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&IF(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");6);1;1)<>"0";"YÜZ";"")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");6);2;1)+1;"";"ON";"YİRMİ";"OTUZ";"KIRK";"ELLİ";"ALTMIŞ";"YETMİŞ";"SEKSEN";"DOKSAN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");6);3;1)+1;"";"BİR";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&IF(AND(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");6);3;1)="0";MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");6);2;1)="0";MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");6);1;1)="0");"";"BİN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");3);1;1)+1;"";"";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&IF(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");3);1;1)<>"0";"YÜZ";"")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");3);2;1)+1;"";"ON";"YİRMİ";"OTUZ";"KIRK";"ELLİ";"ALTMIŞ";"YETMİŞ";"SEKSEN";"DOKSAN")&CHOOSE(MID(RIGHT(TEXT(ROUNDDOWN(A1;0);"000000000000");3);3;1)+1;"";"BİR";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&"TÜRKLİRASI"&CHOOSE(MID(RIGHT(TEXT(100*(A1-ROUNDDOWN(A1;0));"000");3);2;1)+1;"";"ON";"YİRMİ";"OTUZ";"KIRK";"ELLİ";"ALTMIŞ";"YETMİŞ";"SEKSEN";"DOKSAN")&CHOOSE(MID(RIGHT(TEXT(100*(A1-ROUNDDOWN(A1;0));"000");3);3;1)+1;"";"BİR";"İKİ";"ÜÇ";"DÖRT";"BEŞ";"ALTI";"YEDİ";"SEKİZ";"DOKUZ")&IF(AND(MID(RIGHT(TEXT(100*(A1-ROUNDDOWN(A1;0));"000");3);3;1)="0";MID(RIGHT(TEXT(100*(A1-ROUNDDOWN(A1;0));"000");3);2;1)="0");"";"KURUŞ")


    < Bu mesaj bu kişi tarafından değiştirildi ferguson81 -- 15 Eylül 2021; 22:50:45 >




  • roninkg R kullanıcısına yanıt

    biraz geç oldu ama belki birinin işine yarar.


    https://archive.ismmmo.org.tr/yardimciprogramlar/makro_ekle.pdf
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum