Macro de número a texto para calificaciones

Soy profesor y tengo la necesidad de que los promedios de mis alumnos que escribo en una hoja de excel sean convertidos a texto de la siguiente manera: 5.0 convertir a CINCO PUNTO CERO, 6.8 a SEIS PUNTO OCHO, los números son de 5.0 a 10.0 con sun respectivos decimales, separados por la palabra punto, como coloque en los dos ejemplos.

2 Respuestas

Respuesta
1
Yo creo que se está haciendo problemas con la famosa macro.
Lo que debería hacer en este caso es usar la misma macro con unas pequeñas modificacionespara usarla como una función definida por el usuario. En este caso se llama "NumPuntoNum", para que la use como cualquier función normal de Excel, y se debe grabar en un módulo como cualquier macro.
Este es el código:
Function NumPuntoNum(valor)
Dim INI As Integer
Dim letra As String
Dim letra1 As String
FIN = Right(valor, 1)
INI = Left(valor, 2)
If INI = 1 Then
letra = "UNO"
End If
If INI = 2 Then
letra = "DOS"
End If
If INI = 3 Then
letra = "TRES"
End If
If INI = 4 Then
letra = "CUATRO"
End If
If INI = 5 Then
letra = "CINCO"
End If
If INI = 6 Then
letra = "SEIS"
End If
If INI = 7 Then
letra = "SIETE"
End If
If INI = 8 Then
letra = "OCHO"
End If
If INI = 9 Then
letra = "NUEVE"
End If
If INI = 0 Then
letra = "CERO"
End If
If INI = 10 Then
letra = "DIEZ"
End If
If FIN = 1 Then
letra1 = "UNO"
End If
If FIN = 2 Then
letra1 = "DOS"
End If
If FIN = 3 Then
letra1 = "TRES"
End If
If FIN = 4 Then
letra1 = "CUATRO"
End If
If FIN = 5 Then
letra1 = "CINCO"
End If
If FIN = 6 Then
letra1 = "SEIS"
End If
If FIN = 7 Then
letra1 = "SIETE"
End If
If FIN = 8 Then
letra1 = "OCHO"
End If
If FIN = 9 Then
letra1 = "NUEVE"
End If
If FIN = 0 Then
letra1 = "CERO"
End If
NumPuntoNum = letra & " PUNTO " & letra1
End Function
Hola juan:
Muchísimas gracias, funciona a la perfección. Te reitero mi agradecimiento. Pero disculpa otra pregunta y si deseo que esta función se quede fija cada que abra excel. ¿Se puede?
"Un maestro oriental que vio cómo un alacrán se estaba ahogando, decidió sacarlo del agua, pero cuando lo hizo, el alacrán lo picó.
Por la reacción al dolor, el maestro lo soltó, y el animal cayó al agua y de nuevo estaba ahogándose. El maestro intentó sacarlo otra vez, y otra vez el alacrán lo picó.
Alguien que había observado todo, se acercó al maestro y le dijo: "Perdone, ¡pero usted es terco! ¿No entiende que cada vez que intente sacarlo del agua lo picará?".
El maestro respondió: " La naturaleza del alacrán es picar, y eso no va a cambiar la mía, que es ayudar". Y entonces, ayudándose de una hoja, el maestro sacó al animalito del agua y le salvó la vida" JUAN NUNCA CAMBIES TU NATURALEZA, RECUERDA ALGUNOS PERSIGUEN LA FELICIDAD, OTROS LA CREAN.
profr. Marcos calleja guerrero
[email protected]
Respuesta
1
Vamos a suponer que tu tienes tus calificaciones en la columna A desde A1 en adelante y queremos poner las calificaciones en Texto en la columna B desde la B1 en adelante la macro quedaría así:
Sub NumALetra()
Dim valor As String
Dim INI As Integer
Dim letra As String
Dim letra1 As String
Range("B1").Select
Do While ActiveCell.Offset(0, -1).Value <> ""
valor = ActiveCell.Offset(0, -1).Text
FIN = Right(valor, 1)
INI = Left(valor, 2)
If INI = 1 Then
letra = "UNO"
End If
If INI = 2 Then
letra = "DOS"
End If
If INI = 3 Then
letra = "TRES"
End If
If INI = 4 Then
letra = "CUATRO"
End If
If INI = 5 Then
letra = "CINCO"
End If
If INI = 6 Then
letra = "SEIS"
End If
If INI = 7 Then
letra = "SIETE"
End If
If INI = 8 Then
letra = "OCHO"
End If
If INI = 9 Then
letra = "NUEVE"
End If
If INI = 0 Then
letra = "CERO"
End If
If INI = 10 Then
letra = "DIEZ"
End If
If FIN = 1 Then
letra1 = "UNO"
End If
If FIN = 2 Then
letra1 = "DOS"
End If
If FIN = 3 Then
letra1 = "TRES"
End If
If FIN = 4 Then
letra1 = "CUATRO"
End If
If FIN = 5 Then
letra1 = "CINCO"
End If
If FIN = 6 Then
letra1 = "SEIS"
End If
If FIN = 7 Then
letra1 = "SIETE"
End If
If FIN = 8 Then
letra1 = "OCHO"
End If
If FIN = 9 Then
letra1 = "NUEVE"
End If
If FIN = 0 Then
letra1 = "CERO"
End If
ActiveCell.Value = letra & " PUNTO " & letra1
ActiveCell.Offset(1, 0).Select
Loop
End Sub
La macro recorrerá toda la fila A hasta que encuentre una vacía y irá poniendo en la celda contigua la calificación en el formato que deseas.
Si necesitas alguna aclaración me lo dices, si te ha servido puntúa y finaliza la consulta. Gracias.
>Un saludo
>Julio
Julio muchas gracias por tu aportación, es muy interesante, aunque el texto no lo quiero precisamente en la columna "B" ni los números en la columna "A"; sin embargo supongo que esto lo puedo modificar en el módulo. Ojalá lo pueda hacer, en caso de que no espero me permitas solicitarte apoyo. Te reitero mi agradecimiento.
profr. Marcos calleja guerrero

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Qué fórmula aplico para convertir números a letras en excel?

