Conversia numerelor în cuvinte

Important : Acest articol este tradus automat, consultați exonerarea de răspundere. Versiunea în limba engleză a acestui articol se poate găsi aici pentru referință.

Excel 2013 și Excel 2016 nu au o funcție implicit care afișează numerele ca cuvinte din limba engleză într-o celulă de foaie de calcul, dar puteți să adăugați această capacitate, lipiți codul de funcția SpellNumber într-o foaie de modul. Această funcție vă permite să converti leii și sută volume cuvinte.

Dacă doriți să efectuați conversia valorilor numerice în format text fără a le afișați ca cuvinte, utilizați funcția TEXT în schimb.

În acest articol

Crearea funcția SpellNumber pentru a efectua conversia numerelor de cuvinte

  1. Utilizați comanda rapidă de la tastatură, Alt + F11 pentru a deschide Visual Basic Editor.

    Notă : Puteți accesa Visual Basic Editor, afișând fila dezvoltator în panglică.

  2. Faceți clic pe fila Inserare și faceți clic pe modul.

    În meniul Inserare, faceți clic pe modul.
  3. Copiați următoarele linii de cod.

    Notă : Denumit unei funcții macrocomenzi, acest cod automat activitatea de conversia numerelor la text în toată foaia de calcul.

    Opțiunea explicită

    ' Funcția principală

    Funcția SpellNumber (ByVal MyNumber)

    Dim lei, bani, Temp

    Dim DecimalPlace, Count

    ReDim Place(9) ca șir

    Place(2) = "Mii"

    Place(3) = "milioane"

    Place(4) = "Miliarde"

    Place(5) = "miliarde"

    ' Șir reprezentare a sumă.

    MyNumber = Trim(Str(MyNumber))

    ' Poziție zecimală 0 dacă fără.

    DecimalPlace = InStr (MyNumber, ".")

    ' Conversia bani și setați MyNumber la Dolar sumă.

    Dacă DecimalPlace > 0 apoi

    Bani = GetTens (la stânga (Mid (MyNumber, DecimalPlace + 1) & _ "00", 2))

    MyNumber = Trim (la stânga (MyNumber, DecimalPlace - 1))

    Terminarea dacă

    Count = 1

    În timp ce MyNumber <> ""

    Temp = GetHundreds (dreapta (MyNumber, 3))

    Dacă Temp <> "" apoi dolari = Temp & Place(Count) & dolari

    Dacă Len(MyNumber) > 3 apoi

    MyNumber = Left (MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    Terminarea dacă

    Count = numărul + 1

    Buclă

    Selectați dolari majuscule/minuscule

    Caz ""

    Dolari = "Fără lei"

    Caz "Unu"

    Dolari = "Un dolar"

    Caz mai

    Dolari = dolari & "Lei"

    Selectați terminare

    Selectați bani majuscule/minuscule

    Caz ""

    Bani = "și nu banii"

    Caz "Unu"

    Bani = "și o sută"

    Caz mai

    Bani = "și" & bani & "Bani"

    Selectați terminare

    SpellNumber = dolari & bani

    Funcția sfârșit

    ' Efectuează conversia unui număr din 100-999 în text

    Funcția GetHundreds (ByVal MyNumber)

    Rezultat: "dim" ca șir

    Dacă Val(MyNumber) = 0 ieșire apoi funcția

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

    ' Conversie sute plasați.

    Dacă Mid (MyNumber, 1, 1) <> "0" apoi

    Rezultatul = GetDigit (Mid (MyNumber, 1, 1)) & "sute"

    Terminarea dacă

    "Conversia în locul zeci și altele.

    Dacă Mid (MyNumber, 2, 1) <> "0" apoi

    Rezultatul = rezultatul & GetTens (Mid (MyNumber, 2))

    Else

    Rezultatul = rezultatul & GetDigit (Mid (MyNumber, 3))

    Terminarea dacă

    GetHundreds = rezultatul

    Funcția sfârșit

    ' Efectuează conversia unui număr de la 10 la 99 în text.

    Funcția GetTens(TensText)

    Rezultat: "dim" ca șir

    Rezultatul = "" ' Null, valoarea funcției temporară.

    Dacă Val (la stânga (TensText, 1)) = 1, apoi "dacă valoarea între 10-19...

    Selectați Val(TensText) majuscule/minuscule

    Caz 10: Rezultat = "Zece"

    Caz 11: Rezultat = "11"

    Caz 12: Rezultat = "Doisprezece"

    Caz 13: Rezultat = "Treisprezece"

    Caz 14: Rezultat = "14"

    Caz 15: Rezultat = "Cincisprezece"

    Caz 16: Rezultat = "16 ani"

    Caz 17: Rezultat = "17 ani"

    Caz 18: Rezultat = "18 ani"

    Caz 19: Rezultat = "19 ani"

    Caz mai

    Selectați terminare

    Mai ' dacă valoarea între 20-99...

    Selectați caz Val (la stânga (TensText, 1))

    Caz 2: Rezultat = "Douăzeci de ani"

    Caz 3: Rezultat = "Treizeci"

    Caz 4: Rezultat = "Patruzeci"

    Caz 5: Rezultat = "Cincizeci"

    Caz 6: Rezultat = "60"

    Caz 7: Rezultat = "Şaptezeci"

    Caz 8: Rezultat = "Optzeci"

    Caz 9: Rezultat = "Nouăzeci"

    Caz mai

    Selectați terminare

    Rezultatul = rezultatul & GetDigit _

    (Dreapta (TensText, 1)) ' Regăsi cele locală.

    Terminarea dacă

    GetTens = rezultatul

    Funcția sfârșit

    ' Efectuează conversia unui număr de la 1 la 9 în text.

    Funcția GetDigit(Digit)

    Selectați Val(Digit) majuscule/minuscule

    Caz 1: GetDigit = "Unu"

    Caz 2: GetDigit = "Două"

    Caz 3: GetDigit = "Trei"

    Caz 4: GetDigit = "Patru"

    Caz 5: GetDigit = "Cinci"

    Caz 6: GetDigit = "Șase"

    Caz 7: GetDigit = "Șapte"

    Caz 8: GetDigit = "Opt"

    Caz 9: GetDigit = "Nouă"

    Caz mai: GetDigit = ""

    Selectați terminare

    Funcția sfârșit

  4. Lipiți linii de cod în modul1 (cod) caseta.

    Cod lipită în modul1 caseta (cod).
  5. Faceți clic pe fișierși faceți clic pe închidere și revenire în Microsoft Excel. Funcția SpellNumber acum este gata de utilizare.

    Notă : Această funcție funcționează numai pentru fișierul curent Excel le aveți deschise. Pentru a utiliza această funcție în alt registru de lucru Excel , trebuie să Repetați pașii pentru a copia și lipi codul din acel fișier.

Începutul paginii

Utilizați funcția SpellNumber în celule individuale

  1. Tastați formula = SpellNumber(valoare) în celula unde doriți să afișați un număr scris, înlocuind valoarea cu numărul de alegere.

  2. Pe tastatură, apăsați pe Enter.

    De exemplu, dacă tastați =SpellNumber(22.50), celula ar trebui să citească Douăzeci și două lei și 50 de bani.

    Sfat : Pentru a efectua conversia numerelor la text într-o celulă separată, înlocuiți valoarea numerică cu o referință de celulă din formulă SpellNumber. De exemplu, tastați =SpellNumber(A1) pentru a afișa scrise valoarea din celula A1.

Începutul paginii

Salvați registrul de lucru funcția SpellNumber

Excel nu puteți salva un registru de lucru cu funcții macrocomenzi în formatul standard macrocomenzi registru de lucru. Dacă faceți clic pe fișier > Salvare. Se deschide o casetă de dialog VB proiect . Faceți clic pe nu.

În caseta de dialog VB project, faceți clic pe nu.

Puteți salva fișierul ca un Șablon Excel cu macrocomenzi pentru a păstra fișierul în formatul său curent.

  1. Faceți clic pe Fișier > Salvare ca.

  2. Faceți clic pe meniul vertical tip fișier și selectați Excel Macro-Enabled Template.

    Alegeți șablon Excel activat pentru macrocomenzi.
  3. Faceți clic pe Salvare.

Începutul paginii

Notă : Exonerare de răspundere pentru traducere automată: Acest articol a fost tradus de un sistem computerizat, fără intervenție umană. Microsoft oferă aceste traduceri automate pentru a ajuta utilizatorii vorbitori de alte limbi decât engleza să beneficieze de conținutul despre produsele, serviciile și tehnologiile Microsoft. Pentru că articolul a fost tradus de un computer, poate conține erori de vocabular, sintaxă sau gramatică.

Consultați și

Funcția TEXT

Extindeți-vă competențele
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×