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ā.

Programmā Excel nav noklusējuma funkcija, kas rāda skaitļus kā angļu valodas vārdu darblapā, bet to var pievienot šo iespēju, ielīmējot šādu SpellNumber funkcija kodu VBA (Visual Basic for Applications) modulis. Šī funkcija ļauj dolārus un cents summas pārvērstu vārdus ar formulu, lai 22,50 varētu lasīt kā divdesmit divus eiro un piecdesmit centi. Tas var būt ļoti noderīgs, ja izmantojat Excel kā veidni, lai drukātu pārbaudes.

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

Piezīme.: Microsoft nodrošina programmēšanas piemēri ilustrācija, tikai bez garantijām vai izteikta netiešās. Tas ietver, bet neaprobežojoties, ne netiešu garantiju par pieprasījumu, vai atbilstību noteiktam mērķim. Šajā rakstā ir pieņemts, ka jums ir pazīstami ar VBA programmēšanas valodu un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdošanas procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot konkrētu procedūru funkcionalitāti. Tomēr tās nevar modificēt šos piemērus, lai norādītu pievienotās funkcionalitāti, vai izveidotu procedūras, kas atbilstu īpašām prasībām.

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

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

    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ā Lietotāja definētas funkcijas (UDF), šādu kodu automatizē uzdevumu numurus pārvēršana par tekstu visā darblapā.

    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. Ielīmējiet kodu rindas modulis1 (kods) lodziņā.

    Ielīmēta modulis1 kodu lodziņā (kods).
  5. Nospiediet taustiņu kombināciju Alt + Q atgriezt programmā Excel. Funkcijas SpellNumber tagad ir gatava lietošanai.

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

Uz lapas sākumu

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

  1. Ierakstiet formulu = SpellNumber(A1) šūnā, kurā vēlaties rādīt rakstītu numuru, kur A1 ir šūnu, kurā ir skaitlis vēlaties pārvērst. Varat arī manuāli ievadīt vērtību kā = SpellNumber(22.50).

  2. Nospiediet taustiņu Enter , lai apstiprinātu formulu.

Uz lapas sākumu

Saglabājiet darbgrāmatu SpellNumber funkcija

Programma Excel nevar saglabāt darbgrāmatu ar makro funkcijas standarta bez makro darbgrāmatas formātā (. xlsx). 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 darbgrāmatu (. xlsm) lai saglabātu failu 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 darbgrāmatu.

  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.

×