Как да конвертирате цифрова стойност в английска дума?

Office Software Excel предлага на потребителите възможност да извършват различни операции с данните в полетата на електронната таблица. Дефинирана от потребителя функция може да се използва за преобразуване на числова стойност в английска дума . Някои познания за концепции за програмиране като функции и техники за придвижване ще помогнат да се разберат и запишат функциите, но не е от съществено значение. В интернет има много ресурси, където функциите, които могат да се използват за конвертиране на цифрова стойност в английска дума, могат да бъдат изтеглени и включени в работните таблици на Excel безплатно.

За да конвертирате цифрова стойност в английска дума, ето формулата, от която се нуждаете :

Това е пост от форума, благодарение на rajput391

По-долу ще намерите кода за въвеждане във вашия Excel лист:

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

2. Alt + Q Запишете кода и се върнете в Excel лист

3. Вмъкнете> function> user defined> A1 или съответната клетка

 Функционални думи (fig, Optional point = "Point") As String Дим цифра (14) Като Integer alpha = Array ("", "One", "Two", "Three", "Four", "Five", "Six") ", " Седем ", " Осем ", " Девет ", " Десет ", " Единадесет ", " Дванадесет ", " Тринадесет ", " Четиринадесет ", " Петнадесет ", " Шестнадесет ", " Седемнадесет ", " Осемнадесет ", "Деветнадесет", "Двадесет", "Тридесет", "Четиридесет", "Петдесет", "Шестдесет", "Седемдесет", "Осемдесет", "Деветдесет") 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 Тогава думите = "сто" и думите Ако (i Mod 3) = 1 И цифра (i) + цифра (i + 1) + цифра (i + 2) )> 0 Тогава _ words = Изберете (i / 3, "хиляди", "милион", "милиард") и думи думи = Подстригване (алфа (цифра (i)) & "" и думи) Следваща Ако фигура Int (fig) ) Тогава figc = StrReverse (figi) Ако figc = 0 Тогава figc = "" figd = Trim (WorksheetFunction.Su) bstitute (Str (Abs (fig)), figc & ".", "")) words = Trim (думи & точка) за i = 1 до Len (figd) Ако Val (Mid (figd, i, 1) ))> 0 Тогава думи = думи & "" & alpha (Mid (figd, i, 1)) Друго: думи = думи & "Zero" End Ако следващия край Ако If fig <0 Тогава words = "Negative" & words End функция