Se você tem uma planilha onde sua tabela tem dados em células com fundo colorido diferente , você pode achar que é útil para classificar essas células por cores celulares. O Excel 2003 não tem um recurso que permite que você classificar por cor da célula . No entanto, há uma solução : você pode inserir um Visual Basic for Applications (VBA) macro para executar a tarefa para você. VBA é uma linguagem de programação projetada especificamente para adequar seus aplicativos do Office para atender às suas necessidades. Instruções
1

Pressione " Alt e" F11 " junto da planilha Excel que você deseja classificar. Isso abre o Editor do Visual Basic ( VBE) .
2

Clique " . inserir " e clique em " Module "
3

Corte e cole o seguinte código na janela em branco :

Sub SortByColor ()

error GoTo SortByColor_Err

Dim sRangeAddress As String Dim

sStartCell As String Dim

sEndCell As String Dim

rngSort Como Faixa

Dim RNG Como faixa

Application.ScreenUpdating = False

sStartCell = InputBox ("Digite o endereço da célula do " & _

" célula superior na faixa a ser classificado por cor "& _

Chr (13 ) &" ou seja, " A1 " , "Enter Endereço celular " )

Se sStartCell > "" Then

sEndCell = Range ( sStartCell ) . End ( xlDown ) . Morada

Range ( sStartCell ) . EntireColumn.Insert

Set rngSort = Range ( sStartCell , sEndCell )

Para Cada RNG Em rngSort

rng.Value = rng.Offset ( 0, 1) Interior.ColorIndex

Próxima

Range ( sStartCell ) Sort Key1 : . . = Range ( sStartCell ) , _

Order1 : = xlAscending , Header : = xlNo , _

Orientação: . = xlTopToBottom

Range ( sStartCell ) EntireColumn.Delete

End If

SortByColor_Exit :

Application.ScreenUpdating = True

Set rngSort = Nothing

Exit Sub

SortByColor_Err :

MsgBox Err.Number & " :" & Err.Description , _

vbOKOnly , " SortByColor "

Resume SortByColor_Exit

End Sub
< . br> 4

Pressione " F5" para executar a macro a macro irá pedir-lhe o início do intervalo que você deseja classificar por cor : . entrar na célula superior esquerda no intervalo
< br >