'%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}
Cuando trabajas con números en Excel, a veces necesitas mostrarlos tanto en números como en letras para documentos oficiales o por claridad. Sin embargo, Excel no tiene una función integrada para hacer esto, especialmente para rupias indias. Por lo tanto, podrías terminar usando fórmulas complicadas, herramientas externas o haciéndolo manualmente.
En esta guía, te enseñaremos un método sencillo paso a paso para convertir números a letras en rupias indias usando Excel.
2 formas fáciles de convertir números a letras en rupias indias en Excel:
Por supuesto, antes que nada, ¡primero necesitas una descarga de Microsoft Excel adecuada!
Método 1: Convertir números a letras en rupias indias con código VBA
Antes de convertir números a letras en rupias indias usando código VBA, es posible que debas agregar la pestaña Desarrollador en tu cinta de opciones para abrir la función de VBA.
Estos son los pasos para habilitar la pestaña Desarrollador en Excel:
Paso 1: Abre la hoja de cálculo de Excel que contiene los números que deseas convertir.
Paso 2: Haz clic en Archivo y elige Opciones en la lista.
Paso 3: En las Opciones de Excel, elige Personalizar cinta de opciones.
Paso 4: Elige Todas las pestañas en la opción Comandos disponibles en.
Paso 5: Busca Desarrollador en la lista y haz clic en Agregar.
Paso 6: Haz clic en Aceptar.
Ahora, estos son los pasos para convertir números a letras en rupias indias usando código VBA:
Paso 1: Abre la hoja de cálculo de Excel que contiene los números que deseas convertir.
Paso 2: Haz clic en la pestaña Desarrollador. Si no ves esta pestaña, sigue los pasos anteriores para habilitarla.
Paso 3: Haz clic en Visual Basic o usa el atajo de teclado Alt + F11.
Paso 4: Haz clic en Insertar y elige Módulo.
Paso 5: Pega el código VBA proporcionado en la referencia.
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 |
|---|
Paso 5: Guarda (Ctrl + S) y cierra el editor de VBA. Elige Libro de Excel habilitado para macros al guardar.
Paso 6: Ingresa la fórmula =RupeeFormat(celda_a_mostrar) en la celda donde deseas mostrar el texto y presiona Enter.
Paso 7: Se mostrará el resultado. Arrastra hacia abajo para aplicar la fórmula a otras celdas.
Los números en el rango seleccionado se convertirán a letras en rupias indias.
Método 2: Convertir números a letras en rupias indias en Excel (método común)
Aprende el método común para convertir números a letras en rupias indias en Excel, un paso muy útil al preparar facturas para contabilidad.
Paso 1: Abre la hoja de cálculo de Excel que contiene los números que deseas convertir.
Paso 2: Haz clic derecho en el nombre de la hoja y selecciona Ver código para abrir la aplicación VBA. Esto también es útil para el análisis de datos en Excel.
Paso 3: Haz clic en Insertar y elige Módulo.
Paso 4: Pega el código VBA proporcionado en la referencia.
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 |
|---|
Paso 5: Elige Libro de Excel habilitado para macros en Guardar como tipo. Cierra la ventana del editor de VBA.
Paso 6: Ingresa la fórmula =RupeeFormat(celda_a_mostrar) en la celda seleccionada para mostrar el resultado.
Paso 7: Arrastra hacia abajo para aplicar la fórmula a otras celdas después de que aparezcan los resultados en la celda seleccionada.
Los números en el rango seleccionado se convertirán a letras en rupias indias.
La mejor alternativa gratuita a Microsoft Office: WPS Office
Además de Microsoft Office, te ofrezco otra aplicación: WPS Office. Entonces, ¿qué es WPS?
WPS Office es una suite ofimática gratuita y de código abierto compatible con Microsoft Office. Incluye un procesador de textos, hoja de cálculo, software de presentaciones y un lector de PDF, para que puedas abrir, editar y guardar archivos fácilmente. Además, es muy fácil de usar, incluso para personas sin experiencia previa en suites ofimáticas.
No solo eso, WPS Office es una potente suite ofimática que ofrece una amplia gama de funciones. Es una excelente alternativa a NeoOffice, especialmente para estudiantes y empresas con presupuesto limitado.
Echa un vistazo rápido a algunas de las características de WPS:
● Uso gratuito de Word, Excel y PPT. Potentes herramientas para PDF
● Amplia tienda de plantillas
● Numerosas funciones, incluye asistentes de currículum, formularios inteligentes, grabación de pantalla, reparación de archivos y otras pequeñas herramientas integradas en el producto
● El peso ligero del producto es de solo 200 MB y ocupa muy poca memoria de la computadora.
● La versión para Mac de WPS Office es muy potente. Microsoft Office ignora la experiencia de los usuarios de Mac, algo que WPS Office logra compensar.
● Compatible con documentos en línea (WPS AirPage), edición colaborativa entre varias personas
● WPS Office también es compatible con sistemas Linux, Android e iOS. Para usar los productos de WPS Office en diferentes sistemas, solo necesitas iniciar sesión con la misma cuenta y todos tus archivos se sincronizarán.
¿Sientes que WPS Office es la mejor opción para ti y quieres descargarlo? Visita el sitio web oficial: https://www.wps.com y descárgalo ahora.
Cómo descargar WPS Office
Paso 1: Visita el sitio web de WPS Office: wps.com.
Paso 2: Haz clic en el botón "Descarga gratuita".
Paso 3: Selecciona el lugar donde deseas guardar WPS Office -> Guardar.
Paso 4: Haz doble clic en el archivo de WPS Office en tu carpeta de descargas, haz clic en "Ejecutar" y sigue las instrucciones en pantalla para instalarlo.
Paso 5: Una vez completado, podrás disfrutar de todo el poder de WPS Office.
Preguntas frecuentes:
P1: ¿Cómo convierto moneda a texto en Excel con VBA?
Puedes usar VBA (Visual Basic para Aplicaciones) para convertir moneda a texto en Excel. Necesitarás escribir una macro VBA personalizada para realizar esta conversión. Puedes encontrar ejemplos y fragmentos de código en línea o consultar la documentación de VBA para Excel para guiarte.
P2: ¿Cómo convertir moneda a texto en palabras en Excel?
Para convertir moneda a letras en Excel, generalmente se usa una combinación de funciones y formato personalizado. Puedes encontrar varios tutoriales y guías en línea que explican cómo lograr esto.
P3: ¿Cómo dar formato a números en Excel para rupias indias?
Para dar formato a números en rupias indias en Excel, puedes usar las opciones integradas de formato de moneda. Selecciona la celda o el rango que deseas formatear, ve a la pestaña "Número" en el cuadro de diálogo Formato de celdas y elige la categoría "Moneda". Desde allí, puedes seleccionar "₹ Inglés (India)" como símbolo de moneda.
P4: ¿Cómo convierto números a texto en Excel automáticamente?
Existen varias formas de convertir números a texto en Excel de forma automática. Puedes usar funciones de Excel como TEXTO, CONCAT o formatos personalizados. También puedes utilizar macros VBA para una automatización más avanzada.
P5: ¿Cómo convertir dólares estadounidenses a rupias indias en Excel?
Para convertir dólares estadounidenses a rupias indias en Excel, puedes usar una combinación de funciones de Excel y servicios web o fuentes de datos externas que proporcionen tipos de cambio. El formato "Moneda" de Excel también se puede usar para mostrar montos en rupias indias después de obtener el tipo de cambio.
P6: ¿Quieres usar Excel Online para un trabajo más sencillo?
Si prefieres trabajar en la nube, Excel Online ofrece las mismas potentes funciones para ayudarte a administrar y limpiar tus datos desde cualquier lugar. Con Excel Online, puedes usar las mismas funciones para eliminar caracteres del lado izquierdo o derecho de tus datos, lo que lo convierte en una excelente opción para quienes necesitan flexibilidad o no tienen acceso a una versión de escritorio de Excel.
Resumen:
Aprende cómo convertir fácilmente cantidades numéricas a letras en rupias indias dentro de Excel, usando código VBA o un método común. Primero, habilita la pestaña Desarrollador en Excel, agrega el código VBA proporcionado y usa la fórmula =RupeeFormat(celda_a_mostrar).
Alternativamente, haz clic derecho en el nombre de la hoja para acceder a VBA, inserta un módulo, pega el código y emplea la misma fórmula. Estos métodos fáciles de usar también son compatibles con WPS Office, una alternativa gratuita a Microsoft Office que permite aplicar formatos precisos y profesionales a tus documentos de forma muy sencilla.
'%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)
