Tecnología

Inicio

Cómo ordenar por color de la célula en Excel 2003

Si usted tiene una hoja de cálculo en la tabla tiene datos en celdas con diferente color de fondo, puede que le resulte útil para ordenar esas células por 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 macro (VBA) para llevar a cabo la tarea para usted. VBA es un lenguaje de programación diseñado específicamente para adaptar sus aplicaciones de Office para que se adapte a sus necesidades.

Instrucciones

1 Pulse la tecla "Alt y" F11 "juntos desde la hoja de cálculo de Excel que desea ordenar. Esto abre el Editor de Visual Basic (VBE).

2 Haga clic en "Insertar" y luego haga clic en "módulos".

3 Cortar y pegar el código siguiente en la ventana en blanco:

Sub SortByColor ()

On Error GoTo SortByColor_Err

Dim como secuencia sRangeAddress

Dim como secuencia sStartCell

Dim como secuencia sEndCell

Dim rngSort como gama

RNG tenue como gama

Application.ScreenUpdating = False

sStartCell = InputBox ( "Introduzca la dirección de la celda de la" & amp; _

"Celda superior de la gama de ser ordenados por el color" & amp; _

Chr (13) & amp; "Es decir," A1 "," Enter célula Dirección ")

Si sStartCell> "" Entonces

sEndCell = Rango (sStartCell) .End (xlDown) .Address

Rango (sStartCell) .EntireColumn.Insert

Establecer rngSort = Rango (sStartCell, sEndCell)

Para cada RNG En rngSort

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

Siguiente

Rango (sStartCell) .Sort Key1: = rango (sStartCell), _

Order1: = xlAscending, Header: = xlNo, _

Orientación: = xlTopToBottom

Rango (sStartCell) .EntireColumn.Delete

Terminara si

SortByColor_Exit:

Application.ScreenUpdating = True

Establecer rngSort = Nada

Exit Sub

SortByColor_Err:

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

vbOKOnly, "SortByColor"

reanudar SortByColor_Exit

End Sub

4 Pulse la tecla "F5" para ejecutar la macro. La macro se mostrará el principio del rango que desea ordenar por colores: entrar en la celda superior izquierda del rango.

Consejos y advertencias

  • La macro anterior es para la clasificación de datos que no tienen una fila de encabezado. Si los datos tiene una fila de encabezado de la fila 1, el cambio "Header: = xlNo encabezado" To ": = xlYes."