Excel'in Gizli Gücü: METNEÇEVİR ile Verilerinizi Baştan Oluştur! 🚀#u11

Mustafa ÇETİN

26 Kasım 2020

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

yunus

16 Aralık 2020

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.