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

Hvordan konverteres hurtigt tal til engelske ord i Excel?

Hvis du har en søjle med numeriske værdier i et regneark, og nu skal du kløfte dem til deres ækvivalente engelske ord eller engelske valutaord som vist nedenstående skærmbillede. Her vil jeg tale om, hvordan man hurtigt og nemt ændrer tallene til engelske ord.

Konverter tal til engelske ord med brugerdefineret funktion

Konverter tal til valutaord med brugerdefineret funktion

Konverter tal til valutaord med en nyttig funktion


Konverter tal til engelske ord med brugerdefineret funktion

Der er ingen funktioner eller formler, der kan hjælpe dig med at løse denne opgave direkte i Excel, men du kan oprette en brugerdefineret funktion for at afslutte den. Gør følgende:

1. Hold nede i ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

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. Gem og luk denne kode og gå tilbage til regnearket i en tom celle, indtast denne formel = Tal til ord (A2)( A2 er den celle, du vil konvertere nummeret til et engelsk ord), se skærmbillede:

4. Tryk derefter på Indtast nøgle, og vælg celle C2, træk derefter fyldhåndtaget til det område, som du vil indeholde denne formel. Alle de numeriske værdier er konverteret til deres tilsvarende engelske ord.

Bemærk: Denne kode fungerer kun for heltal, men gælder ikke decimaltal.


Konverter tal til valutaord med brugerdefineret funktion

Hvis du vil konvertere tallene til engelske valutaord, skal du anvende nedenstående VBA-kode.

1. Hold nede i ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

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. Gem denne kode og gå tilbage til regnearket i en tom celle, indtast denne formel = SpellNumberToEnglish (A2)( A2 er den celle, du vil konvertere nummeret til et engelsk valutaord), og træk derefter fyldhåndtaget ned til cellerne, som du vil anvende denne formel, alle numrene er stavet til engelske valutaord, se skærmbillede:


Konverter tal til valutaord med en nyttig funktion

Ovenstående kode er noget besværlig for begyndere i Excel, her vil jeg introducere en nyttig funktion, Kutools til Excel's Tal til ord, med dette værktøj kan du hurtigt stave tallene i engelske ord eller valutaord.

tips:At anvende dette Tal til ord funktion, for det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg listen over numre, du vil konvertere, og klik derefter på Kutools > Indhold > Tal til ord, se skærmbillede:

2. I Tal til valutaord dialogboksen, tjek Engelsk mulighed fra Sprog i listen, og klik derefter på Ok knappen, vil du se alle numrene er stavet til engelske valutaord:

Tips: Hvis du vil hente de engelske ord, skal du tjekke Ikke konverteret til valuta afkrydsningsfelt fra Indstillinger sektion, se skærmbilleder:

Klik for at downloade Kutools til Excel og gratis prøveversion nu!


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (62)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej god morgenHej.. Godmorgen.. Det er rart at møde dig.
Denne kommentar blev minimeret af moderatoren på webstedet
denne kode virker ikke
Denne kommentar blev minimeret af moderatoren på webstedet
Sir, hvordan kan jeg konvertere numeriske til ord med sidste ord "Kun"?
Denne kommentar blev minimeret af moderatoren på webstedet
problem løse?????
Denne kommentar blev minimeret af moderatoren på webstedet
Du skal tilføje en ekstra formel mere i en anden kolonne
="Rs."&""&F6&"Kun"&"."
Denne kommentar blev minimeret af moderatoren på webstedet
hvad med hvis tallet har en (.) som 150.75 eller 3.35? hjælp venligst tak...
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for din venlige støtte til at skabe formel. Kan du venligst fortælle os, om vi har brug for at tilføje navnet på valuta..såsom saudiske riyal eller britiske pund.
Denne kommentar blev minimeret af moderatoren på webstedet
For eksempel konverterer vi 4000 til ordet "Four Thousand", jeg vil oversætte det som "Saudi Riyals Four Thousand Only", så der mangler i formlen "Saudi Riyal & Only"
Please hjælp
Denne kommentar blev minimeret af moderatoren på webstedet
Ovennævnte formel i modul gentages og kopieres fra Microsofts hjemmeside..

Se venligst det originale link og følg Microsoft Update..

https://support.microsoft.com/en-in/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel
Denne kommentar blev minimeret af moderatoren på webstedet
kære denne kode viser syntaksfejl i denne linje
Cents = GetTens(Left(Mid(MitNumber, DecimalPlace + 1) &_"00", 2))

kan du hjælpe mig ..??Svar mig så hurtigt som muligt
Denne kommentar blev minimeret af moderatoren på webstedet
TILFØJ ORDET OG MELLEM ORD. Et hundrede og fyrretusind, fem hundrede og seksogtyve i stedet for hundrede og fyrretusind fem hundrede og seksogtyve. Sætningen kan muligvis ikke forstås godt, da den ikke er korrekt engelsk.
Denne kommentar blev minimeret af moderatoren på webstedet
denne kode fungerer ikke permanent ... hvis vi lukker og åbner arket, virker det ikke
Denne kommentar blev minimeret af moderatoren på webstedet
Gem filen som "Makroaktiveret arbejdsbog", og aktiver makroer, når du åbner den
Denne kommentar blev minimeret af moderatoren på webstedet
tak for meget for u er kode
Denne kommentar blev minimeret af moderatoren på webstedet
For eksempel konverterer vi 2500 til ordet "To tusinde fem hundrede", jeg vil oversætte det som "Kun to tusinde fem hundrede", så mangler i formlen er "Kun"
Please hjælp
Denne kommentar blev minimeret af moderatoren på webstedet
brug =CONCATENATE(NumberstoWords(A1),"Kun")
Denne kommentar blev minimeret af moderatoren på webstedet
Virkelig tak skat, din formel var perfekt, god, Allah velsigne dig.
Regards.
Denne kommentar blev minimeret af moderatoren på webstedet
lakh crore ikke i formlen. Hjælp mig venligst.
Denne kommentar blev minimeret af moderatoren på webstedet
For eksempel konverterer vi 2500 til ordet "Two Thousand Five Hundred", jeg vil gerne oversætte det som " Two Thousand Five Hundred & Cents Fifty Only" så kan du hjælpe
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg får ikke cents stave ud... mit beløb er 123.50 og fik "et hundrede treogtyve"... kopierede hele formlen, venligst hjælp
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad med lakhs og crores
Denne kommentar blev minimeret af moderatoren på webstedet
Tak en masse
Denne kommentar blev minimeret af moderatoren på webstedet
BØDE. Men undskyld at sige, at denne formel IKKE virker permanent ... Jeg lukkede projektmappen til frokostpause. Efter frokost åbnede jeg filen, men formlen virkede ikke. viser fejl som #NAVN?. Venligst intime løsninger tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak


Det virker! :)
Denne kommentar blev minimeret af moderatoren på webstedet
der er en fejl, når mit beløb er "618475", der står "Seks Hundrede Atten Tusind Fire Hundrede Femoghalvfjerds" i stedet for "seks lac atten tusind fire hundrede femoghalvfjerds".
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har samme problem
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er ikke et problem, det er et format til at skrive i ord
Denne kommentar blev minimeret af moderatoren på webstedet
Tak extendOfficea
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL