Note: The other languages of the website are Google-translated. Back to English

Kako hitro pretvoriti številke v angleške besede v Excelu?

Če imate na delovnem listu stolpec s številskimi vrednostmi in jih morate zdaj prilagoditi enakovrednim angleškim besedam ali besedam v angleški valuti, kot je prikazano na sliki spodaj. Tukaj bom govoril o tem, kako hitro in enostavno spremeniti številke v angleške besede.

Pretvorite številke v angleške besede z uporabniško določeno funkcijo

Pretvorite številke v valutne besede z uporabniško določeno funkcijo

Pretvorite številke v valute z uporabno funkcijo


Pretvorite številke v angleške besede z uporabniško določeno funkcijo

Ni funkcij ali formul, ki bi vam lahko pomagale pri reševanju te naloge neposredno v Excelu, lahko pa ustvarite uporabniško določeno funkcijo, da jo dokončate. Naredite naslednje:

1. Drži dol ALT + F11 in odpre tipko Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Shranite in zaprite to kodo in se vrnite na delovni list, v prazno celico vnesite to formulo = Število besed (A2)( A2 je celica, v katero želite pretvoriti številko v angleško besedo), si oglejte posnetek zaslona:

4. Nato pritisnite Vnesite in izberite celico C2, nato povlecite ročico za polnjenje v obseg, v katerega želite vsebovati to formulo. Vse številčne vrednosti so pretvorjene v ustrezne angleške besede.

Opombe: Ta koda deluje samo za cela števila, ne velja pa za decimalna števila.


Pretvorite številke v valutne besede z uporabniško določeno funkcijo

Če želite številke pretvoriti v besede v angleški valuti, uporabite spodnjo kodo VBA.

1. Drži dol ALT + F11 in odpre tipko Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Function SpellNumberToEnglish(ByVal pNumber)
'Update by Extendoffice
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. Shranite to kodo in se vrnite na delovni list, v prazno celico vnesite to formulo = SpellNumberToEnglish (A2)( A2 je celica, ki jo želite pretvoriti v besedo v angleški valuti), in nato povlecite ročico za polnjenje navzdol do celic, za katere želite uporabiti to formulo, vse številke so zapisane v angleških valutah, glejte posnetek zaslona:


Pretvorite številke v valute z uporabno funkcijo

Zgornja koda je nekoliko težavna za začetnike programa Excel, tukaj bom predstavil uporabno funkcijo, Kutools za Excel's Številke v besede, s tem pripomočkom lahko hitro črkujete številke v angleške besede ali besede v valuti.

Nasvet:Če želite uporabiti to Številke v besede funkcijo, najprej morate prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite seznam številk, ki jih želite pretvoriti, in kliknite Kutools > vsebina > Številke v besede, glej posnetek zaslona:

2. v Številke do valutnih besed dialogno polje, potrdite Angleščina možnost iz jeziki in nato kliknite Ok na gumbu boste videli, da so vse številke zapisane v angleških valutah:

nasveti: Če želite dobiti angleške besede, preverite Ni pretvorjeno v valuto potrditveno polje v možnosti glejte posnetke zaslona:

Kliknite za prenos Kutools za Excel in brezplačno preskusno različico zdaj!


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (62)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, dobro jutroŽivjo. Dobro jutro. Lepo te je spoznati.
Ta komentar je moderator na spletnem mestu minimiziral
ta koda ne deluje
Ta komentar je moderator na spletnem mestu minimiziral
Gospod, kako lahko pretvorim številčne v besede z zadnjo besedo "Samo"?
Ta komentar je moderator na spletnem mestu minimiziral
rešiti problem?????
Ta komentar je moderator na spletnem mestu minimiziral
V drugem stolpcu morate dodati še eno dodatno formulo
="Rs."&""&F6&"Samo"&"."
Ta komentar je moderator na spletnem mestu minimiziral
kaj pa, če ima številka (.) kot je 150.75 ali 3.35? prosim pomagajte hvala...
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za vašo podporo pri ustvarjanju formule. Ali nam lahko prosim poveste, ali moramo dodati ime valute..na primer savdski rijal ali britanski funt.
Ta komentar je moderator na spletnem mestu minimiziral
4000 na primer pretvorimo v besedo "štiri tisoč", želim jo prevesti kot "Saudski rijali štiri tisoč", tako da v formuli manjka "Saudi Riyals & Only"
prosim pomoč
Ta komentar je moderator na spletnem mestu minimiziral
Zgoraj omenjena formula v modulu se ponovi in ​​kopira z Microsoftovega spletnega mesta.

