Como cambio mayusculas a minusculas como en word

12/01/2007 - 02:50 por JGC | Informe spam
Como hago para cambiar minusculas a mayusculas y biseversa como en word
 

Leer las respuestas

#1 Héctor Miguel
12/01/2007 - 03:02 | Informe spam
hola' JGC !

Como hago para cambiar minusculas a mayusculas y biseversa como en word



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