Lukujen muuntaminen sanoiksi

Tärkeää: Tämä on artikkeli on käännetty koneellisesti. Lue vastuuvapauslauseke. Tämän artikkelin englanninkielinen versio on täällä .

Excel 2013 ja Excel 2016 ei ole oletusarvo-funktio, joka näyttää luvut englanninkielisten sanojen laskentataulukon solussa, mutta voit lisätä tämän vain liittämällä SpellNumber funktion koodin moduulitaulukkoon. Tämän funktion avulla voit muuntaa valuutta- ja prosenttia summat sanat.

Jos haluat muuntaa numeeriset arvot teksti-muotoon ilman näyttämättä niitä sanoja, teksti-funktiolla sijaan.

Tämän artikkelin sisältö

SpellNumber-funktion luominen numeroiden muuntamiseksi sanamuotoon

  1. Avaa Visual Basic -editori käyttämällä pikanäppäinyhdistelmää Alt+F11.

    Huomautus: Voit käyttää Visual Basic-editorin näyttämällä Kehitystyökalut-välilehden -valintanauha.

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

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

    Huomautus: Tämä makrofunktiona tunnettu koodi automatisoi numeroiden muuttamisen tekstiksi koko laskentataulukossa.

    Eksplisiittinen asetus

    Pääfunktio

    Funktio 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 "

    ‘ Määrän esittäminen merkkijonona.

    MyNumber = Trim(Str(MyNumber))

    ‘ Desimaalipaikan sijainti 0 jos puuttuu.

    DecimalPlace = InStr(MyNumber, ".")

    ‘ Muuntaa sentit ja määrittää MyNumberin dollarimäärään.

    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

    ‘ Muuntaa luvut 100-999 tekstiksi

    Function GetHundreds(ByVal MyNumber)

    Dim Result As String

    If Val(MyNumber) = 0 Then Exit Function

    MyNumber = Right("000" & MyNumber, 3)

    ‘ Muuntaa sadat.

    If Mid(MyNumber, 1, 1) <> "0" Then

    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

    End If

    ‘ Muuntaa kymmenet ja ykköset.

    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

    ‘ Muuntaa luvut 10-99 tekstiksi.

    Function GetTens(TensText)

    Dim Result As String

    Result = "" ' Nollataan tilapäinen funktion arvo.

    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 ' Jos arvo on alueella 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)) ' Noutaa ykköset.

    End If

    GetTens = Result

    End Function

    ‘ Muuntaa tekstiksi numerot 1:stä 9:ään.

    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. Napsauta Tiedosto ja napsauta Sulje ja palaa ohjelmaan Microsoft Excel. SpellNumber-funktio on nyt valmis käytettäväksi.

    Huomautus: Tämä funktio toimii vain avaamallasi nykyisellä Excel -tiedostolla. Jos haluat käyttää tätä funktiota toisessa Excel-työkirjassa, joudut kopioimaan ja liittämään koodin uuteen työkirjaan edellä kuvattujen vaiheiden mukaisesti.

Sivun alkuun

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

  1. Kirjoita soluun kaava =SpellNumber(arvo) soluun, jossa haluat näyttää kirjoitetun luvun, jolloin korvaat sanan arvo haluamallasi luvulla.

  2. Paina Enter-näppäintä.

    Jos esimerkiksi kirjoitat =SpellNumber(22.50), solussa näkyy teksti Twenty-Two Dollars and Fifty Cents.

    Vihje: Jos haluat muuttaa yksittäisen solun numerot tekstiksi, korvaa SpellNumberin kaavan numeerinen viittaus soluviittauksella. Kirjoita esimerkiksi =SpellNumber(A1), kun haluat näyttää solun A1 kirjoitetun arvon.

Sivun alkuun

SpellNumber-funktion työkirjan tallentaminen

Excel ei voi tallentaa makrofunktioita sisältävää työkirjaa makrottomaan työkirjan vakiomuotoon. Jos napsautat Tiedosto > Tallenna näkyviin tulee VB-projektin valintaikkuna. Valitse Ei.

Valitse VB-projektin valintaikkunassa Ei.

Voit tallentaa tiedostosi makroja käyttävänä Excel-mallina sen nykyisen muodon säilyttämiseksi.

  1. Napsauta Tiedosto > Tallenna nimellä.

  2. Napsauta avattavaa Tallennusmuoto-valikkoa ja valitse Excel Macro-Enabled Template.

    Valitse Excel-malli (makrot käytössä).
  3. Valitse Tallenna.

Sivun alkuun

Huomautus: Konekäännöksestä ilmoittava vastuusvapauslauseke: Tämä artikkeli on käännetty tietokonejärjestelmällä, eikä kieliasiantuntija ole muokannut sitä. Microsoft tarjoaa nämä konekäännökset avuksi muille kuin englantia puhuville käyttäjille, jotta he saavat lisätietoja Microsoftin tuotteista, palveluista ja tekniikoista. Koska artikkeli on koneellisesti käännetty, se saattaa sisältää sanasto-, lauseoppi- ja kielioppivirheitä.

Katso myös

TEKSTI-funktio

Kehitä 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ä.

×