Capos de la programación, me dirijo a ustedes con el fin de que me ayuden con una modificación o en su lugar una macro o código completo para pasar calificaciones a letras ej: 6,0 Seis 6,6 Seis, Seis Baje todos los que encontré en la web pero ni uno resulta al 100%, escribí uno con mis pocos conocimientos pero tiene un error, ej: 6,4 Seis, cuatro 6,0 Seis, seis, y con todos los promedios o notas que dan entero pasa lo mismo, dejo el codigo para que algun capo lo revise y me ayude, gracias. Codigo: 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 & " , " & letra1 End Function :XXbuzzsaw:
Eso lo puedes hacer sin necesidad de hacer una macro. Mientras te hago un ejemplo en el excel 2003 me dices si es obligatorio que hagas una macro. Edit: https://www.dropbox.com/s/1s1opna9huktzhl/numeros.xls?m Saludos.
