Jak przekonwertować wartość liczbową do angielskich słów w programie Excel

Zakończono świadczenie pomocy technicznej dla pakietu Office 2003

Firma Microsoft zakończyła świadczenie pomocy technicznej dla pakietu Office 2003 8 kwietnia 2014. Ta zmiana wpłynęła na Twoje aktualizacje oprogramowania i opcje zabezpieczeń. Dowiedz się, co to oznacza dla Ciebie i jak zapewnić sobie kontynuację ochrony.

WAŻNE: Ten artykuł został przetłumaczony przy użyciu oprogramowania firmy Microsoft do tłumaczenia maszynowego i może być poprawiony przy użyciu technologii Community Translation Framework (CTF). Firma Microsoft udostępnia artykuły tłumaczone maszynowo, poprawione przez społeczność, a także tłumaczone przez tłumaczy profesjonalnych, aby zapewnić dostęp do wszystkich artykułów w bazie wiedzy w wielu językach. Artykuły tłumaczone maszynowo i poprawione mogą zawierać błędy pisowni, składniowe i gramatyczne. Firma Microsoft nie ponosi odpowiedzialności za żadne nieścisłości, błędy ani szkody spowodowane przez niepoprawne tłumaczenia zawartości ani przez korzystanie z niej przez klientów. Więcej o strukturze CTF: http://support.microsoft.com/gp/machine-translation-corrections/pl.

Anglojęzyczna wersja tego artykułu to: 213360
Streszczenie
Ten artykuł zawiera przykładowy języka Microsoft Visual Basic dla Applicationsfunctions, który służy do konwersji wartości numerycznych w komórce arkusza programu Microsoft Excel na jej odpowiednik w angielskich słów.
Więcej informacji
Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura. Nie będą jednak modyfikować tych przykładów ani dodawać żadnych funkcji i konstruować nowych procedur w celu zaspokojenia określonych potrzeb.

Jak utworzyć próbki funkcja o nazwie SpellNumber

  1. Uruchom program Microsoft Excel.
  2. Naciśnij klawisze ALT + F11, aby uruchomić Edytor Visual Basic.
  3. W menu Wstaw kliknij polecenie Moduł.
  4. Wpisz następujący kod do arkusza modułu.
    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 używać funkcji próbki SpellNumber

Aby użyć funkcji próbki, aby zmienić numer na pisany tekst, użyj jednej z metod pokazano w poniższych przykładach:

Metoda 1: Funkcja bezpośredniego wprowadzania

32,50 można zmienić na "Trzydziestu dwóch złotych i pięćdziesiąt centów", wpisując następującą formułę w komórce:
=SpellNumber(32.50)

Metoda 2: Odwołanie do komórki

Może odnosić się do innych komórek w tym skoroszycie. Na przykład wprowadź numer 32,50 w komórce A1, a następnie wpisz następującą formułę do innej komórki:
=SpellNumber(a1)

Metoda 3: Wstawianie funkcji

Aby użyć Funkcji Wstaw, wykonaj następujące kroki:


Programu Excel 2003:
  1. Zaznacz komórkę, którą chcesz.
  2. Na pasku narzędzi Standardowy kliknij przycisk Wstaw funkcję .
  3. W polu lub wybierz kategoriękliknij Zdefiniowane przez użytkownika.
  4. Na liście Wybierz funkcję kliknij SpellNumber, a następnie kliknij przycisk OK.
  5. Wprowadź numer lub odwołanie do komórki, które chcesz, a następnie kliknij przycisk OK.

Program Excel 2007 i 2010:
  1. Zaznacz komórkę, którą chcesz.
  2. Kliknij przyciskWstaw funkcjęna wstążceformuły .
  3. W polulub wybierz kategoriękliknijZdefiniowane przez użytkownika.
  4. Na liścieWybierz funkcjękliknijSpellNumber, a następnie kliknij przyciskOK.
  5. Wprowadź numer lub odwołanie do komórki, które chcesz, a następnie kliknij przyciskOK.



Spell XL2003 XL2007 XL2010 numer numery waluty

Ostrzeżenie: ten artykuł przetłumaczono automatycznie

속성

문서 ID: 213360 - 마지막 검토: 09/23/2015 16:53:00 - 수정: 1.0

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

  • kbdtacode kbhowto kbprogramming kbmt KB213360 KbMtpl
피드백