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 Dollars" 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 -

TÜM MAKROLAR Youtube Kanalımız
Aşağıdaki makrolar işinize yarayabilir.

Warning: mysql_connect() [function.mysql-connect]: Headers and client library minor version mismatch. Headers:100337 Library:30120 in /home/dbswav/public_html/excelsizeyeter.com/benzerlik_hazir_makrolar4.php on line 19

Benzer Sonuçlar

No	Makro Adı
1	dolar okutma
2	sayıyı dolar olarak okuma =dollartext(a1)
3	rakamı / sayıyı İngilizce yazıya çevirmek (Dolar ve cent para birimi şeklinde)
4	çalışma sayfanızdaki hücrenin değerlerine göre hücreler renklerle dolar
5	hücrenin değerlerine göre hücreler renklerle dolar
6	form dolarsa ikinci forma geçip çıktısını alsin
7	makrolar kutusu ve makrolar görünsün
8	kitabı kilitleme. salt okunur olarak açma. makroları gizler
9	makrolariniz gizli olsun diyorsaniz
10	sayfalara şifre koymak
11	Excel'i konuşturmak, seçili hücredeki yazıları sesli okutmak, cümle okutmak
12	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.
13	dolaylı makro
14	herhangi bir form üzerindeki metin kutusuna girilecek karakter sayısını sınırlandırma
15	makrolarınız gizli olsun diyorsanız
16	sayfa koruması nasıl kaldırılır
17	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?
18	sesli okutma
19	ehatalıysa formülünün izahı
20	excel dosyası belirli bir tarihten sonra açılmasın