Excel не предоставя функция по подразбиране, която преобразува число или сума с думи в индийски рупии или всякаква валута. Но това не означава, че не можем да преобразуваме число в индийска рупия. Можем да създадем персонализирана формула на Excel за преобразуване на числа в думи в индийски рупии. Създадох тази персонализирана функция за преобразуване на числа в думи от гледна точка на индийски рупии. Можете да изтеглите макро файла по -долу. Споменах кода по -долу и обясних малко, за да можете да правите промени според вашите изисквания.
Функция на Excel за скрито число на думи в индийски рупии
Така че използвайте тази функция, за да конвертирате всяка 10 -цифрена или по -малка сума или число в думи или рупии. Нарекох тази функция NUM_TO_IND_RUPEE_WORD. Синтаксисът на тази функция е:
| = NUM_TO_IND_RUPEE_WORD (номер) |
Можете да изтеглите работния макро файл надолу:
Число до думи индийска рупия
Сега кодът на функцията е споменат по -долу.
Този код е разделен на четири отделни функции. Основната функция е NUM_TO_IND_RUPEE_WORD. И други три функции GetHunderds (), GetTens () и GetDigits са помощни функции, които помагат на основната функция да оформи низа.
Функция NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Незадължителни incRupees като Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace As Long, Count As Long Dim myLakhs, myCrores ReDim Place (9) As String Place (2) = "Thousand" : Place (3) = "Million" Place (4) = "Billion": Place (5) = "Trillion" 'Низово представяне на сумата. MyNumber = Trim (Str (MyNumber)) 'Позиция на десетичната запетая 0 ако няма. DecimalPlace = InStr (MyNumber, ".") 'Конвертирайте Paise и задайте MyNumber в размер на рупии. Ако DecimalPlace> 0 Тогава Paise = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) End Ако myCrores = MyNumber \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do While myCrores "" Temp = GetHundreds (Вдясно (myCrores, 3)) If Temp "" Тогава Crores = Temp & Place (Count ) & Crores If Len (myCrores)> 3 Тогава myCrores = Наляво (myCrores, Len (myCrores) - 3) Else myCrores = "" Край, ако Count = Count + 1 Loop Count = 1 Do While myLakhs "" Temp = GetHundreds (Вдясно (myLakhs, 3)) If Temp "" Then Lakhs = Temp & Place (Count) & Lakhs If Len (myLakhs)> 3 Тогава myLakhs = Наляво (myLakhs, Len (myLakhs) - 3) Else myLakhs = "" Край, ако брои = Count + 1 Loop Count = 1 Do While MyNumber "" Temp = GetHundreds (Right (MyNumber, 3)) If Temp "" then Rupees = Temp & Place (Count) & Rupees If Len (MyNumber)> 3 then MyNumber = Left (MyNumber, Len (MyNumber) - 3) Else MyNumber = "" Край, ако броят = C ount + 1 Loop Select Case Crores Case "": Crores = "" Case "One": Crores = "One Crore" Case Otherse: Crores = Crores & "Crores" End Select Select Case Lakhs Case "": Lakhs = "" Дело "One": Lakhs = "One Lakh" Case Others: Lakhs = Lakhs & "Lakhs" End Select Select Case Rupees Case "": Rupees = "Zero" Case "One": Rupees = "One" Case Other: Rupees = Rupees End Select Select Case Paise Case "": Paise = "и Paise Zero Only" Case "One": Paise = "и Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select 'създавайки низ от думи за преобразуване на число в думи Като низ Ако Val (MyNumber) = 0 Тогава излезте от функцията MyNumber = Вдясно ("000" & MyNumber, 3) 'Преобразувайте мястото на стотиците. If Mid (MyNumber, 1, 1) "0" then Result = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End If 'Преобразувайте десетките и единиците. If Mid (MyNumber, 2, 1) "0" then Result = Result & GetTens (Mid (MyNumber, 2)) Else Result = Result & GetDigit (Mid (MyNumber, 3)) End Ако GetHundreds = Result End функция 'Преобразува номер от 10 до 99 в текст. Функция GetTens (TensText) Dim Result As String Result = "" 'Нулира временната стойност на функцията. Ако Val (вляво (TensText, 1)) = 1 Тогава 'Ако стойност между 10-19 … Изберете Case Val (TensText) Случай 10: Резултат = "Десет" Случай 11: Резултат = "Единадесет" Случай 12: Резултат = "Дванадесет "Случай 13: Резултат =" Тринадесет "Дело 14: Резултат =" Четиринадесет "Дело 15: Резултат =" Петнадесет "Дело 16: Резултат =" Шестнадесет "Дело 17: Резултат =" Седемнадесет "Дело 18: Резултат =" Осемнадесет "Дело 19: Резултат = "Деветнадесет" Случай Друг край Изберете Друг 'Ако стойност между 20-99 … Изберете Val Case (вляво (TensText, 1)) Случай 2: Резултат = "Двадесет" Случай 3: Резултат = "Тридесет" Случай 4: Резултат = "Четиридесет" Случай 5: Резултат = "Петдесет" Случай 6: Резултат = "Шестдесет" Случай 7: Резултат = "Седемдесет" Случай 8: Резултат = "Осемдесет" Случай 9: Резултат = "Деветдесет" Избор на друг край = Резултат & GetDigit _ (Вдясно (TensText, 1)) 'Извличане на тяхното място. Край, ако GetTens = Резултат Крайна функция 'Преобразува число от 1 до 9 в текст. Функция GetDigit (цифра) Избор на стойност Val (цифра) Случай 1: GetDigit = "Едно" Случай 2: GetDigit = "Две" Случай 3: GetDigit = "Три" Случай 4: GetDigit = "Четири" Случай 5: GetDigit = "Пет "Случай 6: GetDigit =" Шест "Случай 7: GetDigit =" Седем "Случай 8: GetDigit =" Осем "Случай 9: GetDigit =" Девет "Случай в друг случай: GetDigit =" "Край Изберете крайна функция
Кодът на функцията е дълъг, но лесен за разбиране.
За да използвате този код, поставете модул във VBE и го копирайте, поставете го. И функцията е готова за директно използване на листа. Той ще преобразува числото в думи, по -специално във формат индийска рупия.
Така че да, момчета, ето как можете да използвате персонализирана функция в Excel, за да конвертирате число в думи. Надявам се това да е полезно. Ако имате някакви съмнения относно тази статия или друга функция, попитайте в секцията за коментари по -долу.
Създайте VBA функция за връщане на масив| За да върнем масив, използвайки персонализирана функция в Excel, използваме малко по -различен синтаксис за писане на персонализираната функция. Тази функция връща масив от стойности вместо само една стойност.
Масиви във формула на Excel| Масивите са колекционни стойности от същия тип на всеки технически език. В excel е същото, но се третира малко по -различно от другите езици за програмиране …
Как да създадете потребителска функция чрез VBA| Научете как да създавате потребителски функции в Excel.
Използване на функция, дефинирана от потребителя (UDF) от друга работна книга, използваща VBA в Microsoft Excel| Използвайте дефинираната от потребителя функция в друга работна книга на Excel.
Връща стойности на грешки от дефинирани от потребителя функции, използвайки VBA в Microsoft Excel| Научете как можете да върнете стойности за грешка от дефинирана от потребителя функция.
Популярни статии:
50 преки пътища в Excel за повишаване на вашата производителност | Бъдете по -бързи в задачата си. Тези 50 преки пътища ще ви накарат да работите още по -бързо в Excel.
Как да използвате функцията Excel VLOOKUP| Това е една от най -използваните и популярни функции на excel, която се използва за търсене на стойност от различни диапазони и листове.
Как да използвате Excel COUNTIF функция| Пребройте стойностите с условия, използвайки тази невероятна функция. Не е необходимо да филтрирате данните си, за да преброите конкретна стойност. Функцията Countif е от съществено значение за подготовката на вашето табло.
Как да използвате функцията SUMIF в Excel | Това е друга основна функция на таблото. Това ви помага да обобщите стойностите при конкретни условия.