Как да преобразувам валута в текст с Excel VBA?

Можете да използвате VBA (Visual Basic for Applications), за да преобразувате валута в текст в Excel. Ще трябва да напишете персонализиран VBA макрос, за да извършите това преобразуване. Можете да намерите примери и фрагменти от код онлайн или да се консултирате с документацията за Excel VBA за насоки.

Как да преобразувате валута в текст с думи в Excel?

За да преобразувате валута в думи в Excel, обикновено се използва комбинация от функции и персонализирано форматиране. Можете да намерите различни уроци и ръководства онлайн, които обясняват как да постигнете това.

Как да форматирате числа в Excel за индийски рупии?

За да форматирате числа в Excel за индийски рупии, можете да използвате вградените опции за форматиране на валута. Изберете клетката или диапазона, които искате да форматирате, отидете в раздела „Number“ (Число) в диалоговия прозорец за форматиране на клетки и изберете категорията „Currency“ (Валута). Оттам можете да изберете „₹ English (India)“ като символ за валута.

Как да преобразувам автоматично числа в текст в Excel?

Има няколко начина за автоматично преобразуване на числа в текст в Excel. Можете да използвате функции на Excel като TEXT, CONCATENATE или персонализирано форматиране. Можете също да използвате VBA макроси за по-разширена автоматизация.

Как да конвертирате числа в думи в индийски рупии в Excel

Публикувано от Algirdas Jasaitis

2026-09-24

868

Когато работите с числа в Excel, понякога трябва да ги показвате както с цифри, така и с думи за официални документи или за яснота. Excel обаче няма вграден начин за това, особено за индийски рупии. Затова може да се окаже, че използвате сложни формули, външни инструменти или го правите ръчно.

В това ръководство ще ви покажем лесен метод стъпка по стъпка за конвертиране на числа в думи за индийски рупии с помощта на Excel.

2 лесни начина за конвертиране на числа в думи за индийски рупии в Excel:

Разбира се, преди всичко трябва да изтеглите Microsoft Excel!

Метод 1: Конвертиране на числа в думи за индийски рупии с VBA код

Преди да конвертирате числа в думи за индийски рупии с помощта на VBA код, може да се наложи да добавите раздела за програмисти в лентата с инструменти, за да отворите функцията на VBA.

Ето стъпките за активиране на раздела за програмисти (Developer) в Excel:

Стъпка 1: Отворете електронната таблица на Excel, която съдържа числата, които искате да конвертирате.

Стъпка 2: Кликнете върху „File“ (Файл) и изберете „Options“ (Опции) от списъка

Стъпка 3: В опциите на Excel изберете „Customize Ribbon“ (Персонализиране на лентата)

Раздел Options и бутон за персонализиране на лентата

Стъпка 4: Изберете всички раздели („All Tabs“) в опцията за избор на команди („Choose commands from“)

Изберете команди от списъка с избран раздел Всички

Стъпка 5: Намерете раздела за програмисти („Developer“) в списъка и кликнете върху добавяне („Add“)

Стъпка 6: Кликнете върху „OK“

Добавяне на раздела за програмисти и бутон OK

Използвайте Word, Excel и PPT БЕЗПЛАТНО

Ето и стъпките за конвертиране на числа в думи за индийски рупии с помощта на 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

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

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

If Mid(xStrH, 2, 1) <> "0" Then

xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))

Else

xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))

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 Macro-Enabled Workbook“ при запазване.

Стъпка 6: Въведете формулата =RupeeFormat(клетката) в клетката, в която искате да се покаже текстът, и натиснете 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

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

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

If Mid(xStrH, 2, 1) <> "0" Then

xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))

Else

xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))

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 Macro-Enabled Workbook“ в полето „Save as type“ (Запази като тип). Затворете прозореца на VBA редактора.

Стъпка 6: Въведете формулата =RupeeFormat(клетката) в избраната клетка, за да се покаже резултатът.

Стъпка 7: Плъзнете надолу, за да приложите формулата към други клетки, след като резултатите се появят в избраната клетка.

Числата в избрания диапазон ще бъдат конвертирани в думи за индийски рупии.

Безплатно изтегляне на Office

Използвайте Word, Excel и PPT БЕЗПЛАТНО, без реклами.
Редактирайте PDF файлове с мощния набор от PDF инструменти.
Интерфейс, подобен на Microsoft. Лесен за усвояване. 100% съвместимост.
Повишете продуктивността си с изобилието от безплатни шаблони за Word, Excel, PPT и автобиографии от WPS.

100% сигурно

Algirdas Jasaitis

Най-добрата безплатна алтернатива на Microsoft Office - WPS Office

Освен Microsoft Office, ще ви предложа още едно приложение. Това е WPS Office. И така, какво е WPS?

WPS Office е безплатен офис пакет, който е съвместим с Microsoft Office. Той включва текстов редактор, програма за електронни таблици, софтуер за презентации и PDF четец, така че можете лесно да отваряте, редактирате и запазвате файлове. Освен това е лесен за използване, дори и за хора без предишен опит с офис пакети.