Me gustaría saber que fórmula aplico para convertir números a letras en excel. Ejemplo si en una celda coloco el valor 12'000.000 como hago para que en otra celda cualquiera me aparezca doce millones de pesos M/C
2 respuestas

Conversión numero a letras

Quisiera consultarte si existe alguna función o rutina que, dado un número en una celda, me transforme ese valor a palabras (ej: 1500 -> mil quinientos) en Excel
1 respuesta

Como Convertir Precio A Letras En Access Cuando Aparece S/1062 En Letras Que Aparezca mil sesenta y dos 00/100

Como Convertir Precio A Letras En Access Cuando Aparece S/1062 En Letras Que Aparezca mil sesenta y dos 00/100 por favor lo necesito urgente tengo un codigo tal vez ay que modificarlo este es parte de mencionado codigo Option Compare Database Option...
1 respuesta

De Números a Letras en Excel 2007

Alguien que me pueda ayudar estoy haciendo un pequeño formato pero no he podido hacer que un promedio que se genera de calificaciones me lo ponga en letras también si el promedio es 8.5 tenemos que poner OCHO PUNTO CINCO. Estas calificaciones van...
1 respuesta

Cifras de números a letras

Andi DE vuelta. Sabés que un importe, por ejemplo, 7.300.- aparece en letras SIETE TRESCIENTAS ¿Qué puede pasar?
1 respuesta

VBA Código para pasar números a letras en excel

Tengo una macro que me escribe en letras el numero dentro de una celda. Necesitaría saber que cambio debo hacerle a mi formula para que cuando el valor sea 21021 me ponga "Veintiun Mil Veintiuno" o no "Veintiun Mil Veintiun". Function NumLetras(Valor...
1 respuesta

Ayuda para convertir numero en texto en access 2007

Ya he revisado en internet y encontré num2text ya lo puse y funciona solo que me redondea los números osea no me maneja decimos ejemplo 120.56 da ciento veinteyuno según coloque los códigos en donde devén de ir pero pues el resultado no es lo que...
1 respuesta

Problema al convertir Números a letras en función en Access 2007

Desde México, D.F. Tengo una función que me convierte los números a letras y la llamo desde un cuadro de texto independiente en un informe de Access 2007 =PesosMN([pago]) Me funciona perfectamente excepto por 2 situaciones: 1.- Cuando el valor del...
1 respuesta

Cifras o importe en letras

Necesito que un informe en el cual debo confeccionar un recibo me escriba el importe en letras de un importe que coloco en números. Tengo el código que me informo un colega tuyo (ahora no disponible) pero no me explicó el procedimiento para que...
1 respuesta

Convertir Números a letras en un Informe

Tengo un campo numérico en una Consulta con BD. Deseo que en mi reporte se vea en letras el valor del número, incluido el valor monetario
1 respuesta