Oglejte si izvirno povezavo in sledite Microsoft Update..

https://support.microsoft.com/en-in/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel
Ta komentar je moderator na spletnem mestu minimiziral
dragi ta koda prikazuje napako v sintaksi v tej vrstici
Centi = GetTens(Levo(Sredina(MojeŠtevilo, DecimalnoPlace + 1) &_"00", 2))

mi lahko pomagate ..??Odgovorite mi čim prej
Ta komentar je moderator na spletnem mestu minimiziral
DODAJ BESEDO IN MED BESEDAMI. Sto štirideset tisoč, petsto šestindvajset namesto sto štirideset tisoč petsto šestindvajset. Stavek morda ni dobro razumljen, ker ni prava angleščina.
Ta komentar je moderator na spletnem mestu minimiziral
ta koda ne deluje trajno ... če zapremo in odpremo list, ne deluje
Ta komentar je moderator na spletnem mestu minimiziral
Shranite datoteko kot "Delovni zvezek z omogočenimi makri" in omogočite makre, ko jo odprete
Ta komentar je moderator na spletnem mestu minimiziral
hvala za veliko, ker si koda
Ta komentar je moderator na spletnem mestu minimiziral
Na primer pretvorimo 2500 v besedo "dva tisoč petsto", želim jo prevesti kot "samo dva tisoč petsto", zato v formuli manjka "samo"
prosim pomoč
Ta komentar je moderator na spletnem mestu minimiziral
uporabite =CONCATENATE(število besed(A1),"Samo")
Ta komentar je moderator na spletnem mestu minimiziral
Res hvala draga, tvoja formula je bila popolna, dobra, Allah te blagoslovi.
S spoštovanjem.
Ta komentar je moderator na spletnem mestu minimiziral
lakh Crore ni v formuli. Prosim pomagajte mi.
Ta komentar je moderator na spletnem mestu minimiziral
Na primer pretvorimo 2500 v besedo "Two Thousand Five Hundred", želim jo prevesti kot " Two Thousand Five Hundred & Cents Fifty Only", tako da lahko prosim pomagate
Ta komentar je moderator na spletnem mestu minimiziral
Ne razumem centov... moj znesek je 123.50 in dobil "sto triindvajset"... kopiral sem vso formulo, prosim za pomoč
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa lakh in crores
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
V REDU. Ampak žal moram reči, da ta formula NE deluje trajno ... Zaprl sem delovni zvezek za odmor za kosilo. Po kosilu sem odprl datoteko, vendar formula ni delovala. prikazuje napako, kot je #NAME?. Lepo prosim za intimne rešitve.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala


Deluje! :)
Ta komentar je moderator na spletnem mestu minimiziral
obstaja napaka, ko je moj znesek "618475", piše "šeststo osemnajst tisoč štiristo petinsedemdeset" namesto "šest lac osemnajst tisoč štiristo sedemdeset pet".
Ta komentar je moderator na spletnem mestu minimiziral
jaz imam enak problem
Ta komentar je moderator na spletnem mestu minimiziral
To ni problem, gre za obliko pisanja z besedami
Ta komentar je moderator na spletnem mestu minimiziral
Hvala extendOfficea
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL