Перетворення числове значення в Англійська слова у програмі Excel.

Підтримку Office 2003 припинено

8 квітня 2014 р. корпорація Майкрософт припинила підтримку Office 2003. Це позначилося на оновленнях програмного забезпечення та параметрах безпеки. Дізнайтеся, що це означає для вас і яких заходів безпеки необхідно вжити.

ВАЖЛИВО! Ця стаття перекладена засобами машинного перекладу Microsoft. Статтю можна редагувати в середовищі Community Translation Framework (CTF). Щоб якомога швидше перекласти всі статті у своїй базі знань різними мовами, компанія Microsoft не лише звертається до професійних перекладачів, але й вдається до машинного перекладу, який потім редагується спільнотою. Такі статті можуть містити лексичні, синтаксичні та граматичні помилки. Microsoft не несе відповідальності за будь-які неточності, помилки або збитки, до яких може призвести неправильний переклад статей або їх використання. Докладніше про CTF див. на веб-сторінці http://support.microsoft.com/gp/machine-translation-corrections/uk-ua.

Клацніть тут, щоб переглянути цю статтю англійською мовою: 213360
Підсумки
Ця стаття містить зразки Microsoft Visual Basic, для Applicationsfunctions, які можна використовувати для перетворення еквівалент в Англійська числове значення у клітинку аркуша Microsoft Excel.
Додаткові відомості
корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники представник служби підтримки клієнтів корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури. Проте вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.

Створення зразка функція під назвою SpellNumber.

  1. Запустіть програму Microsoft Excel.
  2. Натисніть сполучення клавіш ALT + F11, щоб запустити редактор Visual Basic.
  3. У меню Вставлення команду " модуль".
  4. У вікні модуля введіть такий код.
    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					

сценарій виконання функції SpellNumber зразка

Щоб змінити номер написаний текст за допомогою зразках функцій, скористайтеся одним із наведених способів, в наведених нижче прикладах.

Спосіб 1: Прямого запису.

32.50 можна змінити на "30 двох доларів і 50 центів", введіть таку формулу у клітинці:
=SpellNumber(32.50)

Спосіб 2: Посилання

Зверніться до решти клітинок книги. Наприклад, введіть номер 32.50, у клітинці A1 та іншу клітинку введіть таку формулу:
=SpellNumber(a1)

Спосіб 3: запит на додавання функції

Щоб скористатися перевагою Функцією, вставте, виконайте такі дії:


Excel 2003:
  1. Виділіть клітинки, які потрібно.
  2. Натисніть кнопку " Вставка функції " на стандартній панелі інструментів.
  3. У розділі або виберіть категоріюнатисніть кнопку Визначені користувачем.
  4. У списку Виберіть функцію виберіть SpellNumberі натисніть кнопку OK.
  5. Введіть номер або клітинки посилання потрібні і натисніть кнопку OK.

Excel 2007 і 2010:
  1. Виділіть клітинки, які потрібно.
  2. Натисніть кнопку "Вставка функції" на стрічціформули .
  3. У розділіабо виберіть категоріюнатисніть кнопкуВизначені користувачем.
  4. У спискуВиберіть функціювиберітьSpellNumberі натисніть кнопкуOK.
  5. Введіть номер або клітинки посилання потрібні і натисніть кнопкуOK.



Перевірка на XL2003 XL2007 XL2010 номер номери грошова одиниця

Попередження. Цю статтю переведено автоматично

Властивості

Ідентифікатор статті: 213360 – останній перегляд: 09/23/2015 18:35:00 – виправлення: 1.0

Microsoft Office Excel 2003, Microsoft Office Excel 2007 - Українська версія, Microsoft Excel 2010, Excel 2016, Microsoft Excel 2013

  • kbdtacode kbhowto kbprogramming kbmt KB213360 KbMtuk
Зворотний зв’язок