Skip to main content

¿Cómo Hacer Que Excel Escriba Automáticamente La Cantidad En Palabras?

Excel es una poderosa herramienta para trabajar con tablas y c lculos. Sin embargo, a pesar de todas sus funcionalidades, algunas tareas elementales pueden ser dif ciles. Por ejemplo, c mo convertir un valor num rico en una vista de texto, es decir, para que Excel escriba autom ticamente la suma en letras may sculas?

No hay una funci n incorporada que, sin configuraciones adicionales, convierta un n mero en texto en Excel. Sin embargo, usando una f rmula especial y creando un peque o programa de macro, esto se puede implementar.

Para empezar, cree un nuevo libro de Excel y vaya al modo desarrollador. Para hacerlo, seleccione la pesta a Archivo en el men superior, luego Opciones, opciones de Excel y Active la opci n Desarrollador. Despu s de eso, aparecer la pesta a Desarrollador en el men superior.

  1. C mo registrar autom ticamente la cantidad en palabras en Excel?
  2. M todo 1: usando la f rmula
  3. M todo 2: usar una macro
  4. Conclusi n
  5. Uso de la funci n de escritura cursiva
  6. Instalaci n de una extensi n adicional
  7. Formato de celda
  8. 1. Selecci n de valores espec ficos
  9. 2. Configuraci n del formato num rico
  10. 3. Uso de tablas
  11. 4. Aplicar estilos
  12. Aplicaci n de una f rmula personalizada
  13. Uso de macros para la prescripci n autom tica

C mo registrar autom ticamente la cantidad en palabras en Excel?

El programa Microsoft Excel no tiene una funci n incorporada para registrar autom ticamente la cantidad en palabras. Sin embargo, hay varias formas de implementar esta funci n utilizando f rmulas y macros.

M todo 1: usando la f rmula

Puede utilizar una f rmula que contenga las funciones TEXT y SUBSTITUTE para convertir autom ticamente un n mero de suma al formato de texto. Por ejemplo, si el n mero est en la celda A1, puede usar la siguiente f rmula:

=SUBSTITUTE(TEXT(A1,"0.00"),".", "RUB.", 1)&"COP."

Esta f rmula primero convierte el n mero en texto con dos decimales, luego reemplaza el punto entre rublos y centavos con el texto "frotar" y agrega la palabra "COP" al final. El resultado se mostrar en una celda en formato cursiva.

M todo 2: usar una macro

Otra forma de escribir una suma en may sculas es usar una macro en Excel. A continuaci n se muestra un ejemplo de una macro que convertir un n mero de suma en un formato de texto en cursiva:

Sub Autotransporte()

Dim Value As String

Dim Result As String

Dim decimalSep As String

decimalSep = Application.DecimalSeparator

  1. Value = CStr(ActiveCell.Value)
  2. Resultado = (Valor, s, " ", " ", " ") & "" & (CInt ((Valor - CLng (Valor)) * 100), s, " ", " "," ")
  3. ActiveCell.Valor = Resultado & ""
  4. Sub Final

Funci n (N mero, s, uno, dos, cinco)

Dim Rub Como Variante

Dim kop Como Variante

Atenuar El Resultado Como CadenaDim TempVal Como Variante
Dim FracVal Como VarianteDim DecimalSeparator Como Cadena
Dim Separador de Grupos Como CadenaAtenuar i Como Entero
Dim DecimalPartSep Como CadenaSeparador decimal = Mid(Aplicaci n.Formato(0, 1), 2, 1)
GroupSeparator = Mid (Aplicaci n.Formato(0, 2), 2, 1)DecimalPartSep = Mid(Aplicaci n.Formato(0.05, 0), 2, 1)
Si el N mero < 0 Entonces & (- N mero, s, uno, dos, cinco)Funci n de salidaend IfIf Int (N mero) N mero Entonces "0.00"), Separador decimal) s, uno, dos, cinco) Si CInt(TempVal(1))> 0 Entonceskop = GetNumInWords (CInt(TempVal (1)), s, " ", " ", " ")

Finalizar Si

Resultado = Rub & IIf (Rub"", "" & one, one) & IIf (TempVal(1) "0", "" & DecimalPartSep & StrConv (kop, vbLowerCase),"")

Otra cosa

Resultado = GetNumInWords (N mero, s, uno, dos, cinco)

Resultado = Resultado & ""& uno & DecimalPartSep & "00"

Finalizar Si

= Resultado

Funci n Final

Funci n GetNumInWords (N mero ByVal, s, uno, dos, cinco)

Dim DecimalSeparator Como Cadena

Dim Separador de Grupos Como Cadena

Dim v Como Variante

Atenuar w Como Cadena

Dim DecimalPart Como Cadena

Dim DecimalPartStr Como Cadena

Separador decimal = Mid(Aplicaci n.Formato(0, 1), 2, 1)

GroupSeparator = Mid (Aplicaci n.Formato(0, 2), 2, 1)

Si Es el N mero 12, Entonces

GetNumInWords = " * * * ***"

Funci n de Salida

Finalizar Si

Hacer Mientras N mero ""

v = ""

Seleccionar Lente de la carcasa (N mero)

Caso 1

w = N mero

N mero=""

Caso 2

w = N mero

N mero=""

Caso 3

w = Derecha (N mero, 1)

N mero = Izquierda (N mero, 2)

Caso Contrario

w = Derecha (N mero, 1)

  1. N mero = Izquierda (N mero, Len (N mero) - 1)
    • Selecci n Final
  2. Seleccionar caso Val (w)
  3. Caso 1: v = " "
  4. Caso 2: v = " "

Caso 3: v =" "

Caso 4: v = " "

Caso 5: v = " "

Caso 6: v = " "

Caso 9: v = " "

Selecci n Final

Seleccionar Estuche Lente (N mero) Mod 3