Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come Ordina per cellulare a colori in Excel 2003

Se si dispone di un foglio di calcolo in cui il vostro tavolo ha dati nelle celle con sfondo colorato diverso , potrebbe 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 della cella. Tuttavia, c'è una soluzione : è possibile inserire un Visual Basic for Applications ( VBA) la macro per eseguire il compito per voi . VBA è un linguaggio di programmazione specificamente progettato per adattare le applicazioni di Office in base alle proprie esigenze . Istruzioni
1

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