Як перетворити числове значення в англійське слово?

Office Software Excel пропонує користувачам можливість виконувати різні операції над даними в полях електронної таблиці. Функцію, визначену користувачем, можна використовувати для перетворення числового значення в англійське слово . Деякі знання концепцій програмування, таких як функції та технології циклу, допоможуть зрозуміти та записати функції, але це не є необхідним. Є багато ресурсів, доступних в Інтернеті, де функції, які можуть бути використані для перетворення числового значення в англійське слово, можна завантажити і включити в робочі таблиці Excel безкоштовно.

Щоб перетворити числове значення в англійське слово, наведемо формулу, яка вам потрібна :

Це пост з форуму, завдяки rajput391

Нижче ви знайдете код для введення в аркуші Excel:

1. Натисніть Alt + F11> копіювати і паштувати в модулі (якщо модуль не показує модуль вставки, натисніть кнопку вставки в рядку меню> Модуль)

2. Alt + Q Збереження коду та повернення до таблиці Excel

3. Вставте> function> user defined> A1 або відповідну клітинку

 Функціональні слова (рис, необов'язкова точка = "точка") як рядок Дим цифра (14) Як ціле число альфа = масив ("", "Один", "Два", "Три", "Чотири", "П'ять", "Шість" ", " Сім ", " вісімка ", " дев'ять ", " десять ", " одинадцять ", " дванадцять ", " тринадцять ", " чотирнадцять ", " п'ятнадцять ", " шістнадцять ", " сімнадцять ", " вісімнадцять ", "Дев'ятнадцять", "Двадцять", "Тридцять", "Сорок", "П'ятдесят", "Шістдесят", "Сімдесят", "Вісімдесят", "Дев'яносто") figi = Trim (StrReverse (Str (Int (Abs (fig)) )))) Для i = 1 До Len (figi) цифра (i) = Mid (figi, i, 1) Далі Для i = 2 To Len (figi) Крок 3 Якщо цифра (i) = 1 Тоді цифра (i) = цифра (i - 1) + 10: цифра (i - 1) = 0 Ще: якщо цифра (i)> 1, то цифра (i) = цифра (i) + 18 Кінець, якщо наступний для i = 1 до Len (рис. ) Якщо (i Mod 3) = 0 І цифра (i)> 0 Тоді слова = "сто" і слова If (i Mod 3) = 1 І цифра (i) + цифра (i + 1) + цифра (i + 2) )> 0 Тоді _ words = Вибрати (i / 3, "тисяча", "мільйон", "мільярд") і слова words = Trim (альфа (цифра (i)) & слов) Next (далі) Якщо fig Int (рис. ) Тоді figc = StrReverse (figi) Якщо figc = 0 Тоді figc = "" figd = Trim (WorksheetFunction.Su) bstitute (Str (Abs (fig)), figc & ".", "")) words = Trim (слова & "" & point) Для i = 1 До Len (figd) Якщо Val (Mid (figd, i, 1 ))> 0 Тоді слова = слова & "" & alpha (Mid (figd, i, 1)) Ще: слова = слова & "Zero" End Якщо Next End Якщо If fig <0 Тоді words = "Negative" & words End Функція