Lukujen muuntaminen sanoiksi

Huomautus: Microsoft haluaa tarjota sinulle ajantasaisinta ohjesisältöä mahdollisimman nopeasti omalla kielelläsi. Tämä sivu on käännetty automaation avulla, ja siinä saattaa olla kielioppivirheitä tai epätarkkuuksia. Tarkoitus on, että sisällöstä on sinulle hyötyä. Kertoisitko sivun alareunassa olevan toiminnon avulla, oliko tiedoista hyötyä? Tästä pääset helposti artikkelin englanninkieliseen versioon.

Excelissä ei ole oletusarvo-funktio, joka näyttää luvut englanninkielisten sanojen laskentataulukon, mutta voit lisätä tämän vain liittämällä SpellNumber funktio-koodin VBA (Visual Basic for Applications)-moduulissa. Tämän funktion avulla voit muuntaa valuutta- ja prosenttia summat kaavaa, joka sisältää sanoja niin, että 22,50 lukea kahdenkymmenen kaksi dollareina ja 50 Senttejä nimellä. Tämä voi olla erittäin hyödyllistä, jos käytät Excelin mallina tulostaa tarkistukset.

Jos haluat muuntaa numeeriset arvot tekstimuoto näyttämättä niitä sanoja, käytä teksti-funktio .

Huomautus: Microsoft toimittaa ohjelmoinnin esimerkkejä vain ilmaistuna tai implisiittinen. Tämä sisältää, mutta ei ole tarkasteltavana, epäsuora takuita kaupalliseen käytettävyyteen tai johonkin tiettyyn tarkoitukseen. Tässä artikkelissa oletetaan, että olet perehtynyt VBA-ohjelmointikielellä ja työkaluja, joiden avulla voit luoda ja virheenkorjaus menettelyt kanssa. Microsoftin tukihenkilöt voivat auttaa tietyn toiminnon toimintoja. Ne kuitenkin ei muokkaa näitä esimerkkejä toimintoja, tai käyttää menetelmiä erityistarpeita.

SpellNumber-funktion luominen numeroiden muuntamiseksi sanamuotoon

  1. Käytä näppäinyhdistelmää Alt + F11 Avaa Visual Basic Editor (VBE).

    Huomautus: Voit käyttää Visual Basic -editoria myös näyttämällä Kehitystyökalut-välilehden valintanauhassa.

  2. Napsauta Lisää-välilehteä ja napsauta sitten Moduuli.

    Valitse Insert-valikosta Module.
  3. Kopioi seuraavat koodirivit.

    Huomautus: Nimeltään Käyttäjän määrittämät funktion (UDF)-koodi automatisoi lukujen muuntaminen tekstin koko laskentataulukon.

    Option Explicit
    
    'Main Function
    
    Function SpellNumber(ByVal MyNumber)
    
    Dim Dollars, Cents, Temp
    
    Dim DecimalPlace, Count
    
    ReDim Place(9) As String
    
    Place(2) = " Thousand "
    
    Place(3) = " Million "
    
    Place(4) = " Billion "
    
    Place(5) = " Trillion "
    
    ' String representation of amount.
    
    MyNumber = Trim(Str(MyNumber))
    
    ' Position of decimal place 0 if none.
    
    DecimalPlace = InStr(MyNumber, ".")
    
    ' Convert cents and set MyNumber to dollar amount.
    
    If DecimalPlace > 0 Then
    
    Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))
    
    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    
    End If
    
    Count = 1
    
    Do While MyNumber <> ""
    
    Temp = GetHundreds(Right(MyNumber, 3))
    
    If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
    
    If Len(MyNumber) > 3 Then
    
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    
    Else
    
    MyNumber = ""
    
    End If
    
    Count = Count + 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
    
    SpellNumber = Dollars & Cents
    
    End Function
    
    
    ' Converts a number from 100-999 into text
    
    Function GetHundreds(ByVal MyNumber)
    
    Dim Result As String
    
    If Val(MyNumber) = 0 Then Exit Function
    
    MyNumber = Right("000" & MyNumber, 3)
    
    ' Convert the hundreds place.
    
    If Mid(MyNumber, 1, 1) <> "0" Then
    
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    
    End If
    
    ' Convert the tens and ones place.
    
    If Mid(MyNumber, 2, 1) <> "0" Then
    
    Result = Result & GetTens(Mid(MyNumber, 2))
    
    Else
    
    Result = Result & GetDigit(Mid(MyNumber, 3))
    
    End If
    
    GetHundreds = Result
    
    End Function
    
    
    ' Converts a number from 10 to 99 into text.
    
    
    Function GetTens(TensText)
    
    Dim Result As String
    
    Result = "" ' Null out the temporary function value.
    
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
    
    Select Case Val(TensText)
    
    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 ' If value between 20-99...
    
    Select Case Val(Left(TensText, 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(TensText, 1)) ' Retrieve ones place.
    
    End If
    
    GetTens = Result
    
    End Function
    
    
    ' Converts a number from 1 to 9 into text.
    
    Function GetDigit(Digit)
    
    Select Case Val(Digit)
    
    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
  4. Liitä koodirivit ruutuun Module1 (koodi).

    Koodi liitetty Module1 (Code) -ruutuun.
  5. Paina Alt + Q palaa Exceliin. SpellNumber-funktio on nyt valmis käytettäväksi.

    Huomautus: Tämä funktio toimii vain nykyisen työkirjan. Jos haluat käyttää tätä toimintoa toisessa työkirjassa, toista vaiheet kopioi ja liitä koodi työkirjan.

Sivun alkuun

SpellNumber-funktion käyttäminen yksittäisissä soluissa

  1. Kirjoita soluun, jos haluat näyttää kirjoitettu numero kaavaa = SpellNumber(A1) missä A1 on solu, joka sisältää numero muunnettava. Voit kirjoittaa arvon myös manuaalisesti esimerkiksi = SpellNumber(22.50).

  2. Paina Enter Vahvista kaava.

Sivun alkuun

SpellNumber-funktion työkirjan tallentaminen

Excel ei voi tallentaa työkirjan kanssa makrofunktiot vakio makrot työkirja-muodossa (.xlsx). Jos valitset Tiedosto > Tallenna. VB-projekti -valintaikkuna avautuu. Valitse ei.

Valitse VB-projektin valintaikkunassa Ei.

Voit tallentaa tiedoston Excel-työkirja (.xlsm) voit pitää tiedoston tässä muodossa.

  1. Valitse Tiedosto > Tallenna nimellä.

  2. Valitse Tallennusmuoto -avattavasta valikosta ja valitse Excel-työkirja.

  3. Valitse Tallenna.

Sivun alkuun

Katso myös

TEKSTI-funktio

Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×