dolar okutma 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 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 -

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

Benzer Sonuçlar

Makro Adı

dolar okutma

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

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

çalışma sayfanızdaki hücrenin değerlerine göre hücreler renklerle dolar

hücrenin değerlerine göre hücreler renklerle dolar

form dolarsa ikinci forma geçip çıktısını alsin

makrolar kutusu ve makrolar görünsün

kitabı kilitleme. salt okunur olarak açma. makroları gizler

makrolariniz gizli olsun diyorsaniz

sayfalara şifre koymak