Como classificar as guias da planilha por cor no Excel?
Por exemplo, para processar e gerenciar facilmente uma pasta de trabalho com muitas planilhas, você pode adicionar uma cor de guia à guia da planilha relevante e, então, pode classificar e identificar facilmente as guias da planilha por suas cores no Excel. Este artigo mostrará como você pode classificar as guias da planilha por cor no Excel da seguinte maneira:
Classifique as guias da planilha por cor com o código VBA
Classifique as guias da planilha por cor com o Kutools para Excel
Classifique as guias da planilha por cor com o código VBA
Usando o seguinte código VBA, você pode classificar as guias por cor. Faça o seguinte:
1. Clique Developer > Visual Basic, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção > Móduloe insira o seguinte código no módulo:
VBA: Classifique as folhas por cores.
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 Sub
2. Então clique botão para executar o código. E todas as guias da planilha foram classificadas por cor. Veja as capturas de tela:
Classifique as guias da planilha por cor com o Kutools para Excel
Com o Classificar folhas of Kutools for Excel, você não só pode classificar as guias da folha por cor, mas também pode classificar rapidamente as guias da folha por Alfa ou Alfa Numérico.
Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Obtê-lo agora.
Se você instalou o Kutools for Excel, você pode classificar as guias da planilha com as seguintes etapas:
1. Clique Empreendimento > Ferramentas de planilha > Classificar folhas, veja a captura de tela:
2. No Classificar folhas caixa de diálogo, clique em Classificação de cores , você verá a nova ordem das guias no painel Nova ordem das guias da planilha. Veja a imagem:
3. E então clique OK para classificar as guias.
Kutools for Excel's Classificar folhas ferramenta pode reorganizar rapidamente todas as planilhas na pasta de trabalho ativa. Ele suporta vários tipos de classificação, incluindo Classificação Alfa, Classificação numérica alfa, Classificação de cores e Reverter. Além disso, você também pode mover para cima / para baixo planilhas e redefinir a classificação. Clique para saber mais sobre este utilitário.
Artigo relacionado:
Classifique as planilhas em ordem alfabética / alfanumérica no Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!