Para birimi sayılarını Excel'deki kelimelere hızlı bir şekilde nasıl dönüştürebilirim?
Excel'de kelime metnine dönüştürmek için gereken bir dizi para birimi numarasına sahip olduğunuzu ve bunu hızlı bir şekilde çözmek için herhangi bir hızlı numaranız olduğunu varsayarsak? Şimdi bu eğitim, size Excel'de aynı anda birden çok para birimi numarasını İngilizce kelimelere dönüştürmenin bazı kolay yollarını anlatıyor.
Para birimi numaralarını uzun VBA ile kelimelere yazın
Kullanışlı Numbers to Words işlevi ile para birimi sayılarını kelimelere heceleyin
Para birimi numaralarını uzun VBA ile kelimelere yazın
Excel'de, sayıları VBA dışında hızlı bir şekilde İngilizce kelimelere dönüştüremezsiniz.
1. Basın Alt + F11 tuşlarını açmak için Uygulama için Microsoft Visual Basic pencere.
2. tık Ekle > modül ve VBA'nın altına yeni modül pencere.
VBA: Para birimi numaralarını İngilizce kelimelere dönüştürün.
Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(pTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
3. Ardından bu kodu kaydedin ve çalışma sayfasına geri dönmek için pencereyi kapatın ve bu formülü boş bir hücre türü seçin = SpellNumberToEnglish (A2) (A2 para birimi sayılarıdır) ve Keşfet tuşuna basın, ardından bu formülü ihtiyacınız olan hücrelere uygulamak için doldurma tutamacını aşağı sürükleyin. Ekran görüntülerine bakın:
Kullanışlı Sayıları Yazma işleviyle para birimi sayılarını kelimelere heceleyin
Genellikle sayıları kelimelere dönüştürmeniz gerekiyorsa, yukarıdaki yöntem sizin için iyi ve kullanışlı bir yol olmamalıdır. Ancak şunu kullanabilirsiniz: Sayılardan Kelimelere para birimi numaralarını hızlı bir şekilde İngilizce kelimelere veya Çince kelimelere dönüştürme işlevi Kutools for Excel.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Para birimi numaralarını seçin ve tıklayın Kutools > içerik > Sayılardan Kelimelere. Ekran görüntüsüne bakın:
2. içinde Para Birimi Kelimelerine Sayılar iletişim, kontrol et İngilizce or Çince İhtiyacınız olan seçenek. Ekran görüntüsüne bakın:
3. tık Ok or Tamam. Ardından seçtiğiniz para birimi numaraları kelimelere dönüştürüldü.
Para birimi sayılarından İngilizce kelimelere
Para birimi sayılarından Çince kelimelere
Not: Numaraları Kelimelere uygulamadan önce para birimi numaralarını başka bir çalışma sayfasına kopyalayıp yapıştırabilirsiniz.
Para Birimi Numarasını Kelimelere Dönüştür
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!