İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də sözlərin pul nömrələrini sürətli bir şəkildə çevirmək üçün necə?

Excel-də sözlər mətninə çevirmək üçün lazım olan bir sıra valyuta nömrələriniz olduğunu düşünür və tez bir zamanda həll etmək üçün hər hansı bir sürətli fənd varmı? İndi bu tutorial birdən çox valyuta nömrəsini İngilis dili sözlərindən Excel-də birbaşa çevirmək üçün bir neçə asan yolla danışır.

doc valyuta nömrəsi 1 sözünə

Uzun VBA ilə sözlərə valyuta nömrələrini yazın

Möhtəşəm Spell Out Numbers funksiyası ilə sözlərə valyuta nömrələrini yazın yaxşı fikir3


Uzun VBA ilə sözlərə valyuta nömrələrini yazın


Excel-də VBA-dan başqa nömrələri tez İngilis sözlərinə çevirə bilməzsiniz.

1. Basın Alt + F11 düymələri açmaq üçün Proqram üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules və VBA-nın altına yeni qoyun Modules pəncərə.

VBA: Valyuta nömrələrini İngilis dilinə çevirmək.

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. Sonra bu kodu saxlamaq və iş səhifəsinə geri dönmək üçün pəncərəni bağlayın və boş bir hüceyrəni bu formula yazın = SpellNumberToEnglish (A2) (A2 valyuta nömrələri) və basın Daxil edin düyməsini basdıqdan sonra, bu formulu lazım olan hüceyrələrə tətbiq etmək üçün doldurma qolunu aşağı sürükləyin. Ekranlara baxın:

doc valyuta nömrəsi 2 sözünə
doc arrow aşağı
doc valyuta nömrəsi 1 sözünə

Möhtəşəm Spell Out Numbers funksiyası ilə sözlərə valyuta nömrələrini yazın

Nömrələri sözlərə çevirmək lazımdırsa, yuxarıdakı üsul sizin üçün yaxşı və rahat bir yol olmamalıdır. Ancaq istifadə edə bilərsiniz Nömrələri yaz funksiyası, əgər valyuta nömrələrini İngilis dili sözlər və ya Çin sözlərinizə tez çevirirsinizsə Excel üçün Kutools.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyini artırmaq və iş vaxtınızı xilas etmək.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. Valyuta nömrələrini seçin və basın Kutools > məzmun > Nömrələri yaz. Ekran görüntüsünə baxın:

doc valyuta nömrəsi 7 sözünə

2. İçində Nömrəni yazma dialoq yoxlayın ingilis or çin Sizə lazım olan seçimi. Ekran görüntüsünə baxın:

doc valyuta nömrəsi 4 sözünə

3. klik Ok or tətbiq etmək. Sonra seçdiyiniz pul nömrələri sözlərə çevrildi.

İngilis dili sözlərindən pul nömrələri

doc valyuta nömrəsi 5 sözünə

Çin sözlərinə valyuta nömrələri

doc valyuta nömrəsi 6 sözünə

Qeyd: əlyazma nömrələrini tətbiq etməzdən əvvəl valyuta nömrələrini başqa bir iş səhifəsinə kopyalayıb yapışdıra bilərsiniz.


yaxşı fikirValyuta Dönüşüm

Kutools'Valyuta Dönüşüm funksiyası son valyuta məzənnəsini verir və birdən çox valyuta arasında çevrilməyə kömək edir.
Basın Kutools > məzmun > Valyuta Conversion tez iki valyuta arasında çevirmək üçün. Ekran görüntüsünə baxın:
doc valyuta konvertasiyası 1


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kim Morse · 2 months ago
    Hai, Kim Morse, pemberi pinjaman wang persendirian. (Code360)
    Kami menyediakan pinjaman dengan kadar faedah 2% setahun dan dalam jumlah $ 10,000.00 hingga $ 500,000.00 dan € 10,000.00 hingga € 500,000.00 sebagai tawaran pinjaman. Projek 100% yang dibiayai dengan pinjaman bercagar dan tidak bercagar boleh didapati. Kami dijamin menyediakan perkhidmatan kewangan kepada pelanggan kami di seluruh dunia. Dengan pakej kredit yang fleksibel, pinjaman boleh diproses dan dana dipindahkan kepada peminjam dalam 2 hari. Kami bekerja dalam terma yang jelas dan mudah difahami dan menawarkan pelbagai jenis pinjaman kepada pelanggan, syarikat, individu swasta dan pelabur hartanah yang berminat. Cukup lengkapkan borang di bawah dan kembali kepada kami melalui E-mel.
    Butiran pengguna:
    Nama-nama:
    Tarikh lahir:
    Jantina.
    Status perkahwinan saya:
    Alamat:
    Bandar:
    dan Negeri / Wilayah:
    Kod pos /
    Negara:
    Telefon:
    Email saya:
    dengan tujuan pinjaman:
    Jumlah pinjaman:
    Tempoh pinjaman:
    Pendapatan bulanan anda:
    Hubungi pegawai pinjaman Via Email: (Code360optionsloancompany@gmail.com) Dan untuk Maklumat, Hubungi alamat Web kami: Code360optionsloancompany.com

    Salam sejahtera,
    Puan Kim