Tabla de contenido
Las hojas de cálculo son utilizadas por muchas personas en su trabajo diario, lo que las convierte en un elemento importante de su oficina. Aunque la mayoría de la gente utiliza las hojas de cálculo de forma razonablemente básica, a algunos usuarios avanzados les resulta difícil o complicado convertir números en palabras En esta guía, hemos abordado esta cuestión y hemos proporcionado cuatro diferentes métodos para convertir números en palabras en Excel. Además, hay tres más métodos para conversión de números a formatos de texto .
Descargar el cuaderno de ejercicios
Puedes descargarte el cuaderno que hemos utilizado en este artículo y practicar con él.
Convertir números en palabras.xlsm4 maneras de convertir números en palabras en Excel
En esta sección del artículo se explica cómo convertir números en palabras en Excel. Además, vamos a demostrar cuatro para realizar la operación. Para llevar a cabo la sesión, vamos a utilizar Versión de Microsoft 365 .
1. Uso de funciones combinadas en Excel para convertir números en palabras
La fórmula de Excel que utilizamos aquí se basa en cuatro funciones. IZQUIERDA , MID , TEXTO , y ELEGIR funciones.
En primer lugar, la sintaxis del IZQUIERDA es la siguiente:
Básicamente, esta función se utiliza para extraer caracteres de un texto.
=LEFT (texto, [num_chars])Texto: La cadena de texto de la que extraer los caracteres.
num_chars [Opcional]: El número de caracteres a extraer. Empieza por la izquierda. Por defecto, num_chars=1 .
En segundo lugar, la sintaxis del MID es la siguiente:
En realidad, esta función se utiliza para extraer texto del interior de una cadena.
=MID (texto, start_num, num_chars)Texto: El texto a extraer.
start_num: La ubicación del primer carácter a extraer.
num_chars: El número de caracteres a extraer.
En tercer lugar, la sintaxis del TEXTO es la siguiente:
Finalmente, esta función convierte un número en un texto en formato numérico.
=TEXT (valor, formato_texto)valor: El número a convertir.
format_text: El formato numérico a utilizar.
A continuación, la sintaxis de la ELEGIR es la siguiente:
Esta función obtiene un valor de una lista basándose en la posición.
=CHOOSE (index_num, value1, [value2], ...)index_num: El valor a elegir. Un número entre 1 y 254 .
valor1: El primer valor entre los que elegir.
valor2 [opcional]: El segundo valor entre los que elegir.
- Aquí, convertiremos el número en Números en palabras columna.
- Ahora, escriba la siguiente fórmula en el C5 celda.
=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,, "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve")
&IF(–LEFT(TEXT(B5,”000000000.00″))=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),2,1)=0,–MID(TEXT(B5,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))
&CHOOSE(MID(TEXT(B5, "000000000.00″),2,1)+1,,, "Veinte ", "Treinta ", "Cuarenta ", "Cincuenta ", "Sesenta ", "Setenta ", "Ochenta ", "Noventa ")
&IF(-MID(TEXT(B5, "000000000.00″),2,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1,, "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve"),
CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Diez", "Once", "Doce", "Trece", "Catorce", "Quince", "Dieciséis", "Diecisiete", "Dieciocho", "Diecinueve"))
&IF((–LEFT(TEXT(B5,”000000000.00″))+MID(TEXT(B5,”000000000.00″),2,1)+MID(TEXT(B5,”000000000.00″),3,1))=0,,IF(AND((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1)+MID(TEXT(B5,”000000000.00″),7,1))=0,(–MID(TEXT(B5,”000000000.00″),8,1)+RIGHT(TEXT(B5,”000000000.00″)))>0),” Million and “,” Million “))
&CHOOSE(MID(TEXT(B5, "000000000.00″),4,1)+1,, "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve")
&IF(–MID(TEXT(B5,”000000000.00″),4,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),5,1)=0,–MID(TEXT(B5,”000000000.00″),6,1)=0),” Hundred”,” Hundred and”))
&CHOOSE(MID(TEXT(B5, "000000000.00″),5,1)+1,,," Veinte"," Treinta"," Cuarenta"," Cincuenta"," Sesenta"," Setenta"," Ochenta"," Noventa")
&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Uno"," Dos"," Tres"," Cuatro"," Cinco"," Seis"," Siete"," Ocho"," Nueve"),CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Diez"," Once"," Doce"," Trece"," Catorce"," Quince"," Dieciséis"," Diecisiete"," Dieciocho"," Diecinueve"))
&IF((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000.00″),7,1)+MID(TEXT(B5,”000000000.00″),8,1)+MID(TEXT(B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”000000000.00″),7,1)0),” Thousand “,” Thousand and “))
&CHOOSE(MID(TEXT(B5, "000000000.00″),7,1)+1,, "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve")
&IF(–MID(TEXT(B5,”000000000.00″),7,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),8,1)=0,–MID(TEXT(B5,”000000000.00″),9,1)=0),” Hundred “,” Hundred and “))&
CHOOSE(MID(TEXT(B5, "000000000.00″),8,1)+1,,, "Veinte ", "Treinta ", "Cuarenta ", "Cincuenta ", "Sesenta ", "Setenta ", "Ochenta ", "Noventa ")
&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,, "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve"),CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1, "Diez", "Once", "Doce", "Trece", "Catorce", "Quince", "Dieciséis", "Diecisiete", "Dieciocho", "Diecinueve"))
Toda la fórmula puede parecer complicada a primera vista, sin embargo, es esencialmente una repetición de una sola porción. Por lo tanto, si usted puede entender la primero de la fórmula, deberías ser capaz de entender el resto.
- A continuación, pulse INTRODUCE .
Como resultado, verá la siguiente salida.
Desglose de fórmulas:
Al principio, el TEXTO se utiliza aquí para convertir el número en un "000000000.00" formato de texto.
TEXT(B7,”000000000.00″)
Después, el IZQUIERDA se utiliza para extraer el carácter situado más a la izquierda del número. Nos permite identificar si el número devuelto es cero o cualquier otro valor.
LEFT(TEXT(B7,”000000000.00″))
A continuación, el ELEGIR se utiliza para representar el número extraído con las palabras adecuadas.
CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve")
Ahora, comprueba si el valor es cero o no. Si es cero entonces no muestra nada.
CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve")
&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,
Mostrará "Cien" si el siguiente dos números son cero De lo contrario, mostrará "Ciento y".
CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve")
&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”000000000.00″),2,1)=0,–MID(TEXT(B7,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))
Esta fórmula no requiere VBA o matrices. Es un método excelente para convertir números en palabras. Sin embargo, tiene dos defectos. Uno, no puede representar perfectamente números decimales después de puntos. Dos, el límite máximo de números es 999, 999, 999 ...en realidad, Sr. Pete M. se le ocurrió esta fórmula.
- Ahora, puede escribir la fórmula para el resto de las filas o simplemente utilizar Función de autorrelleno de Excel .
Por último, obtendrá todos los convertir números en palabras .
Más información: Cómo convertir un número en texto con 2 decimales en Excel (5 maneras)
2. Aplicación de la función VLOOKUP para convertir números en palabras
Puede solicitar el VLOOKUP para convertir números en palabras en Excel. Hagamos algo diferente. Aquí, primero tienes que insertar todos los números en palabras y luego puedes usar esta función para convertir cualquier número en palabras a partir de ellos.
Pasos:
- En primer lugar, escriba manualmente todos los números en palabras en el Columna C .
- Ahora, utilice la siguiente fórmula en el C12 celda.
=VLOOKUP(B12,B4:C9,2,FALSE)
- A continuación, pulse INTRODUCE .
Desglose de fórmulas
En esta fórmula, el VLOOKUP devolverá un valor de un array dado.
- En primer lugar, B12 es el valor que busca en la tabla dada.
- En segundo lugar, B4:C9 es el tabla array en el que busca el valor objetivo .
- Tercero, 2 es el número de columnas de la tabla de la que debe devolverse un valor.
- En cuarto lugar, Falso denota un exacto partido.
Más información: Cómo Convertir Número a Texto para VLOOKUP en Excel (2 Maneras)
Lecturas similares
- Cómo convertir número a texto en Excel con apóstrofo
- Convertir Número en Texto con Triángulo Verde en Excel
- Cómo Convertir Número a Texto con Comas en Excel (3 Métodos Fáciles)
- Convertir Número a Texto sin Notación Científica en Excel
- Cómo convertir números en pesos a palabras en Excel (con pasos sencillos)
3. Uso de VBA para convertir números en palabras en Excel
Lo más interesante es que puedes construir tu función propia a convertir los números en palabras en Excel. Además, puede emplear el código VBA para desarrollar un definido A continuación se indican los pasos a seguir.
Pasos :
- En primer lugar, debe elegir el Desarrollador y, a continuación, seleccione Visual Basic.
- Ahora, desde el Inserte tab>> tienes que seleccionar Módulo .
- En este momento, debe anotar lo siguiente Código en el Módulo .
Function número_convertir_en_palabras(ByVal MiNúmero) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_string_Num Dim x_pnt As String Dim x_numb As String Dim x_P() As Variant Dim x_DP Dim x_cnt As Integer Dim x_output, x_T As String Dim x_my_len As Integer On Error Resume Next x_P = Array("", "Mil ", "Millón ", "Billón ", "Trillón ", " ", " ", " " ", " " ") x_numb =Trim(Str(MyNumber)) x_DP = InStr(x_numb, ".") x_pnt = "" x_string_Num = "" If x_DP> 0 Then x_pnt = " point " x_string = Mid(x_numb, x_DP + 1) x_string_pnt = Left(x_string, Len(x_numb) - x_DP) For whole_num = 1 To Len(x_string_pnt) x_string = Mid(x_string_pnt, whole_num, 1) x_pnt = x_pnt & get_digit(x_string) & " " Next whole_num x_numb = Trim(Left(x_numb, x_DP - 1)) End If x_cnt = 0x_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1 Do While x_numb "" If x_my_len = x_cnt Then x_T = get_hundred_digit(Right(x_numb, 3), False) Else If x_cnt = 0 Then x_T = get_hundred_digit(Right(x_numb, 3), True) Else x_T = get_hundred_digit(Right(x_numb, 3), False) End If End If If x_T "" Then x_output = x_T& x_P(x_cnt) & x_output End If Len(x_numb)> 3 Then x_numb = Left(x_numb, Len(x_numb) - 3) Else x_numb = "" End If x_cnt = x_cnt + 1 Loop x_output = x_output & x_pnt number_converting_into_words = x_output End Function Function get_hundred_digit(xHDgt, y_b As Boolean) Dim x_R_str As String Dim x_string_Num As String Dim x_string As String Dim y_I As Integer Dim y_bb As Booleanx_string_Num = xHDgt x_R_str = "" On Error Resume Next y_bb = True If Val(x_string_Num) = 0 Then Exit Function x_string_Num = Right("000" & x_string_Num, 3) x_string = Mid(x_string_Num, 1, 1) If x_string "0" Then x_R_str = get_digit(Mid(x_string_Num, 1, 1)) & "Hundred " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " " y_bb = False End If End If Mid(x_string_Num, 2, 2)"00" Then x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb) End If get_hundred_digit = x_R_str End Function Function get_ten_digit(x_TDgt, y_b As Boolean) Dim x_string As String Dim y_I As Integer Dim x_array_1() As Variant Dim x_array_2() As Variant Dim x_T As Boolean x_array_1 = Array("Diez ", "Once ", "Doce ", "Trece ", "Catorce ", "Quince ", "Dieciséis ", "Diecisiete ","Eighteen ", "Nineteen ") x_array_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") x_string = "" x_T = True On Error Resume Next If Val(Left(x_TDgt, 1)) = 1 Then y_I = Val(Right(x_TDgt, 1)) If y_b Then x_string = "and " x_string = x_string & x_array_1(y_I) Else y_I = Val(Left(x_TDgt, 1)) If Val(Left(x_TDgt, 1))> 1 Then If y_b Thenx_string = "y " x_string = x_string & x_array_2(Val(Izquierda(x_TDgt, 1)) x_T = False End If If x_string = "" Then If y_b Then x_string = "y " End If End If If Derecha(x_TDgt, 1) "0" Then x_string = x_string & get_digit(Derecha(x_TDgt, 1)) End If End If get_ten_digit = x_string End Function Function get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("Cero ","Uno ", "Dos ", "Tres ", "Cuatro ", "Cinco ", "Seis ", "Siete ", "Ocho ", "Nueve ") x_string = "" On Error Resume Next x_string = x_array_1(Val(xDgt)) get_digit = x_string End Function
- Ahora, tienes que guardar el código .
- A continuación, debe ir a la página Hoja de cálculo Excel .
En este momento, puede utilizar su definido Para ello, siga estos pasos.
Pasos:
- Ahora, seleccione la celda que desea mostrar la salida convertida. (En nuestro caso, la celda C5 ).
- A continuación, introduzca el Signo igual (=) en la celda. Debería permitirte escribir fórmulas.
- A continuación, escriba " =número_convertir_en_palabras " o seleccione el botón número_convertir_en_palabras del menú desplegable.
- A continuación, seleccione la celda con el valor numérico que desea convertir en palabras (en nuestro caso, la celda B5 ).
- Por último, pulsa el botón INTRODUCE botón.
Como resultado, convertirá el número de la celda seleccionada en las palabras correspondientes. Por último, puede copiar esta fórmula en el resto de las celdas.
Más información: Cómo convertir un valor numérico en palabras inglesas en Excel
4. Empleo de VBA para la redacción de divisas en Excel
Este método es similar al anterior. También funciona insertando un módulo mediante VBA (Visual Basic para Aplicaciones) En lo que difiere del último método es en que convierte los números en palabras monetarias adecuadas. Además, a continuación se ofrece un ejemplo.
375,65=Trescientos setenta y cinco dólares con sesenta y cinco céntimosAhora, siga estos pasos para aplicar este método:
- En primer lugar, siga método-3 para insertar el módulo.
- En segundo lugar, escriba el siguiente código en Módulo 2 .
Function Convert_Number_into_word_with_currency(ByVal whole_number) Dim converted_into_dollar, converted_into_cent my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") whole_number = Trim(Str(whole_number)) x_decimal = InStr(whole_number, ".") If x_decimal> 0 Then converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2)) whole_number =Trim(Left(whole_number, x_decimal - 1)) End If xIndex = 1 Do While whole_number "" xHundred = "" xValue = Right(whole_number, 3) If Val(xValue) 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) "0" Then xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred " End If If Mid(xValue, 2, 1) "0" Then xHundred =xCien & get_ten(Media(xValor, 2)) Else xCien = xCien & get_digit(Media(xValor, 3)) End If End If xCien "" Then converted_into_dollar = xCien & my_ary(xIndex) & Dollar End If Len(numero_entero)> 3 Then numero_entero = Left(numero_entero, Len(numero_entero) - 3) Else numero_entero = "" End IfxIndex = xIndex + 1 Loop Select Case converted_into_dollar Case "" converted_into_dollar = " Zero Dollar" Case "One" converted_into_dollar = " One Dollar" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Select Case converted_into_cent Case "" converted_into_cent = " and Zero Cent" Case "One"convertido_en_centavo = " y Un Centavo" Caso Else convertido_en_centavo = " y " & convertido_en_centavo & "Centavos" End Select Convertir_Numero_en_palabra_con_moneda = convertido_en_dolar & convertido_en_centavo End Function Function get_ten(pTens) Dim my_output As String my_output = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Caso 10: my_output= "Diez" Caso 11: mi_salida = "Once" Caso 12: mi_salida = "Doce" Caso 13: mi_salida = "Trece" Caso 14: mi_salida = "Catorce" Caso 15: mi_salida = "Quince" Caso 16: mi_salida = "Dieciséis" Caso 17: mi_salida = "Diecisiete" Caso 18: mi_salida = "Dieciocho" Caso 19: mi_salida = "Diecinueve" Caso Else End Select ElseSelect Case Val(Left(pTens, 1)) Case 2: my_output = "Veinte " Case 3: my_output = "Treinta " Case 4: my_output = "Cuarenta " Case 5: my_output = "Cincuenta " Case 6: my_output = "Sesenta " Case 7: my_output = "Setenta " Case 8: my_output = "Ochenta " Case 9: my_output = "Noventa " Case Else End Select my_output = my_output & get_digit(Right(pTens, 1)) End If get_ten =my_output End Function Función get_digit(pDigit) Select Case Val(pDigit) Case 1: get_digit = "Uno" Case 2: get_digit = "Dos" Case 3: get_digit = "Tres" Case 4: get_digit = "Cuatro" Case 5: get_digit = "Cinco" Case 6: get_digit = "Seis" Case 7: get_digit = "Siete" Case 8: get_digit = "Ocho" Case 9: get_digit = "Nueve" Case Else: get_digit = "" End Select EndFunción
Como resultado, puede utilizar su definido función denominada Convertir_número_en_palabra_con_moneda Para ello, siga estos pasos.
Pasos:
- Ahora debe seleccionar una celda en la que desee guardar el resultado. Nosotros hemos seleccionado la celda C5 celda.
- A continuación, debe utilizar la fórmula correspondiente en el campo C5 celda.
=Convertir_número_en_palabra_con_moneda(B5)
- A continuación, pulse INTRODUCE .
- Por último, utilice el programa Excel Autorrelleno para el resto de células C6:C9 .
Por último, obtendrá todo el importe convertido.
Más información: Cómo convertir un número en texto y mantener los ceros al final en Excel (4 maneras)
Cómo convertir números a formato de texto en Excel
Hasta ahora, hemos hablado de cómo convertir números en palabras En esta sección del artículo se explica cómo cambiar los números a formato de texto en Excel. Es el método más sencillo y rápido para convertir números en texto.
Siga estos pasos para aplicar este método:
- En primer lugar, seleccione la celda o celdas con valores numéricos que desea convertir en texto (en nuestro caso, la celda C5:C9 )
- En segundo lugar, vaya a Inicio y seleccione la pestaña Texto en el menú desplegable de categorías de celdas, en la opción Número sección.
Como resultado, convertirá el valor numérico de las celdas seleccionadas en texto. Puedes entenderlo observando las alineaciones. Por defecto, los textos están alineados a la izquierda y los números a la derecha en Excel.
O puede pulsar CTRL+1 para abrir la ventana denominada Formatear celdas y seleccione el Número y, a continuación, seleccione la opción Texto categoría a partir de ahí.
Más información: Excel VBA para Convertir Número a Texto (4 Ejemplos)
Sección práctica
Para practicar, hemos añadido una parte de Práctica en cada hoja de la parte derecha.
Conclusión
Hemos intentado hacer de este artículo una guía definitiva sobre cómo convertir números en palabras o texto adecuados en MS Excel Además, hemos reducido siete diferentes técnicas en este artículo para que puedas elegir la opción ideal que mejor se adapte a tu situación concreta. Así pues, esperamos que encuentres la solución que estabas buscando. Por favor, deja un comentario si tienes alguna sugerencia o pregunta. Gracias.