Office
Pierakstīties

Skaitļu konvertēšana vārdi

Piezīme.:  Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā .

Excel 2013 un Excel 2016 nav noklusējuma funkcija, kas rāda skaitļus kā angļu valodas vārdu izklājlapu šūnā, bet to var pievienot šo iespēju, ielīmējot SpellNumber funkcijas koda moduļa lapā. Šī funkcija ļauj dolārus un cents summas pārvērstu vārdus.

Ja vēlaties izveidot skaitliskās vērtības pārvērstu par teksta formātā, neparādot tos kā vārdi, Izmantojiet funkciju TEXT, tā vietā.

Tēmas šajā rakstā

Izveidot SpellNumber funkciju, lai skaitļus konvertētu vārdi

  1. Izmantojiet taustiņu kombināciju Alt + F11, lai atvērtu Visual Basic redaktoru.

    Piezīme.: Varat arī piekļūt Visual Basic redaktoru, kurā redzama cilne Izstrādātājs lentei.

  2. Noklikšķiniet uz cilnes Ievietot , un noklikšķiniet uz modulis.

    Izvēlnē Ievietot noklikšķiniet uz modulis.
  3. Kopējiet šādas koda rindiņas.

    Piezīme.: Zināma kā makro funkcija, šādu kodu automatizē uzdevumu numurus pārvēršana par tekstu visā izklājlapā.

    Opcija precīzas

    "Galvenā funkcija

    Funkcija SpellNumber (ByVal MyNumber)

    Dim eiro centus, Temp

    Dim DecimalPlace skaits

    ReDim Place(9) kā virkne

    Place(2) = "Tūkstošu"

    Place(3) = "miljoni"

    Place(4) = "Miljardi"

    Place(5) = "triljons"

    "Virknes attēlojums summa.

    MyNumber = Trim(Str(MyNumber))

    "Decimālvietai 0, ja neviena novietojumu.

    DecimalPlace = InStr (MyNumber, ".")

    "Pārvērst centi un iestatīt MyNumber dolāru summu.

    Ja DecimalPlace > 0, tad

    Centi = GetTens (pa kreisi (Mid (MyNumber, DecimalPlace + 1) & " "00"; 2))

    MyNumber = Trim (pa kreisi (MyNumber, DecimalPlace - 1))

    Ja beigšana

    Count = 1

    Kamēr MyNumber <> ""

    Temp = GetHundreds (pa labi (MyNumber 3))

    Ja Temp <> "" tam dolāru = Temp un Place(Count) & dolāru

    Ja Len(MyNumber) > tam 3

    MyNumber = pa kreisi (MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    Ja beigšana

    Count = Count + 1

    Nepārtraukta

    Atlasiet lieta dolāru

    Lietas ""

    Eiro = "Bez dolāru"

    Lietas "Viens"

    Eiro = "Vienu dolāru"

    Gadījumā vēl

    Eiro = dolāru & "Dolāru"

    Beigu atlasiet

    Atlasiet lieta centi

    Lietas ""

    Centi = "un bez centi"

    Lietas "Viens"

    Centi = "un viens cents"

    Gadījumā vēl

    Centi = "un" & centi & "Centi"

    Beigu atlasiet

    SpellNumber = dolārus un centus

    Beigu funkcija

    "100 999 skaitli pārvērš tekstu

    Funkcija GetHundreds (ByVal MyNumber)

    Dim rezultātu kā virkne

    Ja Val(MyNumber) = 0, tad iziet funkcija

    MyNumber = pa labi ("000" & MyNumber, 3)

    "Pārvērst simtiem vietu.

    Ja Mid (MyNumber, 1, 1) <> "0"

    Rezultātu GetDigit (Mid (MyNumber 1, 1)) = & "simtus"

    Ja beigšana

    "Pārvērst desmitiem un tiem vietā.

    Ja Mid (MyNumber, 2, 1) <> "0"

    Rezultāts = rezultātu & GetTens (Mid (MyNumber, 2))

    Else

    Rezultāts = rezultātu & GetDigit (Mid (MyNumber, 3))

    Ja beigšana

    GetHundreds = rezultāts

    Beigu funkcija

    "Konvertē skaitli no 10 līdz 99 tekstu.

    Funkcija GetTens(TensText)

    Dim rezultātu kā virkne

    Rezultāts = "" ", pagaidu funkcijas vērtību Null.

    Ja Val (pa kreisi (TensText, 1)) = 1, tad "Ja vērtību no 10-19...

    Atlasiet lieta Val(TensText)

    10 lietas: Rezultāts = "Desmit"

    Gadījumā 11: Rezultāts = "Vienpadsmit"

    Gadījumā 12: Rezultāts = "Divpadsmit"

    Gadījumā 13: Rezultāts = "Trīspadsmit"

    Gadījumā 14: Rezultāts = "Četrpadsmit"

    Gadījumā 15: Rezultāts = "Piecpadsmit"

    Gadījumā 16: Rezultāts = "Sešpadsmit"

    Gadījumā 17: Rezultāts = "Septiņpadsmit"

    Gadījumā 18: Rezultāts = "Astoņpadsmit"

    Gadījumā 19: Rezultāts = "Deviņpadsmit"

    Gadījumā vēl

    Beigu atlasiet

    Vēl "Ja vērtību no 20 99...

    Atlasiet lieta Val (pa kreisi (TensText, 1))

    Gadījumā 2: Rezultāts = "Divdesmit"

    3 gadījumā: Rezultāts = "Trīsdesmit"

    Gadījumā 4: Rezultāts = "40"

    5 lietas: Rezultāts = "Piecdesmit"

    Gadījumā 6: Rezultāts = "Sešdesmit"

    Gadījumā 7: Rezultāts = "Septiņdesmit"

    Gadījumā 8: Rezultāts = "Astoņdesmit"

    Gadījumā 9: Rezultāts = "Deviņdesmit"

    Gadījumā vēl

    Beigu atlasiet

    Rezultāts = rezultāts & GetDigit _

    (Pa labi (TensText, 1)) "Izgūt tiem vietā.

    Ja beigšana

    GetTens = rezultāts

    Beigu funkcija

    "Konvertē skaitli no 1 līdz 9 par tekstu.

    Funkcija GetDigit(Digit)

    Atlasiet lieta Val(Digit)

    1. gadījumā: GetDigit = "Viens"

    2. gadījumā: GetDigit = "Divas"

    3. gadījumā: GetDigit = "Trīs"

    4. gadījumā: GetDigit = "Četri"

    5 lietas: GetDigit = "Pieci"

    Gadījumā 6: GetDigit = "Sešas"

    7 gadījumā: GetDigit = "Septiņi"

    8 gadījumā: GetDigit = "Astoņi"

    9. gadījumā: GetDigit = "Deviņi"

    Gadījumā vēl: GetDigit = ""

    Beigu atlasiet

    Beigu funkcija

  4. Ielīmējiet kodu rindas modulis1 (kods) lodziņā.

    Ielīmēta modulis1 kodu lodziņā (kods).
  5. Noklikšķiniet uz Failsun pēc tam uz Aizvērt un atgriezties programmā Microsoft Excel. Funkcijas SpellNumber tagad ir gatava lietošanai.

    Piezīme.: Šī funkcija darbojas tikai pašreizējā Excel fails ir atvērts. Lai izmantotu šo funkciju Excel citā darbgrāmatā, ir jāatkārto darbības, lai kopētu un ielīmētu kodu šajā failā.

Uz lapas sākumu

Izmantojiet funkciju SpellNumber atsevišķās šūnās

  1. Šūnā, kur vēlaties rādīt rakstītu skaitlis, aizstājot vērtību ar savu izvēli skaits ievadiet formulu = SpellNumber(vērtība).

  2. Nospiediet tastatūras taustiņu Enter.

    Piemēram, ja rakstāt =SpellNumber(22.50), šūnu jāizlasa Divdesmit divus eiro un piecdesmit centi.

    Padoms.: Skaitļus konvertēt par tekstu atsevišķā šūnā, aizstājiet skaitlisko vērtību ar šūnas atsauci formulā SpellNumber. Piemēram, ierakstiet =SpellNumber(A1) , lai parādītu rakstītu šūnas A1 vērtību.

Uz lapas sākumu

Saglabājiet darbgrāmatu SpellNumber funkcija

Excel nevar saglabāt darbgrāmatu ar makro funkcijas standarta bez makro darbgrāmatas formātā. Ja noklikšķināsit uz Fails > saglabāt. Tiek atvērts dialoglodziņš Fotoalbuma projektu . Noklikšķiniet uz .

Fotoalbuma projekta dialoglodziņā noklikšķiniet uz Nē.

Failu var saglabāt kā Excel veidne ar makro saglabāt failu tā pašreizējā formātā.

  1. Noklikšķiniet uz Fails un Saglabāt kā.

  2. Noklikšķiniet uz Saglabāt kā tipu nolaižamās izvēlnes un atlasiet Excel Macro-Enabled Template.

    Izvēlieties Excel veidne ar makro.
  3. Noklikšķiniet uz Saglabāt.

Uz lapas sākumu

Skatiet arī

Funkcija TEXT

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×