|
A través de este articulo se explica una alternativa a la forma convencional de conversión de un texto de mayúsculas a minúsculas, en Excel asignando un atajo de teclado para aplicar de una forma rápida, cómoda y eficiente esta conversión simplemente presionando dos teclas. El proceso consiste en el desarrollo de una macro que gestionará esta tarea y que supone en la práctica, una eficiente alternativa a las formulas, MAYUSC, MINUSC, que son las que están encargadas en Excel de llevar a cabo la tarea. Comencemos a Explicar el proceso.
1) Abrimos una hoja de Excel y clickamos en Herramientas > Macro > Grabar nueva macro
2) En Nombre de la Macro le ponemos el nombre que más nos guste, sin dejar espacios libres entre las palabras, por ejemplo "Cambiar_de_Mayúsculas_a_Minúsculas" (sin las comillas). Donde dice Método abreviado, podemos poner una letra o un número que no esté ya ocupado por algún comando de Excel, para poder así, con una combinación de teclas, ejecutar la macro. Podemos poner, por ejemplo "m" (sin las comillas), luego la macro se ejecutará pulsando simultáneamente las teclas CTRL+M (control eme) en la celda donde queremos efectuar el cambio. Y donde dice Guardar macro en, seleccionamos "Libro de macros Personal". Finalmente, en Descripción podemos dejarlo como está o poner lo que nos parezca. 3) Aceptamos y Detenemos la grabación. (Para detener la grabación podemos hacerlo desde el ícono correspondiente en la barra de herramientas de macros que se habrá instalado en medio de nuestra hoja de Excel  , o bien desde Herramientas > Macro > Detener grabación.) 4) Ahora le damos a ALT + F11 para abrir el Editor de Visual Basic o nos vamos a Herramientas > Macro > Editor de Visual Basic. (Nota: si la ventana que aparece está gris y no tiene ningún contenido clicamos en Ver > Explorador de Proyectos) para que nos aparezca.
Abrimos la Carpeta "Módulos" que cuelga de “VBAProyect(PERSONAL.XLS)” y clicamos dos veces en “Módulo1”.
Se abrirá una nueva ventana con un texto similar a este:
Sub Cambiar_de_Mayúsculas_a_Minúsculas() ' ' Cambiar_de_Mayúsculas_a_Minúsculas Macro ' Macro grabada el 07/06/2006 por Eduardo ' ' Acceso directo: Ctrl + M ' End Sub
Ahora vamos a insertar el código de la macro. Para ello nos situamos al final de “Sub Cambiar_de_Mayúsculas_a_Minúsculas()” y pulsamos Enter insertando un renglón. A continuación copiamos con Ctrl + C el código siguiente y lo pegamos con Ctrl + V en ese renglón: dato=ActiveCell.Value
If VarType(dato)=8 Then
ActiveCell.Value=UCase(dato)
End If
ActiveCell.Offset(1,0).Select Nos debería quedar así: 
Cerramos el Editor y la macro ya estará disponible para utilizarla desde cualquier libro de Excel. A continuación repetiremos todos los pasos desde el comienzo para obtener ahora una macro para "Cambiar_de_Minúsculas_a_Mayúsculas". En este caso podemos utilizar para el Método abreviado la combinación CTRL+Mayús+m o la que más nos guste, siempre teniendo en cuenta que no debe ser una combinación que ya exista en Excel. El código a insertar en este caso será este: dato = ActiveCell.Value
If VarType(dato) = 8 Then
ActiveCell.Value = LCase(dato)
End If
ActiveCell.Offset(1, 0).Select También podemos cambiar una Celda a Tipo titúlo, es decir, la primera letra en Mayúscula y el resto en mínusculas. El proceso a seguir seria igual que los pasos anteriores, la nombrariamos como
Sub Tipo_Título(), en el Método abreviado por ejemplo pondriamos CTR + h y el codigo a poner seria el siguiente :
dato = ActiveCell.Value
If VarType(dato) = 8 Then
ActiveCell.Value = WorksheetFunction.Proper(dato)
End If
ActiveCell.Offset(1, 0).Select ¿Qué es Personal.xls? Personal.xls es un Libro que al abrir cualquier achivo de Excel este se inicia, se carga. Este libro no lo tenemos visible puesto que es una plantilla donde guardamos todas las macros que nosotros creamos para poder ejecutarlas en todos los libros, por ejemplo la explicada en este artículo. Si queremos modificarla lo podemos hacer desde Ventana > mostrar o bien desde el propio editor de Visual Basic, para volverla a ocultar Ventana > ocultar y eso es todo, esperamos que este procedimiento os sea de utilidad,
{jos_sb_discuss:6} ¡Un saludo!
EduardoNet y Mónica
Trackback(0)
 |
TrackBack URI para esta entrada
RSS feed Comments
Dim j As Integer
For i = 0 To 50 ' Numero de Columnas
For j = 0 To 200 ' Numero de Filas
dato = ActiveCell.Value
If VarType(dato) = 8 Then
ActiveCell.Value = WorksheetFunction.Proper(dato)
End If
ActiveCell.Offset(1, 0).Select
Next
ActiveCell.Offset(-201, 0).Select ' Numero de Filas + 1
ActiveCell.Offset(0, 1).Select
Next