¿Cómo ordenar las pestañas de la hoja de trabajo por color en Excel?
Por ejemplo, para procesar y administrar fácilmente un libro de trabajo con demasiadas hojas de trabajo, puede agregar un color de pestaña a la pestaña de la hoja de trabajo correspondiente, y luego puede ordenar e identificar fácilmente las pestañas de la hoja por sus colores en Excel. Este artículo le mostrará qué tan rápido puede ordenar las pestañas de las hojas por color en Excel de la siguiente manera:
Ordene las pestañas de la hoja de trabajo por color con código VBA
Ordene las pestañas de la hoja de trabajo por color con Kutools para Excel
Ordene las pestañas de la hoja de trabajo por color con código VBA
Con el siguiente código VBA, puede ordenar las pestañas por color. Haz lo siguiente:
1. Hacer clic en Developer > Visual Basic, Un nuevo Microsoft Visual Basic para aplicaciones aparecerá la ventana, haga clic en recuadro > Móduloe ingrese el siguiente código en el módulo:
VBA: ordena las hojas por colores.
Sub SortWorkBookByColor()
'Updateby20140624
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
For i = 1 To Application.ActiveWorkbook.Worksheets.Count
If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
n = n + 1
ReDim Preserve xArray1(1 To n)
ReDim Preserve xArray2(1 To n)
xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
End If
Next
For i = 1 To n
For j = i To n
If xArray1(j) < xArray1(i) Then
temp = xArray2(i)
xArray2(i) = xArray2(j)
xArray2(j) = temp
temp = xArray1(i)
xArray1(i) = xArray1(j)
xArray1(j) = temp
End If
Next
Next
For i = n To 1 Step -1
Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
Next
End If
Application.ScreenUpdating = True
End Sub2. Luego haga clic 
botón para ejecutar el código. Y todas las pestañas de la hoja de trabajo se han ordenado por color. Ver capturas de pantalla:
 |
 |
 |
Ordene las pestañas de la hoja de trabajo por color con Kutools para Excel
Con la Ordenar hojas of Kutools for Excel, no solo puede ordenar las pestañas de la hoja por color, sino que también puede clasificar rápidamente las pestañas de la hoja por alfabético o alfanumérico.
Kutools para Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. Consiguelo ahora.
Si ha instalado Kutools para Excel, puede ordenar las pestañas de la hoja de trabajo con los siguientes pasos:
1. Hacer clic en Empresa > Herramientas de hoja de trabajo > Ordenar hojas, ver captura de pantalla:
2. En el Ordenar hojas cuadro de diálogo, haga clic en Clasificación de color , verá el nuevo orden de pestañas en el panel Nuevo orden de pestañas de hoja. Ver captura de pantalla:
3. Y luego haga clic en OK para ordenar las pestañas.
Kutools for Excel's Ordenar hojas La herramienta puede reorganizar rápidamente todas las hojas de trabajo en el libro activo. Admite varios tipos de clasificación, incluidos Orden alfabético, Orden alfanumérico, Clasificación de color y Marcha atrás. Además, también puedes moverse arriba / abajo hojas de trabajo y restablecer la clasificación. Haga clic para saber más sobre esta utilidad.
Artículo relacionado:
Ordene las hojas de trabajo en orden alfabético / alfanumérico en Excel
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
