Как преобразовать числовое значение в английское слово?

Office Software Excel предлагает пользователям возможность выполнять различные операции с данными в полях электронной таблицы. Пользовательскую функцию можно использовать для преобразования числового значения в английское слово . Некоторое знание концепций программирования, таких как функции и методы зацикливания, поможет понять и написать функции, но не является обязательным. В Интернете доступно множество ресурсов, где можно бесплатно загрузить функции, которые можно использовать для преобразования числового значения в английское слово, и включить их в рабочие листы Excel.

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

Это сообщение с форума, спасибо rajput391

Ниже вы найдете код для ввода в свой лист Excel:

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

2. Alt + Q Сохранить код и вернуться на лист Excel

3. Вставьте> функцию> определенную пользователем> A1 или соответствующую ячейку

 Функциональные слова (рис., Необязательная точка = "Точка") Как цифра String Dim (14) Как Целое число alpha = Array ("", "One", "Two", "Three", "Four", "Five", "Six" ", " Семь ", " Восемь ", " Девять ", " Десять ", " Одиннадцать ", " Двенадцать ", " Тринадцать ", " Четырнадцать ", " Пятнадцать ", " Шестнадцать ", " Семнадцать ", " Восемнадцать ", «Девятнадцать», «Двадцать», «Тридцать», «Сорок», «Пятьдесят», «Шестьдесят», «Семьдесят», «Восемьдесят», «Девяносто») figi = Trim (StrReverse (Str (Int (Abs (рис.)) )))) Для i = 1 в Len (figi) цифра (i) = Mid (figi, i, 1) Next Для i = 2 в Len (figi) Шаг 3 Если цифра (i) = 1, то цифра (i) = цифра (i - 1) + 10: цифра (i - 1) = 0 Остальное: если цифра (i)> 1, то цифра (i) = цифра (i) + 18 Конец, если следующий, для i = 1 в лен (рис. ) Если (i Mod 3) = 0 И цифра (i)> 0 Тогда слова = «сотня» и слова If (i Mod 3) = 1 И цифра (i) + цифра (i + 1) + цифра (i + 2) )> 0 Тогда _ words = Выберите (i / 3, "тысяча", "миллион", "миллиард") & words words = Trim (alpha (цифра (i)) & "" & words) Далее Если fig Int (fig ) Тогда figc = StrReverse (figi) Если figc = 0, то figc = "" figd = Trim (WorksheetFunction.Su bstitute (Str (Abs (fig)), figc & ".", "")) words = Trim (words & "" & point) Для i = 1 До Len (figd) Если Val (Mid (figd, i, 1) ))> 0 Тогда words = words & "" & alpha (Mid (figd, i, 1)) Остальное: words = words & "Zero" End If Next End If If fig <0 Тогда words = "Negative" & words End функция 
Предыдущая статья Следующая статья

Лучшие советы