¿Cómo ordenar las pestañas de hojas de cálculo por color en Excel?

Al trabajar con grandes libros de Excel que contienen múltiples hojas de cálculo, asignar colores a las pestañas de las hojas ayuda a categorizar y organizarlas visualmente. Sin embargo, Excel no proporciona una opción integrada para ordenar las pestañas de las hojas de cálculo automáticamente por color. En este artículo, exploraremos dos métodos efectivos para ordenar las pestañas de las hojas de cálculo por color en Excel.

Ordenar pestañas de hojas de cálculo por color con código VBA

Ordenar pestañas de hojas de cálculo por color con Kutools para Excel

Ordenar pestañas de hojas de cálculo por color con código VBA

Usando el siguiente código VBA, puedes ordenar las pestañas por color. Por favor, sigue los siguientes pasos:

1. Haz clic en "Desarrollador" > "Visual Basic", se abrirá una nueva ventana "Microsoft Visual Basic para aplicaciones", haz clic en "Insertar" > "Módulo", e introduce el siguiente código en el Módulo:

VBA: Ordenar hojas por colores.

Sub SortWorkBookByColor()
'UpdatebyExtendoffice
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 Sub

2. Luego presiona "F5" o haz clic en el botón "Ejecutar" para ejecutar el código. Y todas las pestañas de las hojas de cálculo se habrán ordenado por color.

Ordenar pestañas de hojas de cálculo por color con Kutools para Excel

Con Kutools, puedes reordenar rápidamente tus pestañas según sus colores, ahorrando tiempo y eliminando la necesidad de ordenar manualmente o usar código VBA. En esta sección, te mostraremos cómo usar Kutools para Excel para ordenar las pestañas de las hojas de cálculo por color fácilmente.

Si has instalado Kutools para Excel, puedes ordenar las pestañas de las hojas de cálculo siguiendo estos pasos:

1. Haz clic en "Kutools Plus" > "Hoja de Cálculo" > "Ordenar Hojas".

2. En el cuadro de diálogo "Ordenar Hojas", haz clic en el botón "Ordenar por Color", verás el nuevo orden de las pestañas en el panel "Nuevo orden de pestañas".

3. Y luego haz clic en "Aceptar" para ordenar las pestañas.

Esta característica puede reorganizar rápidamente todas las hojas de cálculo en el libro de trabajo activo. Soporta varios tipos de ordenación, incluyendo "Orden Alfabético", "Orden Alfanumérico", "Orden por Color" y "Inverso". Además, también puedes mover hacia arriba/abajo las hojas de cálculo y restablecer la ordenación.

Ordenar las pestañas de las hojas de cálculo por color en Excel ayuda a mejorar la organización y facilita la navegación en libros grandes. Aunque Excel carece de una opción integrada para esto, este artículo presenta dos métodos útiles para ti. Elige el método que mejor se adapte a tus necesidades y aprovecha al máximo la función de color de las pestañas de Excel para agilizar tu flujo de trabajo. Si estás interesado en explorar más consejos y trucos de Excel, nuestro sitio web ofrece miles de tutoriales.

Artículo relacionado:

Ordenar hojas de cálculo en orden alfabético / alfanumérico en Excel