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
< br >
