Екцел не пружа подразумевану функцију која претвара број или износ речима у индијским рупијама или било којој валути. Али то не значи да број не можемо претворити у индијску рупију. Можемо креирати прилагођену формулу Екцел за претварање броја у речи у индијским рупијама. Направио сам ову прилагођену функцију за претварање броја у речи у смислу индијских рупија. Испод можете преузети макро датотеку. Споменуо сам доњи код и мало објаснио, тако да можете извршити измене према вашим захтевима.
Екцел функција за прикривање броја речи у индијским рупијама
Зато користите ову функцију за претварање било којег 10 цифре или мање количине или броја у речи или рупије. Ову функцију сам назвао НУМ_ТО_ИНД_РУПЕЕ_ВОРД. Синтакса ове функције је:
| = НУМ_ТО_ИНД_РУПЕЕ_ВОРД (број) |
Радну датотеку макроа можете преузети доле:
Број у речи индијска рупија
Сада се код функције спомиње у наставку.
Овај код је подељен на четири појединачне функције. Главна функција је НУМ_ТО_ИНД_РУПЕЕ_ВОРД. Остале три функције ГетХундердс (), ГетТенс () и ГетДигитс помажу функцији која помаже главној функцији да формира низ.
Функција НУМ_ТО_ИНД_РУПЕЕ_ВОРД (БиВал МиНумбер, Оптионал инцРупеес Ас Боолеан = Труе) Дим Црорес, Лакхс, Рупеес, Паисе, Темп Дим ДецималПлаце Ас Лонг, Цоунт Ас Лонг Дим миЛакхс, миЦрорес РеДим Плаце (9) Ас Стринг Плаце (2) = "Тхоусанд" : Плаце (3) = "Миллион" Плаце (4) = "Биллион": Плаце (5) = "Триллион" 'Стринг приказ износа. МиНумбер = Трим (Стр (МиНумбер)) 'Позиција децималног места 0 ако нема. ДецималПлаце = ИнСтр (МиНумбер, ".") 'Претворите Паисе и поставите МиНумбер на износ рупија. Ако је ДецималПлаце> 0, онда Паисе = ГетТенс (Лево (Средњи (МиНумбер, ДецималПлаце + 1) & "00", 2)) МиНумбер = Трим (Лево (МиНумбер, ДецималПлаце - 1)) Енд Иф миЦрорес = МиНумбер \ 10000000 миЛакхс = ( МиНумбер - миЦрорес * 10000000) \ 100000 МиНумбер = МиНумбер - миЦрорес * 10000000 - миЛакхс * 100000 Цоунт = 1 До Вхиле миЦрорес "" Темп = ГетХундредс (Десно (миЦрорес, 3)) Иф Темп "" Затим Црорес = Темп & Плаце (Цоунт ) & Црорес Иф Лен (миЦрорес)> 3 Тхен миЦрорес = Лефт (миЦрорес, Лен (миЦрорес) - 3) Елсе миЦрорес = "" Енд Иф Цоунт = Цоунт + 1 Лооп Цоунт = 1 До Вхиле миЛакхс "" Темп = ГетХундредс (Десно (миЛакхс, 3)) Иф Темп "" Тхен Лакхс = Темп & Плаце (Цоунт) & Лакхс Иф Лен (миЛакхс)> 3 Тхен миЛакхс = Лефт (миЛакхс, Лен (миЛакхс) - 3) Елсе миЛакхс = "" Енд Иф Цоунт = Цоунт + 1 Лооп Цоунт = 1 До Вхиле МиНумбер "" Темп = ГетХундредс (Ригхт (МиНумбер, 3)) Иф Темп "" тхен Рупеес = Темп & Плаце (Цоунт) & Рупеес Иф Лен (МиНумбер)> 3 Тхен МиНумбер = Лефт (МиНумбер, Лен (МиНумбер) - 3) Елсе МиНумбер = "" Крај ако је број = Ц оунт + 1 Лооп Селецт Цасе Црорес Цасе "": Црорес = "" Цасе "Оне": Црорес = "Оне Цроре" Цасе Отхер: Црорес = Црорес & "Црорес" Енд Селецт Селецт Цасе Лакхс Цасе "": Лакхс = "" Случај "Оне": Лакхс = "Оне Лакх" Цасе Елсе: Лакхс = Лакхс & "Лакхс" Енд Селецт Селецт Цасе Рупеес Цасе "": Рупеес = "Зеро" Цасе "Оне": Рупеес = "Оне" Цасе Елсе: Рупее = Рупеес Енд Селецт Селецт Цасе Паисе Цасе "": Паисе = "и Паисе Зеро Онли" Цасе "Оне": Паисе = "анд Паисе Оне Онли" Цасе Елсе: Паисе = "анд Паисе" & Паисе & "Онли" Енд Селецт 'стварајући низ речи за превођење броја у речи НУМ_ТО_ИНД_РУПЕЕ_ВОРД = ИИф (инцРупеес, "Рупеес", "") & Црорес & _ Лакхс & Рупеес & Паисе Енд Фунцтион 'Претвара број од 100-999 у текст Функција ГетХундредс (БиВал МиНумбер) Дим Ресулт Као низ Ако је Вал (МиНумбер) = 0 Затим изађите из функције МиНумбер = Ригхт ("000" & МиНумбер, 3) 'Претворите место стотина. Ако средина (МиНумбер, 1, 1) "0", онда је резултат = ГетДигит (Мид (МиНумбер, 1, 1)) & "Хундред" Енд Иф 'Претворите место десетица и јединица. Ако је Мид (МиНумбер, 2, 1) "0" тхен Ресулт = Ресулт & ГетТенс (Мид (МиНумбер, 2)) Елсе Ресулт = Ресулт & ГетДигит (Мид (МиНумбер, 3)) Енд Ако је ГетХундредс = Ресулт Енд функција 'Претвара број од 10 до 99 у текст. Функција ГетТенс (ТенсТект) Дим Ресулт Ас Стринг Ресулт = "" 'Нулл за привремену вредност функције. Иф Вал (Лефт (ТенсТект, 1)) = 1 тхен 'Иф валуе бетвеен 10-19… Селецт Цасе Вал (ТенсТект) Цасе 10: Ресулт = "Тен" Цасе 11: Ресулт = "Елевен" Цасе 12: Ресулт = "Твелве "Случај 13: Резултат =" Тринаест "Случај 14: Резултат =" Четрнаест "Случај 15: Резултат =" Петнаест "Случај 16: Резултат =" Шеснаест "Случај 17: Резултат =" Седамнаест "Случај 18: Резултат =" Осамнаест "Случај 19: Резултат = "Деветнаест" Случај Други крај Изаберите Остало 'Ако је вредност између 20-99 … Изаберите вредност случаја (лево (ТенсТект, 1)) Случај 2: Резултат = "Двадесет" Случај 3: Резултат = "Тридесет" Случај 4: Резултат = "Четрдесет" Случај 5: Резултат = "Педесет" Случај 6: Резултат = "Шездесет" Случај 7: Резултат = "Седамдесет" Случај 8: Резултат = "Осамдесет" Случај 9: Резултат = "Деведесет" Случај Други крај Изаберите резултат = Резултат & ГетДигит _ (Десно (ТенсТект, 1)) '' Дохватите своје место. Енд Иф ГетТенс = Ресулт Крајња функција 'Претвара број од 1 до 9 у текст. Функција ГетДигит (цифра) Изаберите величину слова (цифра) Случај 1: ГетДигит = "Један" Случај 2: ГетДигит = "Два" Случај 3: ГетДигит = "Три" Случај 4: ГетДигит = "Четири" Случај 5: ГетДигит = "Пет "Случај 6: ГетДигит =" Шест "Случај 7: ГетДигит =" Седам "Случај 8: ГетДигит =" Осам "Случај 9: ГетДигит =" Девет "Случај Остало: ГетДигит =" "Крај Изаберите функцију завршетка
Код функције је дуг, али лако разумљив.
Да бисте користили овај код, уметните модул у ВБЕ и копирајте га налепите. А функција је спремна за директну употребу на листу. Претворит ће број у ријечи, посебно у формату индијске рупије.
Па да, момци, овако можете користити прилагођену функцију у Екцелу за претварање броја у речи. Надам се да је ово од помоћи. Ако имате било каквих недоумица у вези овог чланка или било које друге функције, питајте у одељку коментара испод.
Креирајте ВБА функцију за враћање низа| За враћање низа помоћу прилагођене функције у Екцелу користимо нешто другачију синтаксу за писање прилагођене функције. Ова функција враћа низ вредности уместо само једне вредности.
Низови у формули Екцел| Низови су збирне вредности истог типа у сваком техничком језику. У Екцелу је исти, али се третира мало другачије од осталих програмских језика …
Како креирати кориснички дефинисану функцију путем ВБА| Научите како да креирате кориснички дефинисане функције у програму Екцел.
Коришћење кориснички дефинисане функције (УДФ) из друге радне свеске помоћу ВБА у програму Мицрософт Екцел| Користите кориснички дефинисану функцију у другој радној свесци програма Екцел.
Врати вредности грешака из кориснички дефинисаних функција помоћу ВБА у Мицрософт Екцелу| Сазнајте како можете вратити вредности грешака из кориснички дефинисане функције.
Популарни чланци:
50 Екцел пречица за повећање продуктивности | Убрзајте свој задатак. Ових 50 пречица ће учинити да радите још брже на Екцелу.
Како се користи Екцел ВЛООКУП функција| Ово је једна од најчешће кориштених и популарних функција програма Екцел која се користи за тражење вриједности из различитих распона и листова.
Како се користи Екцел ЦОУНТИФ функција| Бројте вредности са условима користећи ову невероватну функцију. Не морате да филтрирате податке да бисте рачунали одређену вредност. Цоунтиф функција је неопходна за припрему ваше контролне табле.
Како се користи функција СУМИФ у програму Екцел | Ово је још једна битна функција контролне табле. Ово вам помаже да сумирате вредности под одређеним условима.