'%3e%3cpath%20d='M8%200C12.4183%200%2016%203.58172%2016%208C16%2012.4183%2012.4183%2016%208%2016C3.58172%2016%200%2012.4183%200%208C0%203.58172%203.58172%200%208%200ZM11.6162%204.38379C11.2257%203.99337%2010.5927%203.99338%2010.2021%204.38379L8%206.58594L5.79785%204.38379C5.40732%203.99334%204.77429%203.99329%204.38379%204.38379C3.99331%204.77429%203.99335%205.40733%204.38379%205.79785L6.58594%208L4.38379%2010.2021C3.99348%2010.5927%203.99341%2011.2257%204.38379%2011.6162C4.77426%2012.0066%205.40734%2012.0065%205.79785%2011.6162L8%209.41406L10.2021%2011.6162C10.5927%2012.0066%2011.2257%2012.0067%2011.6162%2011.6162C12.0067%2011.2257%2012.0066%2010.5927%2011.6162%2010.2021L9.41406%208L11.6162%205.79785C12.0066%205.40735%2012.0066%204.77429%2011.6162%204.38379Z'%20fill='%23080E17'%20fill-opacity='0.46'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_3761_713'%3e%3crect%20width='16'%20height='16'%20fill='white'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
'%3e%3cpath%20fill-rule='evenodd'%20clip-rule='evenodd'%20d='M21.4999%2010.9993C21.4999%205.20009%2016.7986%200.498901%2010.9993%200.498901C5.19994%200.498901%200.498657%205.20009%200.498657%2010.9993C0.498657%2016.2404%204.33858%2020.5844%209.35855%2021.3722V14.0346H6.69238V10.9993H9.35855V8.68594C9.35855%206.05427%2010.9262%204.60062%2013.3248%204.60062C14.4736%204.60062%2015.6753%204.80571%2015.6753%204.80571V7.38979H14.3512C13.0468%207.38979%2012.64%208.19921%2012.64%209.0296V10.9993H15.5523L15.0867%2014.0346H12.64V21.3722C17.66%2020.5844%2021.4999%2016.2404%2021.4999%2010.9993Z'%20fill='%231568EA'/%3e%3c/g%3e%3c/svg%3e)
'%3e%3cpath%20d='M2.42045%2022.1876H6.31818V12.7217L0.75%208.54553V20.5171C0.75%2021.4414%201.49892%2022.1876%202.42045%2022.1876Z'%20fill='%234285F4'/%3e%3cpath%20d='M19.682%2022.1876H23.5797C24.5041%2022.1876%2025.2502%2021.4387%2025.2502%2020.5171V8.54553L19.682%2012.7217'%20fill='%2334A853'/%3e%3cpath%20d='M19.682%205.48293V12.7216L25.2502%208.54543V6.31816C25.2502%204.25236%2022.8921%203.07469%2021.2411%204.31361'%20fill='%23FBBC04'/%3e%3cpath%20d='M6.31824%2012.7217V5.48303L13.0001%2010.4944L19.6819%205.48303V12.7217L13.0001%2017.733'%20fill='%23EA4335'/%3e%3cpath%20d='M0.75%206.31816V8.54543L6.31818%2012.7216V5.48293L4.75909%204.31361C3.10534%203.07469%200.75%204.25236%200.75%206.31816Z'%20fill='%23C5221F'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2954_7305'%3e%3crect%20width='24.5'%20height='18.375'%20fill='white'%20transform='translate(0.75%203.8125)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e){kind=icon}
Коли ви працюєте з числами в Excel, іноді для офіційних документів або більшої ясності потрібно відображати їх як цифрами, так і прописом. Проте Excel не має вбудованої функції для цього, особливо для індійських рупій. Тому ви можете бути змушені використовувати складні формули, зовнішні інструменти або робити це вручну.
У цьому посібнику ми покажемо вам простий покроковий метод конвертації чисел у слова для індійських рупій за допомогою Excel.
2 прості способи конвертації чисел у слова для індійських рупій в Excel:
Звісно, перш за все вам потрібно завантажити Microsoft Excel!
Спосіб 1: Конвертація чисел у слова для індійських рупій за допомогою коду VBA
Перш ніж конвертувати числа у слова для індійських рупій за допомогою коду VBA, вам може знадобитися додати вкладку розробника на стрічку для доступу до функцій VBA.
Ось кроки для ввімкнення вкладки розробника в Excel:
Крок 1: Відкрийте таблицю Excel, яка містить числа, що потрібно конвертувати.
Крок 2: Натисніть на меню «Файл» (File) і виберіть «Параметри» (Options) зі списку.
Крок 3: У вікні параметрів Excel виберіть «Налаштувати стрічку» (Customize Ribbon).
Крок 4: Виберіть «Усі вкладки» (All Tabs) у розкривному списку «Вибрати команди з» (Choose commands from).
Крок 5: Знайдіть «Розробник» (Developer) у списку та натисніть «Додати» (Add).
Крок 6: Натисніть «ОК».
Тепер перейдемо до кроків конвертації чисел у слова для індійських рупій за допомогою коду VBA:
Крок 1: Відкрийте таблицю Excel, яка містить числа, що потрібно конвертувати.
Крок 2: Перейдіть на вкладку «Розробник» (Developer). Якщо ви не бачите цієї вкладки, дотримуйтеся попередніх інструкцій, щоб увімкнути її.
Крок 3: Натисніть на Visual Basic або скористайтеся комбінацією клавіш Alt + F11.
Крок 4: Натисніть «Вставити» (Insert) і виберіть «Модуль» (Module).
Крок 5: Вставте код VBA, наданий у прикладі.
Public Function RupeeFormat(SNum As String) 'Updateby Extendoffice Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|
Крок 5: Збережіть (Ctrl + S) і закрийте редактор VBA. При збереженні виберіть «Книга Excel з підтримкою макросів» (Excel Macro-Enabled Workbook)
Крок 6: Введіть формулу =RupeeFormat(display cell) у клітинку, де потрібно відобразити текст, і натисніть Enter
Крок 7: Результат відобразиться на екрані. Потягніть униз, щоб застосувати формулу до інших клітинок
Числа у вибраному діапазоні буде конвертовано в слова для індійських рупій.
Спосіб 2: Конвертація чисел у слова для індійських рупій в Excel (Загальний метод)
Дізнайтеся про загальний метод конвертації чисел у слова для індійських рупій в Excel — це зручно під час підготовки рахунків для бухгалтерського обліку.
Крок 1: Відкрийте таблицю Excel, яка містить числа, що потрібно конвертувати.
Крок 2: Клацніть правою кнопкою миші на назву аркуша та виберіть «Переглянути код» (View Code), щоб відкрити редактор VBA. Це також корисно для аналізу даних в Excel.
Крок 3: Натисніть «Вставити» (Insert) і виберіть «Модуль» (Module).
Крок 4: Вставте код VBA, наданий у прикладі.
Public Function RupeeFormat(SNum As String) 'Update By Nirmal Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(Str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|
Крок 5: Виберіть «Книга Excel з підтримкою макросів» (Excel Macro-Enabled Workbook) у полі типу файлу. Закрийте вікно редактора VBA
Крок 6: Введіть формулу =RupeeFormat(display cell) у вибрану клітинку для відображення результату
Крок 7: Коли результат з’явиться у вибраній клітинці, потягніть униз, щоб застосувати формулу до інших клітинок
Числа у вибраному діапазоні буде конвертовано в слова для індійських рупій.
Найкраща безкоштовна альтернатива Microsoft Office – WPS Office
Окрім Microsoft Office, я пропоную вам ще одну програму. Це WPS Office. Отже, що таке WPS?
WPS Office — це безкоштовний офісний пакет, повністю сумісний із Microsoft Office. Він містить текстовий редактор, редактор електронних таблиць, програму для створення презентацій та інструмент для читання PDF, тож ви можете легко відкривати, редагувати та зберігати файли. Крім того, він дуже простий у використанні, навіть для тих, хто раніше не працював з офісними програмами.
Більше того, WPS Office — це потужний офісний пакет, який пропонує широкий спектр функцій. Це чудова альтернатива NeoOffice, особливо для студентів і компаній з обмеженим бюджетом.
Ось короткий огляд деяких функцій WPS:
● Безкоштовне використання Word, Excel та PPT. Потужний інструментарій для PDF.
● Велика бібліотека шаблонів.
● Широкі можливості: помічник зі створення резюме, розумні форми, запис екрана, відновлення файлів та інші корисні міні-інструменти, інтегровані в продукт.
● Компактний розмір програми (усього 200 МБ) та мінімальне споживання оперативної пам'яті комп'ютера.
● Версія WPS Office для Mac надзвичайно потужна. Вона чудово компенсує ті недоліки користувацького досвіду, які ігнорує Microsoft Office для пристроїв Mac.
● Підтримка онлайн-документів (WPS AirPage) та спільного редагування.
● WPS Office також підтримує операційні системи Linux, Android та iOS. Щоб працювати в екосистемі WPS Office на різних пристроях, достатньо увійти у свій обліковий запис — і всі ваші файли будуть синхронізовані.
Вирішили, що WPS Office — найкращий вибір для вас, і бажаєте його завантажити? Відвідайте офіційний сайт: https://www.wps.com і завантажте прямо зараз.
Як завантажити WPS Office
Крок 1: Перейдіть на сайт WPS Office: wps.com.
Крок 2: Натисніть кнопку "Free Download" (Безкоштовне завантаження)
Крок 3: Виберіть місце для збереження інсталятора WPS Office -> Зберегти (Save)
Крок 4: Двічі клацніть завантажений файл WPS Office, натисніть "Run" (Запустити) і дотримуйтесь інструкцій на екрані для завершення встановлення
Крок 5: Після завершення ви зможете насолоджуватися всіма можливостями WPS Office
Поширені запитання (FAQ):
Питання 1: Як конвертувати валюту в текст за допомогою Excel VBA?
Ви можете використовувати VBA (Visual Basic for Applications), щоб конвертувати валюту в текст в Excel. Для цього потрібно написати власний макрос VBA. Приклади та фрагменти коду можна знайти в Інтернеті або звернутися до документації Excel VBA.
Питання 2: Як конвертувати валюту в текст прописом в Excel?
Щоб конвертувати валюту в слова в Excel, зазвичай використовують комбінацію функцій і спеціального форматування. В Інтернеті є безліч посібників та інструкцій, які детально пояснюють цей процес.
Питання 3: Як відформатувати числа в Excel для індійських рупій?
Щоб відформатувати числа в Excel для індійських рупій, скористайтеся вбудованими параметрами форматування валюти. Виділіть клітинку або діапазон, перейдіть на вкладку «Число» (Number) у діалоговому вікні «Формат клітинок» (Format Cells) і виберіть категорію «Грошовий» (Currency). Далі виберіть «₹ English (India)» як символ валюти.
Питання 4: Як автоматично конвертувати числа в текст в Excel?
Існує кілька способів автоматичної конвертації чисел у текст в Excel. Можна використовувати функції Excel, такі як TEXT, CONCATENATE, або спеціальне форматування. Для складнішої автоматизації можна застосувати макроси VBA.
Питання 5: Як конвертувати долари США в індійські рупії в Excel?
Щоб конвертувати долари США в індійські рупії в Excel, використовуйте комбінацію функцій Excel і вебсервісів або зовнішніх джерел даних з актуальними курсами валют. Також можна застосувати формат «Грошовий» (Currency) для відображення сум в індійських рупіях після отримання курсу обміну.
Питання 5. Бажаєте використовувати Excel Online для зручнішої роботи?
Якщо ви віддаєте перевагу роботі у хмарі, Excel Online пропонує ті самі потужні функції, що допомагають керувати даними та очищати їх із будь-якого місця. В Excel Online ви можете використовувати ті ж самі функції для видалення символів зліва чи справа, що робить його чудовим вибором для тих, хто цінує гнучкість або не має доступу до десктопної версії Excel.
Підсумок:
Дізнайтеся, як легко конвертувати числові суми в слова для індійських рупій в Excel за допомогою коду VBA або звичайного методу. Спочатку увімкніть вкладку «Розробник» (Developer) в Excel, додайте наданий код VBA і використайте формулу =RupeeFormat(display cell).
Крім того, ви можете клацнути правою кнопкою миші на назву аркуша для доступу до VBA, вставити модуль, додати код і застосувати ту саму формулу. Ці зручні методи також сумісні з WPS Office — безкоштовною альтернативою Microsoft Office, що робить точне та професійне форматування документів надзвичайно простим.
'%3e%3cpath%20d='M19.9911%204.11386V6.471H18.5894C18.0775%206.471%2017.7322%206.57814%2017.5536%206.79243C17.3751%207.00671%2017.2858%207.32814%2017.2858%207.75671V9.44421H19.9019L19.5536%2012.0871H17.2858V18.8639H14.5536V12.0871H12.2769V9.44421H14.5536V7.49779C14.5536%206.39064%2014.8632%205.53201%2015.4822%204.92189C16.1013%204.31177%2016.9257%204.00671%2017.9554%204.00671C18.8304%204.00671%2019.509%204.04243%2019.9911%204.11386Z'%20fill='%23333333'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2938_8199'%3e%3crect%20width='16'%20height='16'%20fill='white'%20transform='translate(8%204.00671)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
'%3e%3cpath%20d='M17.5237%2010.7813L23.4811%204H22.0699L16.8949%209.88693L12.7648%204H8L14.2469%2012.9029L8%2020.0133H9.4112L14.8725%2013.7952L19.2352%2020.0133H24M9.92053%205.04213H12.0885L22.0688%2019.0224H19.9003'%20fill='%23333333'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2938_8200'%3e%3crect%20width='16'%20height='16.0134'%20fill='white'%20transform='translate(8%204)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
