Převedení číselné hodnoty do anglických slov v aplikaci Excel

Podpora Office 2003 byla ukončena.

Společnost Microsoft ukončila dne 8. dubna 2014 podporu Office 2003. Tato změna ovlivnila aktualizace softwaru a možnosti zabezpečení. Další informace o tom, co to pro vás znamená a jak zajistit ochranu

DŮLEŽITÉ: Tento článek je přeložen pomocí softwaru na strojový překlad Microsoft. Nepřesný či chybný překlad lze opravit prostřednictvím technologie Community Translation Framework (CTF). Microsoft nabízí strojově přeložené, komunitou dodatečně upravované články, a články přeložené lidmi s cílem zajistit přístup ke všem článkům v naší znalostní bázi ve více jazycích. Strojově přeložené a dodatečně upravované články mohou obsahovat chyby ve slovníku, syntaxi a gramatice. Společnost Microsoft není odpovědná za jakékoliv nepřesnosti, chyby nebo škody způsobené nesprávným překladem obsahu nebo jeho použitím našimi zákazníky. Více o CTF naleznete na http://support.microsoft.com/gp/machine-translation-corrections/cs.

Projděte si také anglickou verzi článku: 213360
Souhrn
Tento článek obsahuje ukázkový Microsoft Visual Basic pro Applicationsfunctions, který slouží k převodu číselné hodnoty v buňce listu aplikace Microsoft Excel do ekvivalentu v anglických slov.
Další informace
Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo odvozené. To zahrnuje, ale není omezen pouze na předpokládané záruky obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu. Nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků.

Jak vytvořit ukázková funkce volané SpellNumber

  1. Spuštění aplikace Microsoft Excel.
  2. Stiskněte ALT + F11 spusťte Editor jazyka Visual Basic.
  3. V nabídce Vložit klepněte na modul.
  4. Do listu modulu zadejte následující kód.
    Option Explicit'Main FunctionFunction 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 & CentsEnd 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 = ResultEnd 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 = ResultEnd 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 SelectEnd Function					

Jak používat Ukázková funkce SpellNumber

Ukázková funkce lze použít ke změně čísla na psaný text, použijte jednu z metod, uvedeno v následujících příkladech:

Metoda 1: Přímý vstup

32.50 do "Třicet dva korun a padesát haléřů" můžete změnit tak, že zadáte do buňky následující vzorec:
=SpellNumber(32.50)

Metoda 2: Odkaz na buňku

Můžete odkazovat na jiné buňky v sešitu. Například do buňky A1 zadejte číslo 32.50 a do jiné buňky zadejte následující vzorec:
=SpellNumber(a1)

Metoda 3: Vložit funkci

Vložit funkcipoužít, postupujte takto:


Aplikace Excel 2003:
  1. Vyberte buňky, které chcete.
  2. Na panelu nástrojů Standardní klepněte na tlačítko Vložit funkci .
  3. V části nebo vyberte kategoriiklepněte na tlačítko Vlastní.
  4. V seznamu Vybrat funkci klepněte na tlačítko SpellNumbera potom klepněte na tlačítko OK.
  5. Číslo nebo odkaz na buňku, kterou chcete zadat a potom klepněte na tlačítko OK.

Aplikace Excel 2007 a 2010:
  1. Vyberte buňky, které chcete.
  2. Na pásuvzorců klepněte na tlačítkoVložit funkci.
  3. V částinebo vyberte kategoriiklepněte na tlačítkoVlastní.
  4. V seznamuVybrat funkciklepněte na tlačítkoSpellNumbera potom klepněte na tlačítkoOK.
  5. Číslo nebo odkaz na buňku, kterou chcete zadat a potom klepněte na tlačítkoOK.



Pravopisu xl2003 XL2007 XL2010 číslo čísla měny

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 213360 - Poslední kontrola: 09/23/2015 06:00:00 - Revize: 12.0

Microsoft Office Excel 2003, Microsoft Office Excel 2007, Microsoft Excel 2010, Excel 2016, Microsoft Excel 2013

  • kbdtacode kbhowto kbprogramming kbmt KB213360 KbMtcs
Váš názor