Crearemos un panel el cual se ocultará al hacer clic en la flecha y en dicho panel se podría ocultar controles etc. Muy ideal para los dashboards. (Para entender cómo funcionan los dashboards aconsejo ver este enlace: Dashboards (o Tableros de Control)
Hace muy poco usé esta técnica de panel deslizante en un dashboard (tablero de control) y la verdad es que me gustó mucho el resultado. Lo que hice fue básicamente mostrarlo como un panel de control para todos los ajustes y opciones del dashboard!
El resultado visual queda así:
Bueno, pues veamos cómo crearlo en tu hoja de Excel!
Paso 1. Configuración de nuestra hoja de Excel
- Supongamos que estamos haciendo un panel de la Columna A y la B y que la Columna C actuará como un margen
- También se ha de tener en cuenta que he reducido el ancho de la Columna C a 2 puntos para que parezca un margen
Paso 2. Ahora creamos la flecha!
- Utilizamos las Formas (en la pestaña Insertar) para hacer una pequeña flecha que actúe como un botón intuitivo para abrir o cerrar el panel. La forma utilizada se llama Medio Marco en Excel.
- También se ha de tener en cuenta que la flecha debe cambiar su dirección dependiendo de si el panel está abierto o cerrado. De esto nos encargaremos en el código VBA
- También observamos que he rellenado la Columna C con color azul
Paso 3. Damos un nombre a la flecha
- Nombramos la flecha como "flecha". Esto nos ayudará mucho a buscar el objeto fácilmente mientras escribimos nuestro código VBA
- El proceso de nombrar los objetos es el mismo que nombrar las celdas, por lo que seleccionamos el objeto, y escribimos Flecha en el cuadro de nombres, justo a la izquierda de la barra de fórmulas.
Paso 4. Ahora viene el código VBA
Sub PanelDeslizante()
If Range("A:b").EntireColumn.Hidden = False Then
ActiveSheet.Shapes.Range(Array("Flecha")).Select
Selection.ShapeRange.IncrementRotation 180
Range("A:B").EntireColumn.Hidden = True
Range("a1").Select
Else
ActiveSheet.Shapes.Range(Array("Flecha")).Select
Selection.ShapeRange.IncrementRotation -180
Range("A:B").EntireColumn.Hidden = False
Range("a1").Select
End If
End Sub
Ahora copiamos este código y lo pegamos en la ventana de VBA. Para ello sigue los siguientes pasos
- Utilizamos el acceso directo ALT + F11 para abrir la ventana de VBA
- Desde el menú Insertar (en la ventana de VBA) hacemos clic en Módulo
- Se insertará un módulo en blanco (este es el lugar para escribir el código)
- Peguamos el código en esa ventana y cierre la ventana de VBA
- Se ha de tener en cuenta que la parte azul y negrita del código es editable. Se puede cambiar las columnas para personalizar las columnas que estén en tu panel
Paso 5. Vinculamos el objeto Flecha al código VBA
Para ello hay que:
- Hacer clic derecho en la flecha e ir a Asignar Macro
- Seleccionamos la macro que acaba de copiar y pegar
- Y ya está!
Aplicación del panel deslizante
Obviamente hemos creado este panel para ocultar algo que no necesitaremos en la pantalla con demasiada frecuencia, algo así como un panel de control. Así que estoy asumiendo que estarás poniendo Slicers (o segmentación de datos), Textos, Controles de Formulario aquí y queremos estos objetos se ajusten al panel. Para que el objeto se ajuste al panel siga automáticamente los pasos:
- Hacemos clic derecho en el objeto (podría ser cualquier objeto que se coloca dentro del panel)
- Vamos a Tamaño y Propiedades
- En Propiedades haga clic en "Mover y cambiar tamaño con celdas"
- Todos los objetos estarán ahora moviéndose y redimensionando a lo largo de la Columna A y la B (que es nuestro panel)
Descárgate el archivo para entenderlo mejor
Te ha gustado el artículo?
No te olvides de mostrar tu gratitud hacia el autor (yo) mediante una de las 3 siguientes acciones:
1. Puedes dejar una donación pinchando en la siguiente imagen.
2. Puedes hacer clic en los anuncios mostrados en la página
3. Puedes recomendar el artículo en Google haciendo clic en g+1 (justo después del artículo), también puedes compartirlo en Facebook, y/o dejar comentarios.
1. Puedes dejar una donación pinchando en la siguiente imagen.
2. Puedes hacer clic en los anuncios mostrados en la página
3. Puedes recomendar el artículo en Google haciendo clic en g+1 (justo después del artículo), también puedes compartirlo en Facebook, y/o dejar comentarios.
Quieres aprender más en Excel o tienes algún problema que necesita solución?
Puedo ofrecer servicios de consultoría así como cursos personalizados online. Mírate el siguiente enlace si estás interesado/a.
El Sabio de Excel busca colaborades del blog
Si te interesa compartir tu conocimiento sobre Excel de tal manera que puedas ayudar a otras personas, por favor mándame un email a elsabiodeexcel@gmail.com
No hay comentarios:
Publicar un comentario