Како претворити број у речи без ВБА

Anonim

У претходном чланку сам објаснио како претворити број у речи у Екцелу помоћу ВБА. Написао сам бројне линије кода да бих то постигао. Али нисам ни сањао да можемо претворити бројеве у речи само помоћу екцел формула. Али један од наших корисника Екцелфорума је то урадио. Нисам ни сањао да можемо претворити бројеве у речи.

Ова формула се користи за претварање броја у америчку валуту. Ова формула може претворити бројеве из распона центи у милијарде. Број такође може имати две децимале.

Овај корисник са Ид ХароонСид је написао луду формулу. Формула је дугачка и ако је сад поменем овде, покриће цео пост. Дакле, споменуо сам то на крају поста. Датотеку екцел можете преузети испод да бисте проверили формулу.

Број до речи

Формула је предуга за објашњење, али могу објаснити логику. Ова формула одређује колико је дуг број. Затим користи функцију ЦХООСЕ за замену бројева речима. Али то није тако лако. Ова формула идентификује једном, десетине, стотине, хиљаде, милионе и милијарде. Он идентификује који број долази у који одељак. Још једна сложеност је ова. Број 12 може бити један или два у великом броју или дванаест. Ово додаје много сложености. Али овај човек је успео да реши ову сложеност и учини ову формулу ефикасном.

Тако да сада помињем формулу. Ова формула важи за Б2. Било који број написан у Б2 биће претворен у речи. Ова формула претвара бројеве у америчке валуте, али можете је прилагодити за претварање у било коју валуту или јединицу само проналажењем и заменом „долара“ и „цента“. На пример, ако желите да претворите бројеве у индијске рупије и паисе, само их пронађите и замените.

Зато држи своју столицу. Ево формуле.

Формула за претварање броја у речи:

