Premere " Alt e " F11 " insieme dal foglio di lavoro di Excel che si desidera ordinare . Si aprirà l'editor di Visual Basic (VBE ) .
2
Click " Inserisci " e poi cliccare su" Modulo "
3
Tagliare e incollare il seguente codice nella finestra vuota : .
Sub SortByColor ( ) per
error GoTo SortByColor_Err
Dim sRangeAddress As String Dim
sStartCell As String Dim
sEndCell As String Dim
rngSort come gamma
Dim rng come gamma
Application.ScreenUpdating = False
sStartCell = InputBox ( "Inserire l' indirizzo di cella del " & _
" cella superiore nella gamma da ordinare per colore "& _
Chr ( 13) &" cioe ' A1 ' "," Inserisci Indirizzo di cella " ) per
sStartCell > " "Then
sEndCell = Range ( sStartCell ) . End ( xlDown ) . Indirizzo
Range ( sStartCell ) . EntireColumn.Insert
rngSort = Range ( sStartCell , sEndCell ) per
For Each RNG In rngSort
rng.Value rng.Offset = ( 0 , 1 ) Interior.ColorIndex
Avanti
Range ( sStartCell ) Sort Key1 : . . = Range ( sStartCell ) , _
Order1 : = xlAscending , Header : = xlNo , _
Orientation : = xlTopToBottom
Range ( sStartCell ) EntireColumn.Delete
. End If
SortByColor_Exit :
Application.ScreenUpdating = True
rngSort = Nothing
Exit Sub
software © www.354353.com