Cómo ordenar por color de celda en Excel 2003

Si usted tiene una hoja de cálculo en la tabla tiene datos en las celdas con fondo de color diferente , puede que le resulte útil para clasificar las células de colores de las celdas . Excel 2003 no tiene una característica que le permite ordenar por color de celda . Sin embargo , hay una solución : se puede insertar un Visual Basic para Aplicaciones ( VBA) macro para realizar la tarea para usted. VBA es un lenguaje de programación diseñado específicamente para adaptar las aplicaciones de Office para satisfacer sus necesidades. Instrucciones
1

Pulse " Alt y" F11 ", junto a la hoja de cálculo Excel que desea ordenar . Esto abre el Editor de Visual Basic (VBE ) .
2

Click" Insertar "y luego haga clic en" Módulo "
3

corte y pegue el siguiente código en la ventana en blanco : .

Sub SortByColor ()

Error GoTo SortByColor_Err

sRangeAddress dévil como secuencia

sStartCell dévil como secuencia

sEndCell dévil como secuencia

rngSort As Range

Dim rng como gama

Application.ScreenUpdating = False

sStartCell = InputBox ("Escriba la dirección de celda del " & _

" celda superior de la gama que ser resuelto por el color " & _

Chr ( 13 ) &" es decir, " A1 " , "Enter celular Dirección " )

Si sStartCell > "" Entonces

sEndCell = Range ( sStartCell ) . End ( xlDown ) . Dirección

Range ( sStartCell ) . EntireColumn.Insert

Set rngSort = Range ( sStartCell , sEndCell )

For Each rNG de rngSort

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

Siguiente

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

Order1 : = xlAscending , Header : = xlNo , _

Orientación: = xlTopToBottom

Range ( sStartCell ) EntireColumn.Delete

. End If

SortByColor_Exit :

Application.ScreenUpdating = True

rngSort Set = Nothing

Exit Sub

SortByColor_Err :

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

vbOKOnly , " SortByColor "

Resume SortByColor_Exit

End Sub

4

Press "F5 " para ejecutar la macro la macro le pedirá el inicio del rango que desee ordenar por color: . . entrar en la celda superior izquierda del rango