September 29
Se si dispone di un foglio di calcolo in cui il vostro tavolo ha dati nelle celle con diversi sfondo colorato, può risultare utile per ordinare le cellule dai colori delle celle. Excel 2003 non dispone di una funzione che consente di ordinare in base al colore delle cellule. Tuttavia, c'è una soluzione: è possibile inserire un Visual Basic, Applications Edition (VBA) per svolgere il compito per voi. VBA è un linguaggio di programmazione specificamente progettato per adattare le applicazioni di Office in base alle proprie esigenze.
1 Premere il tasto "Alt e" F11 "insieme dal foglio di lavoro di Excel che si desidera ordinare. Ciò apre il Visual Basic Editor (VBE).
2 Fai clic su "Inserisci" e poi cliccare su "Modulo".
3 Tagliare e incollare il seguente codice nella finestra vuota:
Sub SortByColor ()
On Error GoTo SortByColor_Err
Dim sRangeAddress As String
Dim sStartCell As String
Dim sEndCell As String
Dim rngSort come gamma
RNG Dim come gamma
Application.ScreenUpdating = False
sStartCell = InputBox ( "Inserire l'indirizzo di cella del" & amp; _
"Cella in alto nella gamma da ordinare in base al colore" & amp; _
Chr (13) & amp; "Cioe 'A1'", "Enter cellulare Address")
Se sStartCell> "" Allora
sEndCell = Range (sStartCell) .End (xlDown) .Address
Range (sStartCell) .EntireColumn.Insert
Impostare rngSort = Range (sStartCell, sEndCell)
Per ogni RNG In rngSort
rng.Value = rng.Offset (0, 1) .Interior.ColorIndex
Il prossimo
Range (sStartCell) .Sort Tasto1: = Range (sStartCell), _
Order1: = xlAscending, Intestazione: = xlNo, _
Orientamento: = xlTopToBottom
Range (sStartCell) .EntireColumn.Delete
Finisci se
SortByColor_Exit:
Application.ScreenUpdating = True
Set rngSort = Nothing
Exit Sub
SortByColor_Err:
MsgBox Err.Number & ": " & Err.Description, _
vbOKOnly, "SortByColor"
Riprendi SortByColor_Exit
End Sub
4 Premere il tasto "F5" per eseguire la macro. La macro chiederà l'inizio del campo che si desidera ordinare in base al colore: entrare nella cellula in alto a sinistra della gamma.