= АКО (ИЛИ (ЛЕН (ПОД (Б2,1)) = 13, ПОД (Б2,1) 1, ИЗАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12))), 3,1) +1 , "", "-један", "-два", "-три", "-четири", "-пет", "-шест", "-седам", "-осам", "-девет"), АКО (ВРЕДНОСТ (СРЕДЊА (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 2,1))) = 0, ОДАБЕРИТЕ (СРЕДЊА (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 3, 1) +1, "", "један", "два", "три", "четири", "пет", "шест", "седам", "осам", "девет"), "")), АКО (Б2> = 10^9, "милијарди", ""), ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 4,1) +1, "", "сто" , "две стотине", "триста", "четири стотине", "петсто", "шест стотина", "седам стотина", "осамсто", "деветсто"), ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ ( Б2), РЕПТ (0,12)), 5,1) +1, "", ИЗАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 6,1) +1, "десет" , "једанаест", "дванаест", "тринаест", "четрнаест", "петнаест", "шеснаест", "седамнаест", "осамнаест", "деветнаест"), "двадесет", "тридесет", "четрдесет", "педесет", "шездесет", "седамдесет", "осамдесет", "деведесет"), ИФ (ВРЕДНОСТ (СРЕДЊА (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 5,1))> 1, ИЗАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 6,1) +1, "", "-један", "-два", "-три", "-четири", " -пето ","-шест ","-седам ","-осам ","-девет "), ИФ (ВРЕДНОСТ (СРЕДЊА (ТЕКСТ (ИНТ (Б2)), РЕПТ (0,12 )), 5,1)) = 0, ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 6,1) +1, "", "један", "два", "три "," четири "," пет "," шест "," седам "," осам "," девет ")," ")), ИФ (ВРЕДНОСТ (СРЕДЊА (ТЕКСТ (ИНТ (Б2)), РЕПТ (0,12 )), 4,3))> 0, "милион", ""), ИЗАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 7,1) +1, "", "један сто "," двеста "," триста "," четири стотине "," петсто "," шест стотина "," седамсто "," осамсто "," деветсто "), ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ ( ИНТ (Б2), РЕПТ (0,12)), 8,1) +1, "", ИЗАБЕРИ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 9,1) +1, " десет "," једанаест "," дванаест "," тринаест "," четрнаест "," петнаест "," шеснаест "," седамнаест "," осамнаест "," деветнаест ")," двадесет "," тридесет "," четрдесет "," педесет "," шездесет "," седамдесет "," осамдесет "," деведесет "), ИФ (ВАЛУЕ (МИД (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 8,1))>> 1, ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 9,1) +1, "", "-један", "-два", "-три", "-четири" , "-пет", "-шест", "-седам", "-осам", "-девет"), ИФ (ВРЕДНОСТ (СРЕДЊА (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 8, 1)) = 0, ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 9,1) +1, "", "један", "два", "три", "четири" , "пет", "шест", "седам", "осам", "девет"), "")), ИФ (ВАЛУЕ (МИД (ТЕКСТ (ИНТ (Б2), РЕПТ (0,1) 2)), 7,3)), "хиљада", ""), ИЗАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 10,1) +1, "", "сто "," две стотине "," триста "," четири стотине "," петсто "," шест стотина "," седамсто "," осамсто "," деветсто "), ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 11,1) +1, "", ИЗАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 12,1) +1, "десет "," једанаест "," дванаест "," тринаест "," четрнаест "," петнаест "," шеснаест "," седамнаест "," осамнаест "," деветнаест ")," двадесет "," тридесет "," четрдесет " , "педесет", "шездесет", "седамдесет", "осамдесет", "деведесет"), ИФ (ВАЛУЕ (МИД (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 11,1))> 1 , ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 12,1) +1, "", "-један", "-два", "-три", "-четири", "-пето", "-шест", "-седам", "-осам", "-девет"), ИФ (ВРЕДНОСТ (СРЕДЊА (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 11,1 )) = 0, ОДАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (Б2), РЕПТ (0,12)), 12,1) +1, "", "један", "два", "три", "четири", "пет", "шест", "седам", "осам", "девет"), ""))), "", "") & ИФ (ФЛООР (Б2,1)> 1, "долари", "долар" ")) & ИФ (ИСЕРРОР (ФИНД (". ", Б2,1))," "," анд "& ПРОПЕР (ИФ (ЛЕН (ЛЕФТ (ТРИМ (МИД (СУБСТИТУТЕ (Схеет1! Б2,". " ", 255)), 255,200)), 2)) = 1, ОДАБЕРИТЕ (1*ЛЕВО (Т РИМ (СРЕДЊА (ЗАМЕНА (Лист1! Б2, ".", РЕПТ ("", 255)), 255.200)), 2), "десет", "двадесет", "тридесет", "четрдесет", "педесет", "шездесет", "седамдесет", "осамдесет", "деведесет") & "центи", "") & КОНЦАТЕНИРАТИ (ИЗАБЕРИТИ (МИД (ТЕКСТ (ИНТ (ЛЕВО (ТРЕНУТНО (ЗАМЕЊА (ЗАМЕНИЦА (Лист1! Б2, "." РЕПТ ("", 255)), 255,200)), 2)), РЕПТ (0,12)), 11,1) +1, "", ЦХООСЕ (МИД (ТЕКСТ (ИНТ (ЛЕФТ (ТРИМ (МИД (СУБСТИТУТЕ) (Лист1! Б2, ".", РЕПТ ("", 255)), 255.200)), 2)), РЕПТ (0,12)), 12,1) +1, "десет", "једанаест", " дванаест "," тринаест "," четрнаест "," петнаест "," шеснаест "," седамнаест "," осамнаест "," деветнаест ") &" центи "," двадесет "," тридесет "," четрдесет "," педесет "," шездесет "," седамдесет "," осамдесет "," деведесет "), ИФ (ВАЛУЕ (МИД (ТЕКСТ (ИНТ (ЛЕФТ (ТРИМ (МИД (СУБСТИТУТЕ) (Схеет1! Б2,". ",", ", 255)), 255,200)), 2)), РЕПТ (0,12)), 11,1))> 1, ИЗАБЕРИТЕ (МИД (ТЕКСТ (ИНТ (ЛЕВО (ТРИМ (МИД (ЗАМЕЊА (Лист1! Б2, " ", РЕПТ (" ", 255)), 255,200)), 2)), РЕПТ (0,12)), 12,1) +1," ","-један ","-два ","-три ","-четири ","-пет ","-шест ","-седам ","-осам ","-девет ") &" центи ", ИФ (ЛИЈЕВО (ТРИМ (СРЕДЊА (ЗАМЈЕНА (Лист1! Б2 , ".", РЕПТ ("", 255)), 255,200)), 2) = "01", "један цент", ИФ (ЛИЈЕВО (ТРИМ (МИД (ЗАМЈЕНА (Лист1! Б2, ".", РЕПТ ( "", 255)), 255,200)), 1) = "0", ИЗАБЕРИТЕ (СРЕДЊИ (ТЕКСТ (ИНТ (ЛЕВО (ТРИМ (МИД (ЗАМЕЊА (Лист1! Б2, "." , 255,200)), 2)), РЕПТ (0,12)), 12,1) +1, "", "један", "два", "три", "четири", "пет", "шест" , "седам", "осам", "девет") & "центи", ""))))))))

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

