Kuruş Olarak Yazma Formülü

[Emir Hüseyin Çoban]

.

Örnek:

Sub kod()

    uzunluk = Len(Range("E2"))

    For a = 1 To uzunluk


        If Mid(Range("E2"), a, 1) = "," Then
        Else

            Select Case Mid(Range("E2"), a, 1)

            Case Is = 0: yaziyla = "Sıfır "
            Case Is = 1: yaziyla = "Bir "
            Case Is = 2: yaziyla = "İki "
            Case Is = 3: yaziyla = "Üç "
            Case Is = 4: yaziyla = "Dört "
            Case Is = 5: yaziyla = "Beş "
            Case Is = 6: yaziyla = "Altı "
            Case Is = 7: yaziyla = "Yedi "
            Case Is = 8: yaziyla = "Sekiz "
            Case Is = 9: yaziyla = "Dokuz "

            End Select
            metin = metin & yaziyla
        End If

    Next a

    MsgBox metin
End Sub

.

 

[Hantor]

.

Örnek:

Sub kod()

    uzunluk = Len(Range("E2"))

    For a = 1 To uzunluk


        If Mid(Range("E2"), a, 1) = "," Then
        Else

            Select Case Mid(Range("E2"), a, 1)

            Case Is = 0: yaziyla = "Sıfır "
            Case Is = 1: yaziyla = "Bir "
            Case Is = 2: yaziyla = "İki "
            Case Is = 3: yaziyla = "Üç "
            Case Is = 4: yaziyla = "Dört "
            Case Is = 5: yaziyla = "Beş "
            Case Is = 6: yaziyla = "Altı "
            Case Is = 7: yaziyla = "Yedi "
            Case Is = 8: yaziyla = "Sekiz "
            Case Is = 9: yaziyla = "Dokuz "

            End Select
            metin = metin & yaziyla
        End If

    Next a

    MsgBox metin
End Sub

.

Hocam zahmet olmaz ise Örnek dosyamın içine bu Formülü uyarlaya bilirmisiniz. Zira tek hücerede olmayacak bu isteğim. Örnek dosyayı ekledim çok şey istiyorum kusurabakmayın.

 

[Emir Hüseyin Çoban]

Tek hücre üzerinde test edin. Sonuçlar doğru ve istenilen gibiyse formüle çevirriz.

.

 

[Hantor]

Tek hücre üzerinde test edin. Sonuçlar doğru ve istenilen gibiyse formüle çevirriz.

.

Hocam yapmış olduğunuz formül Türkçe herhalde #name hatasu verdi çalıştıramadım

 

[Hantor]

Yardımcı olabilecek bir arkadaş var mı?

Yardımcı olabilecek bir arkadaş var mı?

Konu ile ilgili bir formül yokmudur.

 

[YUSUF44]

Aşağıdaki kodları kriptopara modülüne ekleyin. Kodları sayın @Emir Hüseyin Çoban'ın kodlarıyla oluşturdum.

Hücrede =kripto(E2) olarak kullanabilirsiniz:

Function kripto(coin As String)
    uzunluk = Len(coin)
    For a = 1 To uzunluk
        If Mid(coin, a, 1) = "," Then
        Else
            Select Case Mid(coin, a, 1)
            Case Is = 0: yaziyla = "Sıfır "
            Case Is = 1: yaziyla = "Bir "
            Case Is = 2: yaziyla = "İki "
            Case Is = 3: yaziyla = "Üç "
            Case Is = 4: yaziyla = "Dört "
            Case Is = 5: yaziyla = "Beş "
            Case Is = 6: yaziyla = "Altı "
            Case Is = 7: yaziyla = "Yedi "
            Case Is = 8: yaziyla = "Sekiz "
            Case Is = 9: yaziyla = "Dokuz "
            End Select
            metin = metin & yaziyla
        End If
    Next a
    kripto = metin
End Function

 

[YUSUF44]

kripto fonksiyonunu aşağıdaki gibi kullanırsanız virgülü de dikkate alıp hücrede yazar:

Function kripto(coin As String)
    uzunluk = Len(coin)
    For a = 1 To uzunluk
        Select Case Mid(coin, a, 1)
        Case Is = ",": yaziyla = "virgül "
        Case Is = 0: yaziyla = "Sıfır "
        Case Is = 1: yaziyla = "Bir "
        Case Is = 2: yaziyla = "İki "
        Case Is = 3: yaziyla = "Üç "
        Case Is = 4: yaziyla = "Dört "
        Case Is = 5: yaziyla = "Beş "
        Case Is = 6: yaziyla = "Altı "
        Case Is = 7: yaziyla = "Yedi "
        Case Is = 8: yaziyla = "Sekiz "
        Case Is = 9: yaziyla = "Dokuz "
        End Select
        metin = metin & yaziyla
    Next a
    kripto = metin
End Function

 

[YUSUF44]

Aşağıdaki gibi kullanırsanız Lira ve kuruş olarak belirtir:

Function kripto(coin As String)
    uzunluk = Len(coin)
    For a = 1 To uzunluk
        Select Case Mid(coin, a, 1)
        Case Is = ",": yaziyla = " Lira "
        Case Is = 0: yaziyla = "Sıfır "
        Case Is = 1: yaziyla = "Bir "
        Case Is = 2: yaziyla = "İki "
        Case Is = 3: yaziyla = "Üç "
        Case Is = 4: yaziyla = "Dört "
        Case Is = 5: yaziyla = "Beş "
        Case Is = 6: yaziyla = "Altı "
        Case Is = 7: yaziyla = "Yedi "
        Case Is = 8: yaziyla = "Sekiz "
        Case Is = 9: yaziyla = "Dokuz "
        End Select
        metin = metin & yaziyla
    Next a
    kripto = metin & " Kuruş"
End Function

 

[Hantor]

Hocam uğraitırdık ama ilgilendiğiniz için çok teşekkür ederim.