Cambio de formato de fuente deminuscula a mayuscula

22/03/2006 - 23:52 por Rocio | Informe spam
Tengo la version 2003 de office,para PC y la 2004 para Mac.
En ambas versiones no puedo cambiar las letras de minuscula a muyuscula una
vez escrita. En Word se puede hacer desde el menu formato cambiar de
Minuscula a Mayuscula. ¿ Como lo hago en Excel?
 

Leer las respuestas

#1 Héctor Miguel
23/03/2006 - 01:02 | Informe spam
hola, Rocio !

Tengo la version 2003 de office,para PC y la 2004 para Mac.
En ambas versiones no puedo cambiar las letras de minuscula a muyuscula una vez escrita.
En Word se puede hacer desde el menu formato cambiar de Minuscula a Mayuscula. Como lo hago en Excel?



considerando que word es un procesador de textos y excel una hjoa de calculo :))
[creo que] solo queda el uso de macros ;)
1) abre el editor de vba -> el atajo de teclado es {Alt}+{F11}
2) ve a [menu] insertar / modulo...
3) en la ventana del modulo de codigo [recien creado]... copia/pega las lineas al final de este mensaje
4) 'regresa' al excel -> el atajo de teclado es {Alt}+Q
5) selecciona el rango de celdas que necesitas 'alternar'... y ejecuta la macro ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub CambioDeLetras()
Dim Cambio, Celda As Range, Frase As Boolean
Select Case _
UCase(Left(Trim(InputBox( _
"Elige el tipo de ""salida""" & vbCr & _
"[T] = Titulo" & vbTab & "[I] = minusculas" & vbCr & _
"[F] = Frase" & vbTab & "[A] = MAYUSCULAS", _
"Alternar Mayusculas/minusculas...")), 1))
Case "A": Cambio = vbUpperCase
Case "I": Cambio = vbLowerCase
Case "F": Frase = True
Case "T": Cambio = vbProperCase
End Select: Application.ScreenUpdating = False
For Each Celda In Selection.SpecialCells(xlCellTypeConstants, xlTextValues)
If Frase Then Celda = UCase(Left(Celda, 1)) & LCase(Mid(Celda, 2)) _
Else Celda = StrConv(Celda, Cambio)
Next
End Sub

Preguntas similares