Не само това, WPS Office е мощен офис пакет, който предлага широк набор от функции. Той е отлична алтернатива на NeoOffice, особено за студенти и бизнеси с ограничен бюджет.

Хвърлете бърз поглед на някои от функциите на WPS:

● Безплатно използване на Word, Excel и PPT. Мощен набор от PDF инструменти

● Богат магазин с шаблони

● Богата функционалност – в продукта са интегрирани асистенти за автобиографии, интелигентни формуляри, запис на екрана, възстановяване на файлове и други малки инструменти

● Лекият продукт е само около 200MB и заема много малко компютърна памет.

● Версията на WPS Office за Mac е много мощна. Microsoft Office често пренебрегва нуждите на Mac потребителите, което се компенсира напълно от WPS Office.

● Поддръжка на онлайн документи (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 -> Запазване

Стъпка 4: Кликнете два пъти върху файла на WPS Office в папката с изтегляния, кликнете върху "Run" (Изпълни) и следвайте инструкциите на екрана, за да го инсталирате.

Стъпка 5: След като приключите, можете да се насладите на цялата мощ на WPS Office.

Често задавани въпроси (ЧЗВ):

В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" (Валута) в Excel може също да се използва за показване на суми в индийски рупии след получаване на обменните курсове.

В6. Искате да използвате Excel Online за по-лесна работа?

Ако предпочитате да работите в облака, Excel Online предлага същите мощни функции, за да ви помогне да управлявате и изчиствате данните си отвсякъде. С Excel Online можете да използвате същите функции за премахване на символи от лявата или дясната страна на вашите данни, което го прави чудесен вариант за тези, които се нуждаят от гъвкавост или нямат достъп до десктоп версията на Excel.

Резюме:

Научете как лесно да конвертирате числови суми в думи за индийски рупии в Excel, използвайки VBA код или общ метод. Първо активирайте раздела за програмисти (Developer) в Excel, добавете предоставения VBA код и използвайте формулата =RupeeFormat(клетката).

Като алтернатива, кликнете с десния бутон върху името на листа за достъп до VBA, вмъкнете модул, поставете кода и приложете същата формула. Тези удобни за потребителя методи са съвместими и с WPS Office – безплатна алтернатива на Microsoft Office, която превръща прецизното и професионално форматиране на документи в детска игра.

Други публикации, които може да харесате

LibreOffice Draw: Ръководство за безплатно изтегляне

Ревю на WPS Office: Предимства, недостатъци и за кого е най-подходящ

Безплатен лицензен ключ в Giveaway of the Day за WPS Premium 2026

3 лесни начина да използвате Microsoft Office безплатно на iOS устройства (Пълно ръководство)

Как да оправим неработещо автоматично попълване в Excel

5 безплатни приложения за четене на Word документи за Android през 2026 г.

Безплатен Office

Съдържание

Как да конвертирате числа в думи в индийски рупии в Excel

2 лесни начина за конвертиране на числа в думи за индийски рупии в Excel:

Метод 1: Конвертиране на числа в думи за индийски рупии с VBA код

Ето и стъпките за конвертиране на числа в думи за индийски рупии с помощта на VBA код:

Метод 2: Конвертиране на числа в думи за индийски рупии в Excel (Общ метод)

Най-добрата безплатна алтернатива на Microsoft Office - WPS Office

Хвърлете бърз поглед на някои от функциите на WPS:

Как да изтеглите WPS Office

Често задавани въпроси (ЧЗВ):

В1: Как да конвертирам валута в текст в Excel с VBA?

В2: Как да конвертирам валута в текст с думи в Excel?

В3: Как да форматирам числа в Excel за индийски рупии?

В4: Как да конвертирам числа в текст в Excel автоматично?

В5: Как да конвертирам щатски долари в индийски рупии в Excel?

В6. Искате да използвате Excel Online за по-лесна работа?

Резюме:

Други публикации, които може да харесате

Безплатен Office

Съдържание

Сподели статия

Как да конвертирате числа в думи в индийски рупии в Excel

2 лесни начина за конвертиране на числа в думи за индийски рупии в Excel:

Метод 1: Конвертиране на числа в думи за индийски рупии с VBA код

Ето и стъпките за конвертиране на числа в думи за индийски рупии с помощта на VBA код:

Метод 2: Конвертиране на числа в думи за индийски рупии в Excel (Общ метод)

Най-добрата безплатна алтернатива на Microsoft Office - WPS Office

Хвърлете бърз поглед на някои от функциите на WPS:

Как да изтеглите WPS Office

Често задавани въпроси (ЧЗВ):

В1: Как да конвертирам валута в текст в Excel с VBA?

В2: Как да конвертирам валута в текст с думи в Excel?

В3: Как да форматирам числа в Excel за индийски рупии?

В4: Как да конвертирам числа в текст в Excel автоматично?

В5: Как да конвертирам щатски долари в индийски рупии в Excel?

В6. Искате да използвате Excel Online за по-лесна работа?

Резюме:

Други публикации, които може да харесате