Како претворити нумеричку вриједност у енглеску ријеч?

Оффице Софтваре Екцел, нуди корисницима могућност да обављају разне операције на подацима у пољу табеларних табела. Кориснички дефинисана функција се може користити за конвертовање нумеричке вредности у енглеску реч . Нека сазнања о програмским концептима као што су функције и технике петљања помогла би разумјети и написати функције, али није суштинска. Постоје многи ресурси доступни на интернету гдје се функције које се могу користити за конверзију нумеричке вриједности у енглеску ријеч могу бесплатно преузети и укључити у Екцел радне листове.

Да бисте конвертовали нумеричку вредност у енглеску реч, ево формуле коју ћете требати :

Ово је пост са форума, захваљујући рајпут391

У наставку ћете наћи код за унос у Екцел листу:

1. Притисните Алт + Ф11> копирање и паштање у модулу (ако модул не приказује уметање модула, кликните убаците на траку менија> Модул)

2. Алт + К Сачувајте код и вратите се у Екцел листу

3. Инсерт> фунцтион> усер дефинед> А1 или одговарајућа ћелија

 Функцијске речи (фиг, опциона тачка = "тачка") као низ знакова (14) као целобројни алфа = низ ("", "један", "два", "три", "четири", "пет", "шест") ", " Седам ", " Осам ", " Девет ", " Десет ", " Једанаест ", " Дванаест ", " Тринаест ", " Четрнаест ", " Петнаест ", " Шеснаест ", " Седамнаест ", " Осамнаест ", "Деветнаест", "Двадесет", "Тридесет", "Четрдесет", "Педесет", "Шездесет", "Седамдесет", "Осамдесет", "Деведесет") фиги = Трим (СтрРеверсе (Стр (Инт (Абс (фиг)) )))) За и = 1 До Лен (фиги) цифра (и) = Средина (фиги, и, 1) Следећа За и = 2 За Лен (фиги) Корак 3 Ако је цифра (и) = 1 Тада цифра (и) = цифра (и - 1) + 10: цифра (и - 1) = 0 Друго: ако цифра (и)> 1 Тада цифра (и) = цифра (и) + 18 Енд Иф Нект За и = 1 к Лен (фиги ) Ако (и Мод 3) = 0 и цифра (и)> 0 Тада речи = "сто" и речи Иф (и Мод 3) = 1 И цифра (и) + цифра (и + 1) + цифра (и + 2) )> 0 Затим _ вордс = Изабери (и / 3, "хиљаду", "милион", "милијарда") и речи речи = Трим (алфа (цифра (и)) & "" и речи) Следеће Ако фиг Инт (фиг) ) Онда фигц = СтрРеверсе (фиги) Ако фигц = 0 Онда фигц = "" фигд = Трим (ВорксхеетФунцтион.Су) бституте (Стр (Абс (фиг)), фигц & ".", "")) вордс = Трим (речи & "" & поинт) За и = 1 То Лен (фигд) Ако Вал (Мид (фигд, и, 1 ))> 0 Затим ријечи = ријечи & "" & алпха (Мид (фигд, и, 1)) Остало: ријечи = ријечи & "Зеро" Енд Ако Нект Енд Иф Ако фиг <0 Затим ријечи = "Негативно" & ријечи Енд Фунцтион