Excel METNEÇEVİR Fonksiyonu

“Excel METNEÇEVİR Fonksiyonu” üzerine 4 yorum

1. Üstad, bana rakamları ingilizce metin olarak yazdıran bir çözüm gerekiyor. Örneğin 1650$ yazınca bana ingilizce metine çeviren bir çözüm sunabilirmisiniz

   Yanıtla

   • Merhabalar. Bu işlem makro ile olabilir. Elimde aşağıdaki gibi bir örnek var ama ingilizceye çevirmeniz gerekebilir.

     ///////////////////////
     Modüles.sayiYaziyaCevir
     \\\\\\\\\\\\\\\\\\\\\\\

     Public Function ParaCevir(Para)
     Dim ParaStr As String
     Dim Lira As String, Kurus As String

     If Not IsNumeric(Para) Then GoTo SayiDegil

     ParaStr = Format(Abs(Para), “0.00”)

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

     ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(Lira) & " Lira " & Cevir(Kurus) & " Kuruş" Exit Function SayiDegil: ParaCevir = "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 = “Sıfır”

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

     ///////////////////////
     Modüles.Yazili
     \\\\\\\\\\\\\\\\\\\\\\\

     Option Compare Database
     Option Explicit
     Dim Yazi, Yazisi As String
     Dim B As Byte
     Dim Numu As String
     Dim Sayac As Byte
     Dim V As Byte
     Dim c As Byte
     Dim A As Byte
     Dim D As Byte

     Public Function Yazim(Sayi) As String
     Sayac = Len(Sayi)
     Numu = Str(Sayi)
     Yazisi = “”
     If Sayac > 0 Then
     Call Yazili
     Yazim = Yazisi
     End If
     End Function

     Public Sub Yazili()
     D = 0
     Do Until Sayac = 0
     Yazi = “”
     D = D + 1
     A = 0
     V = 0
     If Sayac > 2 Then
     Sayac = Sayac – 2
     B = Mid(Int(Numu), Sayac, 1)
     c = 0
     Call Birler
     Sayac = Sayac + 2
     If B > 0 Then Yazi = Yazi + “YUZ ”
     A = A + 1
     End If
     If Sayac > 1 Then
     Sayac = Sayac – 1
     B = Mid(Int(Numu), Sayac, 1)
     Call Onlar
     Sayac = Sayac + 1
     A = A + 1
     End If
     B = Mid(Int(Numu), Sayac, 1)
     c = 0
     If D <> 2 Then c = 1
     Call Birler
     If D = 5 And V = 1 Then Yazi = Yazi + “TRILYON ”
     If D = 4 And V = 1 Then Yazi = Yazi + “MILYAR ”
     If D = 3 And V = 1 Then Yazi = Yazi + “MILYON ”
     If D = 2 And V = 1 Then Yazi = Yazi + “BIN ”
     A = A + 1
     Sayac = Sayac – A
     Yazisi = Yazi + Yazisi
     Loop
     Yazisi = “YALNIZ ( ” + Yazisi + “) YTL.”
     End Sub

     Private Sub Birler()

     If B = 1 And c = 1 Then Yazi = Yazi + “BIR ”
     If B = 2 Then Yazi = Yazi + “IKI ”
     If B = 3 Then Yazi = Yazi + “UC ”
     If B = 4 Then Yazi = Yazi + “DORT ”
     If B = 5 Then Yazi = Yazi + “BES ”
     If B = 6 Then Yazi = Yazi + “ALTI ”
     If B = 7 Then Yazi = Yazi + “YEDI ”
     If B = 8 Then Yazi = Yazi + “SEKIZ ”
     If B = 9 Then Yazi = Yazi + “DOKUZ ”
     If B > 0 Then V = 1
     End Sub
     Private Sub Onlar()

     If B = 1 Then Yazi = Yazi + “ON ”
     If B = 2 Then Yazi = Yazi + “YIRMI ”
     If B = 3 Then Yazi = Yazi + “OTUZ ”
     If B = 4 Then Yazi = Yazi + “KIRK ”
     If B = 5 Then Yazi = Yazi + “ELLI ”
     If B = 6 Then Yazi = Yazi + “ALTMIS ”
     If B = 7 Then Yazi = Yazi + “YETMIS ”
     If B = 8 Then Yazi = Yazi + “SEKSEN ”
     If B = 9 Then Yazi = Yazi + “DOKSAN ”
     If B > 0 Then V = 1
     End Sub

     Yanıtla

   • kolay gelsin bana 1987,14 olarak yazılan parayı formülle başka sayfa ve hücreye tasidigimda 1987.14 olarak metne çevirecek bir şey lazım. bunu nasıl yapabilirim acaba.

     Yanıtla

     • aradaki virgülü noktaya çevirmek için YERİNEKOY Fonksiyonu kullanabilirsiniz.
       YERİNEKOY(A1;”,”;”.”)
       Bir de SAYIYAÇEVİR ile de yaparsanız sayısal işlem de yapmış olursunuz.
       =SAYIYAÇEVİR(YERİNEKOY(A1;”,”;”.”))

       Ancak Excel virgül ile sayısal işlem görür nokta ile görmez. Bende hata verdi. Ama bu şekilde istediğiniz diye bu diye formülü yazayım dedim.

       Yanıtla