Como classificar guias de planilha em ordem alfabética no Excel

Como classificar guias de planilha em ordem alfabética no Excel
Como classificar guias de planilha em ordem alfabética no Excel

Vídeo: Como classificar guias de planilha em ordem alfabética no Excel

Vídeo: Como classificar guias de planilha em ordem alfabética no Excel
Vídeo: HelP ! Apps missing from iPhone - YouTube 2024, Maio
Anonim
Se você tiver um grande número de planilhas em sua pasta de trabalho do Excel, pode ser difícil encontrar uma planilha específica. Classificar as guias da planilha em ordem alfabética facilitaria encontrar o que você está procurando.
Se você tiver um grande número de planilhas em sua pasta de trabalho do Excel, pode ser difícil encontrar uma planilha específica. Classificar as guias da planilha em ordem alfabética facilitaria encontrar o que você está procurando.

Além de organizar as guias da planilha aplicando cores a elas, você também pode classificá-las em ordem alfabética ou alfanumérica, desde que tenha aplicado nomes personalizados às suas planilhas. Infelizmente, classificar as guias da planilha em ordem alfabética não é incorporado ao Excel, mas você pode adicionar uma macro à sua pasta de trabalho que permitirá classificar as guias em ordem crescente ou decrescente. Mostraremos como adicionar uma macro disponível no site de suporte da Microsoft à sua pasta de trabalho do Excel que classificará suas guias da planilha.

Para começar, pressione Alt + F11 para abrir o editor Microsoft Visual Basic for Applications (VBA). Em seguida, vá para Inserir> Módulo.
Para começar, pressione Alt + F11 para abrir o editor Microsoft Visual Basic for Applications (VBA). Em seguida, vá para Inserir> Módulo.
Copie e cole a macro a seguir da Microsoft na janela do módulo exibida.
Copie e cole a macro a seguir da Microsoft na janela do módulo exibida.

Sub Sort_Active_Book() Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult ' ' Prompt the user as which direction they wish to ' sort the worksheets. ' iAnswer = MsgBox('Sort Sheets in Ascending Order?' & Chr(10) _ & 'Clicking No will sort in Descending Order', _ vbYesNoCancel + vbQuestion + vbDefaultButton1, 'Sort Worksheets') For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 ' ' If the answer is Yes, then sort in ascending order. ' If iAnswer = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If ' ' If the answer is No, then sort in descending order. ' ElseIf iAnswer = vbNo Then If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If End If Next j Next i End Sub

O editor VBA nomeia automaticamente cada módulo com um número no final, como Module1, Module2, etc. Você pode simplesmente aceitar o nome padrão do módulo. No entanto, se você planeja adicionar outras macros à sua pasta de trabalho, é uma boa ideia renomear cada módulo para saber quais são. Vamos renomear nosso módulo para mostrar como.

Recomendado: