Sayıların Metne Dönüştürülmesi

[kalekale75]

Sayıların Metne dönüştürülmesi ve sonuna Metin eklenmesi

Şimdiden emeğinize sağlık

 

[YUSUF44]

Öncelikle dosyanızda VBA bölümüne bir modül ekleyin ve aşağıdaki kodları bu modüle yapıştırın:

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

Dosyanızda E7 hücresine aşağıdaki formülü yazın:

=EĞER(D3=0;D2&" ("&cevir(D2)&" Gün)";D2&" + "&D3&" (Yol Dahil "&cevir(D2+D3)&" Gün)")

 

[kalekale75]

hocam vermiş olduğunuz kodu E7 hücresine giriyorum.

=EĞER(D3=0;D2&" ("&cevir(D2)&" Gün)";D2&" + "&D3&" (Yol Dahil "&cevir(D2+D3)&" Gün)")

AMA FORMÜL YERİNE #AD?
YAZIYOR.YARDIMINIZ İÇİN TEŞEKKÜR EDERİM.

 

[YUSUF44]

Öncelikle dosyanızda VBA bölümüne bir modül ekleyin ve aşağıdaki kodları bu modüle yapıştırın:

Bu dediğimi yapmamışsınız muhtemelen. Dosyanız açıkken Alt+F11 yapın, çıkan VBA penceresinde Insert menüsünden Module'yi seçin ve ilk mesajda verdiğim makro kodlarını o açılan sayfaya yapıştırın.