Számok átalakítása szavakká

Fontos: Ez a cikk gépi fordítással lett lefordítva, lásd a jognyilatkozatot. A cikk angol változatát itt találhatja meg.

Excel 2013 és Excel 2016 nem rendelkezik egy alapértelmezett függvény, amely a számokat a számolótábla cellában angol szavak jeleníti meg, de a SpellNumber függvény kód beillesztése egy modullapra ezt a funkciót is hozzáadhat. A függvény lehetővé teszi a tizedes törtet cent összegek átalakítása szavakat.

Ha szövegformátumban numerikus értékek alakítja anélkül, hogy inkább megjelenítés, a szavakat, a szöveg függvényt használhatja .

Tartalom

A SpellNumber függvény létrehozása számok szavakká alakításához

  1. Az Alt + F11 billentyűkombinációt lenyomva nyissa meg a Visual Basic Editor.

    Megjegyzés: A Visual Basic Editor által a Fejlesztőeszközök lap megjelenítése a menüszalagon is elérheti.

  2. Kattintson a Beszúrás fülre, és válassza a Modul parancsot.

    A Beszúrás menüben kattintson a Modul lehetőségre.
  3. Másolja az alábbi kódsorokat.

    Megjegyzés: Ez a makrófüggvény néven ismert kód az egész számolótáblában automatizálja a számok szöveggé alakítását.

    Option Explicit

    'Main Function

    Function SpellNumber(ByVal MyNumber)

    Dim Dollars, Cents, Temp

    Dim DecimalPlace, Count

    ReDim Place(9) As String

    Place(2) = " ezer "

    Place(3) = " millió "

    Place(4) = " billió "

    Place(5) = " trillió "

    ' Összeg karakterlánc-ábrázolása.

    MyNumber = Trim(Str(MyNumber))

    ' Ha nincs, akkor a tizedesjegy helye 0.

    DecimalPlace = InStr(MyNumber, "-")

    ' Centek átváltása, és a MyNumber érték dollárértékként való beállítása.

    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

    ' Egy 100 és 999 közti számot szöveggé alakít

    Function GetHundreds(ByVal MyNumber)

    Dim eredmény karakterláncként

    If Val(MyNumber) = 0 Then Exit Function

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

    ' Átalakítja a százas pozíciót.

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

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

    End If

    ' Átalakítja a tízes és az egyes pozíciót.

    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

    ' Egy 10 és 99 közti számot szöveggé alakít.

    Function GetTens(TensText)

    Dim eredmény karakterláncként

    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

    ' Egy 1 és 9 közti számot szöveggé alakít.

    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. Illessze be a kódsorokat a Modul1 (kód) mezőbe.

    A Modul1 (kód) mezőbe beillesztett kód.
  5. Kattintson a Fájl, majd a Bezárás és visszatérés a Microsoft Excelbe elemre. A SpellNumber függvény használatra kész.

    Megjegyzés: A függvény csak az éppen megnyitott Excel-fájlban működik. Ha másik Excel-munkafüzetben használná, abba a fájlba is be kell másolni a kódokat.

Vissza a lap tetejére

A SpellNumber függvény használata egyes cellákban

  1. Írja be a =SpellNumber(érték) képletet abba a cellába, amelyben a szöveges formájú számot megjelenítené. Az érték helyett egy tetszőleges számot adjon meg.

  2. Nyomja le a billentyűzet Enter billentyűjét.

    Ha például a =SpellNumber(22.50) képletet írja be, a cellában a Huszonkettő dollár és ötven cent szöveg kell hogy megjelenjen.

    Tipp: Ha egy másik cellában szeretne számokat szöveggé alakítani, a SpellNumber képletben cserélje a számértéket cellahivatkozásra. Ha például az A1 cella szöveges formátumú értékét szeretné eredményül kapni, a =SpellNumber(A1) képletet használja.

Vissza a lap tetejére

A SpellNumber függvényt tartalmazó munkafüzet mentése

Az Excel nem képes makrófüggvényeket tartalmazó munkafüzetet menteni a szokványos makrómentes munkafüzet-formátumban. Kattintson a Fájl > Mentés parancsra. Megnyílik a VB-projekt párbeszédpanel. Kattintson a Nem gombra.

A VB-projekt párbeszédpanelben kattintson a Nem lehetőségre.

A fájlt Makróbarát Excel-sablon formában mentheti, így megtartja fájl formátumát.

  1. Kattintson a Fájl > Mentés másként parancsra.

  2. Kattintással nyissa meg a Fájltípus legördülő menüt, és válassza a Excel Macro-Enabled Template lehetőséget.

    Válasszon ki egy makróbarát Excel-sablont.
  3. Kattintson a Mentés gombra.

Vissza a lap tetejére

Megjegyzés: Gépi fordítás jognyilatkozata: Ez a cikk számítógép által, emberi közreműködés nélkül lett lefordítva. A Microsoft ezeket a gépi fordításokat azért nyújtja, hogy az angol nyelvet nem beszélők minél több tartalomhoz tudjanak hozzáférni a Microsoft termékeivel, szolgáltatásaival és technológiáival kapcsolatban. A gépi fordítás miatt előfordulhat, hogy a szöveg szóhasználati, szintaktikai vagy helyesírási hibákat tartalmaz.

Lásd még

SZÖVEG függvény

Ismeretek bővítése
Oktatóanyagok megismerése
Új szolgáltatások listájának lekérése
Részvétel az Office Insider programban

Hasznos volt az információ?

Köszönjük a visszajelzését!

Köszönjük visszajelzését. Jobbnak látjuk, ha az Office egyik támogatási szakemberéhez irányítjuk.

×