Sayıları Kelimeler olarak Excel'de görüntüler - mankenler

Hiç metin yazılmış bir numarayı görüntülemek zorunda kaldıysanız, muhtemelen Excel'in böyle bir işlev sunmadığını keşfettiniz demektir. Excel teslim edemediğinde, sıklıkla VBA kullanarak eksikliği gidermek mümkündür. Çalışma sayfası formüllerinde kullanabileceğiniz SPELLDOLLARS adlı bir VBA işlevi.

Excel örnekleri

İşte bazı örnekler SPELLDOLLARS.

VBA kodu

Bu kodu kullanmak için Visual Basic Düzenleyicisi'ni etkinleştirmek için Alt + F11 tuşlarına basın. Ardından, yeni bir VBA modülü eklemek için Ekle → Modül'ü seçin. Kodu kopyalayın ve yeni modüle yapıştırın.

İşlev SPELLDOLLARS (hücre) As Variant 'Bir kelimeyle dağıtılan bir değeri döndürür Dim Dolar As String, Cents As String Ölçülendir TextLen As Long, Pos As Uzun Dim Sıcaklık String Dim iHundreds As Uzun, iTens As Long, iOnes As Uzun Boyutlu Onları Varyant Olarak Varyant Olarak On İki Varyant olarak Dim Birimleri (2 ila 5) As String Dim bHit As Boolean, NegFlag As Boolean 'Bir numara ya da boş bir hücre var mı? If IsNumeric (cell) Veya cell = "" Sonra SPELLDOLLARS = CVErr (xlErrValue) Exit Function End If 'Negatif mi? Eğer hücre 15 ise o zaman SPELLDOLLARS = CVErr (xlErrNum) Çıkış Fonksiyonu Sonu 'Cent'leri yap Cents = Sağa (Dolar, 2) & "/ 100 Dolar" If cell = Pos - 2 ise bHit = False If TextLen> = Pos Then iHundreds = Asc (Mid $ (Dollars, TextLen - Pos + 1, 1)) - 48 iHundreds> 0 Sonra Temp = Temp & "" & Ones (iHundreds) & "Yüz" bHit = Gerçek Bitir If If iTens = 0 iOnes = 0 TextLen> = Sıra - 1 Then TextLen> = Pos - 2 Then If ios = Asc (Mid $ (Dolar, TextLen - Pos + 2, 1)) ITens = 1 ise, Temp = Temp & Teens (iOnes) bHit = True Başka => Temp = Temp & "" & Tens (iTens) bHit = Gerçek Bitiş If If iTens> 0 Then Sonra Temp = Temp & "-" Else Temp = Temp & "" End Temp = Temp & Ones (iOnes) bHit = Gerçek Bitir If If bHit Ve Pos > 3 Sonra Temp = Sıcaklık ve Birimler (Poz 3) Bitirirse Bir Sonraki Pozsiyon SPELLDOLLARS = Düzeltme (Sıcaklık) & "ve" ve Cents If NegFlag Then SPELLDO LLARS = "(" & SPELLDOLLARS & ")" Bitiş İşlevi