sayıyı dolar olarak okuma =dollartext(a1) Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Function DollarText(vNumber) As Variant
'see also Function SpellNumber(ByVal MyNumber), PSS ID Number: Q140704
Dim sDollars As String
Dim sCents As String
Dim iLen As Integer
Dim sTemp As String
Dim iPos As Integer
Dim iHundreds As Integer
Dim iTens As Integer
Dim iOnes As Integer
Dim sUnits(2 To 5) As String
Dim bHit As Boolean
Dim vOnes As Variant
Dim vTeens As Variant
Dim vTens As Variant
If Not IsNumeric(vNumber) Then
    Exit Function
End If
sDollars = Format(vNumber, "###0.00")
iLen = Len(sDollars) - 3
If iLen > 15 Then
    DollarText = CVErr(xlErrNum)
    Exit Function
End If
sCents = Right$(sDollars, 2) & "/100 Dollar" 'Hier die Währung ändern
If vNumber = iPos - 2 Then
        bHit = False
        If iLen >= iPos Then
            iHundreds = Asc(Mid$(sDollars, iLen - iPos + 1, 1)) - 48
            If iHundreds > 0 Then
                sTemp = sTemp & " " & vOnes(iHundreds) & " hundred"
                bHit = True
            End If
        End If
        iTens = 0
        iOnes = 0
        If iLen >= iPos - 1 Then
            iTens = Asc(Mid$(sDollars, iLen - iPos + 2, 1)) - 48
        End If
        If iLen >= iPos - 2 Then
            iOnes = Asc(Mid$(sDollars, iLen - iPos + 3, 1)) - 48
        End If
        If iTens = 1 Then
            sTemp = sTemp & " " & vTeens(iOnes)
            bHit = True
        Else
            If iTens >= 2 Then
                sTemp = sTemp & " " & vTens(iTens)
                bHit = True
            End If
            If iOnes > 0 Then
                If iTens >= 2 Then
                    sTemp = sTemp & "-"
                Else
                    sTemp = sTemp & " "
                End If
            sTemp = sTemp & vOnes(iOnes)
            bHit = True
            End If
        End If
        If bHit And iPos > 3 Then
        sTemp = sTemp & " " & sUnits(iPos  3)
        End If
    End If
Next iPos
DollarText = Trim(sTemp) & " and " & sCents
End Function 'DollarText -

Benzer Sonuçlar
No	Makro Adı
1	sayıyı dolar olarak okuma =dollartext(a1)
2	rakamı / sayıyı İngilizce yazıya çevirmek (Dolar ve cent para birimi şeklinde)
3	sayının karekökü
4	şifrelemede son nokta
5	tarihi macroya metin olarak okuma.
6	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
7	ehatalıysa formülünün izahı
8	excel dosyası belirli bir tarihten sonra açılmasın
9	Dosyayı kim açtı 2
10	korumalı hücrelere sıralama yapmak?
11	dosyayı kim açtı
12	kolon sayısını yaz kolon adını harf olarak versin (ktf)
13	her sayfayı ayrı ayrı kitap olarak cye kaydetme
14	Alfabetik Sütun Etiketlerini Sayısal Olarak Dönüştürme
15	hücreye formül yazdirirken referans çeşitleri
16	excel sayfasında yazılanları texte çevirmek
17	30 excel dosyası içinde bir kelime aratma
18	Roman Numaralarını Arapça Sayılara Dönüştür: Bazen Roma sayılarını seri numaralar olarak anlamak gerçekten zor. Bu kod, romen sayılarını arapça sayılara dönüştürmenize yardımcı olacaktır.
19	Seri Numaraları Ekleme: Bu makro kodu, excel sayfanıza seri numaraları otomatik olarak eklemenize yardımcı olacaktır. Bu makroyu çalıştırdıktan sonra seri numaralar için maksimum sayı girmeniz gereken bir giriş kutusu gösterecektir ve bundan sonra bir sütundaki sütuna sayı ekleyecektir.
20	Dosyayı kapatmadan önce "Kaydetmek İstiyor musunuz?" sorusunu engelleme ve her kapatma işleminde otomatik olarak kaydetme

Benzer Sonuçlar

Makro Adı

sayıyı dolar olarak okuma =dollartext(a1)

rakamı / sayıyı İngilizce yazıya çevirmek (Dolar ve cent para birimi şeklinde)

sayının karekökü

şifrelemede son nokta

tarihi macroya metin olarak okuma.

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

ehatalıysa formülünün izahı

excel dosyası belirli bir tarihten sonra açılmasın

Dosyayı kim açtı 2

korumalı hücrelere sıralama yapmak?