-
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."