Како претворити број у речи у Екцелу у рупијама : Можемо створити прилагођену формулу Екцел за претварање бројева у речи у индијским рупијама. Направио сам ову прилагођену функцију за претварање бројева у речи у смислу индијских рупија. Можете преузети макро датотеку

13 Методе како убрзати Екцел | Екцел је довољно брз да израчуна 6,6 милиона формула у 1 секунди у идеалним условима са рачунаром са нормалном конфигурацијом. Али понекад посматрамо екцел датотеке које рачунају спорије од пужева. Много је разлога иза ове спорије изведбе. Ако их можемо идентификовати, можемо учинити да се наше формуле брже израчунавају.

Центрирајте Екцел лист хоризонтално и вертикално на страници Екцел : Мицрософт Екцел вам омогућава поравнавање радног листа на страници, можете променити маргине, одредити прилагођене маргине или центрирати радни лист хоризонтално или вертикално на страници. Маргине странице су празна места између података радног листа и ивица одштампане странице

Дијелите ћелију дијагонално у програму Мицрософт Екцел 2016 : Да бисмо дијагонално поделили ћелије, користимо обликовање ћелије и у ћелију убацујемо линију која се дели дијагонално. Ово визуелно одваја ћелије дијагонално.

Како да убацим квачицу у Екцел 2016 : За уметање квачице у Екцел ћелију користимо симболе у ​​Екцелу. Подесите фонтове на крила и користите формулу Цхар (252) да бисте добили симбол квачице.

Како онемогућити Сцролл Лоцк у програму Екцел : Тастери са стрелицама у Екцелу померају ћелију горе, доле, лево и десно. Али ова функција је применљива само када је онемогућено Сцролл Лоцк у програму Екцел. Сцролл Лоцк у Екцелу се користи за померање нагоре, надоле, лево и десно по радном листу, а не по ћелији. Дакле, овај чланак ће вам помоћи како да проверите статус закључавања помицања и како да га онемогућите?

Шта учинити ако Екцел прекине везе не раде : Када радимо са неколико екцел датотека и користимо формуле за обављање посла, намерно или ненамерно стварамо везе између различитих датотека. Уобичајене везе са формулама могу се лако прекинути коришћењем опције прекида везе.

Популарни чланци:

50 Екцел пречица за повећање продуктивности | Убрзајте свој задатак. Ових 50 пречица ће учинити да радите још брже на Екцелу.

Како се користи Екцел ВЛООКУП функција| Ово је једна од најчешће кориштених и популарних функција програма Екцел која се користи за тражење вриједности из различитих распона и листова.

Како се користи Екцел ЦОУНТИФ функција| Бројте вредности са условима користећи ову невероватну функцију. Не морате да филтрирате податке да бисте рачунали одређену вредност. Цоунтиф функција је неопходна за припрему ваше контролне табле.

Како се користи функција СУМИФ у програму Екцел | Ово је још једна битна функција контролне табле. Ово вам помаже да сумирате вредности под одређеним условима.