Neste artigo, aprenderemos a classificar as planilhas em ordem crescente por meio do VBA no Microsoft Excel 2010.
Ao trabalhar em várias folhas, você descobre que as folhas não estão organizadas corretamente. Você deseja criar uma macro rapidamente que classificará automaticamente a planilha em ordem crescente sempre que a macro for executada.
Para classificar as planilhas em ordem crescente, siga as etapas abaixo mencionadas:
- Pressione Alt + F11 para abrir a tela do Editor VB
- No menu Inserir, selecione Módulo.
- No Módulo, digite as linhas de código da seguinte maneira:
Sub SortingSheetsInAscending ()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Se ActiveWorkbook não for nada, saia do Sub
If ActiveWorkbook.ProtectStructure Then
MsgBox ActiveWorkbook.Name & "is protected", vbCritical, "Sort Sheets"
Sair do Sub
Fim se
If MsgBox ("Sort Sheets?", VbQuestion + vbYesNo) vbYes Then Exit Sub
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
Para i = 2 para SheetsCounter
Para n = 1 para SheetsCounter
If Sheets (n) .Name> Sheets (i) .Name Then
Folhas (i) .Mover antes: = Folhas (n)
Fim se
Próximo n
Proximo eu
End Sub
- Execute a macro do Módulo pressionando F5.
Como alternativa, pressione Alt + F11 e volte ao Excel, atribua a macro a qualquer objeto do Excel como um botão ou ícone ou pressione Alt + F8 para selecionar a macro e clique em Executar.
Você verá que as folhas estão organizadas em ordem alfanumérica.