Excel - MACROS Y PROGRAMACION

funcion reemplazaLetraAMayuscula(texto as string, letraAReemplazar as String) as string

' texto = "este es el texto de ejemplo"  este viene mediante parametro.

'LetraAReemplazazar = "j" esta viene por parametro

'aqui puedes usar cualquier ciclo

por i = 1 a longitud(texto)

   si mid(texto,i,1) =  LetraAReemplazazar  entonces

        reemplazaLetraAMayuscula= reemplazaLetraAMayuscula & mayuscula(mid(texto,i,1))

   casocontrario

        reemplazaLetraAMayuscula= reemplazaLetraAMayuscula & (mid(texto,i,1))

   fin si .

fin funcion

textoReemplazado = reemplazaLetraAMayuscula("Este es un texto ejemplo", "j")