Zaloguj się przy użyciu konta Microsoft
Zaloguj się lub utwórz konto.
Witaj,
Wybierz inne konto.
Masz wiele kont
Wybierz konto, za pomocą którego chcesz się zalogować.

Uwaga: Staramy się udostępniać najnowszą zawartość Pomocy w Twoim języku tak szybko, jak to możliwe. Ta strona została przetłumaczona automatycznie i może zawierać błędy gramatyczne lub nieścisłości. Chcemy, aby ta zawartość była dla Ciebie przydatna. Prosimy o powiadomienie nas, czy te informacje były pomocne, u dołu tej strony. Oto angielskojęzyczny artykuł do wglądu.

Program Excel nie ma funkcji domyślnych, która wyświetla liczby jako wyrazów angielskich w arkuszu, ale można dodać tę funkcję wklejając poniższy kod funkcji SpellNumber w module VBA (Visual Basic for Applications). Ta funkcja pozwala przekonwertować kwota i procent sumy wyrazów przy użyciu formuły, aby czytać 22.50 jako dwadzieścia dwa złotych i pięćdziesiąt groszy. Może to być bardzo przydatne, jeśli korzystasz z programu Excel jako szablonu do wydrukowania kontroli.

Aby przekonwertować wartości liczbowe na format tekstu bez wyświetlania ich jako słowa, należy użyć funkcji tekst .

Uwaga: Firma Microsoft udostępnia przykłady programowania dla ilustracji, bez jakichkolwiek gwarancji ani pośredni. Zawiera, ale nie jest ograniczone do dorozumianych gwarancji przydatności handlowej lub do określonego celu. W tym artykule założono, że zaznajomieni z językiem programowania języka VBA i narzędzia, które są używane do tworzenia i debugowania procedur. Pracownicy pomocy technicznej firmy Microsoft można łatwiej wyjaśnić funkcję konkretnej procedury. Nie będą jednak modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu dostosowania do określonych potrzeb użytkownika.

Utwórz funkcję SpellNumber, aby przekonwertować liczby wyrazów

  1. Za pomocą skrótu klawiaturowego Alt + F11 , aby otworzyć Edytor Visual Basic (VBE).

    Uwaga: Można także przejść edytora Visual Basic, wyświetlając kartę Deweloper na wstążce programu.

  2. Kliknij kartę Wstawianie, a następnie kliknij polecenie Module.

    W menu Wstaw kliknij polecenie Module.

  3. Skopiuj następujące wiersze kodu.

    Uwaga: Znany jako Funkcji zdefiniowane przez użytkownika (UDF), kod zautomatyzowanie zadań konwersji liczb do tekstu w całym arkuszu.

    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. Wklej wiersze kodu do Module1 (kod) pola.

    Kod wklejony w module Module1 w polu (kod).

  5. Naciśnij klawisze Alt + Q aby powrócić do programu Excel. Funkcja SpellNumber jest teraz gotowy do użycia.

    Uwaga: Ta funkcja działa tylko dla bieżącego skoroszytu. Aby użyć tej funkcji w innym skoroszycie, należy powtórzyć kroki, aby skopiować i wkleić kod w tym skoroszycie.

Początek strony

Należy użyć funkcji SpellNumber w poszczególnych komórkach

  1. Wpisać formuły = SpellNumber (A1) w komórce miejsce, w którym mają być wyświetlane numeru, gdzie A1 to komórka zawierająca wartość chcesz przekonwertować. Można też ręcznie wpisać wartość jak = SpellNumber(22.50).

  2. Naciśnij klawisz Enter, aby potwierdzić formułę.

Początek strony

Zapisz swój skoroszyt funkcji SpellNumber

Program Excel nie można zapisać skoroszytu przy użyciu funkcji makr w formacie standardowy skoroszyt z obsługą makr (xlsx). Jeśli klikniesz pozycję plik > Zapisz. Zostanie otwarte okno dialogowe Projekt VB. Kliknij przycisk nie.

W oknie dialogowym projektu VB kliknij przycisk nie.

Możesz zapisać plik jako Skoroszyt programu Excel (xlsm), aby zachować plik w bieżącym formacie.

  1. Kliknij pozycję Plik > Zapisz jako.

  2. Kliknij menu rozwijane Zapisz jako typ, a następnie wybierz pozycję Skoroszyt programu Excel.

  3. Kliknij przycisk Zapisz.

Początek strony

TEKST

Facebook LinkedIn Adres e-mail

Potrzebujesz dalszej pomocy?

Chcesz uzyskać więcej opcji?

Odkryj Społeczność

Poznaj korzyści z subskrypcji, przeglądaj kursy szkoleniowe, dowiedz się, jak zabezpieczyć urządzenie i nie tylko.

Korzyści z subskrypcji platformy Microsoft 365

Szkolenia dotyczące platformy Microsoft 365

Rozwiązania dotyczące zabezpieczeń firmy Microsoft

Centrum ułatwień dostępu

Społeczności pomagają zadawać i odpowiadać na pytania, przekazywać opinie i słuchać ekspertów z bogatą wiedzą.

Zapytaj społeczność firmy Microsoft

Społeczność techniczna firmy Microsoft

Niejawny program testów systemu Windows

Microsoft 365 Insiders

Czy te informacje były pomocne?

Jaka jest jakość języka?
Co wpłynęło na Twoje wrażenia?

Dziękujemy za opinię!

×