Πώς να Ταξινόμηση με Χρώμα κελιού σε Excel 2003

Εάν έχετε ένα υπολογιστικό φύλλο , όπου το τραπέζι σας έχει δεδομένα σε κελιά με διαφορετικούς έγχρωμο φόντο , μπορείτε να το βρείτε χρήσιμο να ταξινομήσετε αυτά τα κύτταρα από τα χρώματα των κυττάρων . Excel 2003 δεν έχουν ένα χαρακτηριστικό που σας επιτρέπει να ταξινομήσετε κατά χρώμα κελιού . Ωστόσο, υπάρχει μια λύση : μπορείτε να εισάγετε ένα Visual Basic for Applications ( VBA) για να εκτελέσει την εργασία για σας . VBA είναι μια γλώσσα προγραμματισμού που έχει σχεδιαστεί ειδικά για να προσαρμόσουν τις εφαρμογές του Office σας για να ταιριάζει στις ανάγκες σας . Οδηγίες
Η

1 Πιέστε το πλήκτρο " Alt και " F11 " μαζί από το φύλλο εργασίας του Excel που θέλετε να ταξινομήσετε . Αυτό ανοίγει την Επεξεργασία Visual Basic ( VBE ) . 2

Κάντε κλικ στο" . Εισαγωγή " και στη συνέχεια κάντε κλικ στο κουμπί " Module "
εικόνων 3

Αποκοπή και επικόλληση τον παρακάτω κωδικό στο κενό παράθυρο :

Sub SortByColor ( )

την error GoTo SortByColor_Err

Dim sRangeAddress Όπως String Dim

sStartCell Όπως String Dim

sEndCell Όπως String Dim

rngSort Όπως Σειρά

Dim RNG Όπως εύρος

Application.ScreenUpdating = False

sStartCell = εισαγωγής ("Δώστε τη διεύθυνση κελιού του " & _

"top κελί της περιοχής που πρέπει να ταξινομούνται από το χρώμα " & _

Chr ( 13 ) & ", δηλαδή " A1 " , "Εισαγωγή διεύθυνσης κυψελών » )

Εάν sStartCell > " " τότε

sEndCell = Range ( sStartCell ) . End ( xlDown ) . Διεύθυνση

Range ( sStartCell ) . EntireColumn.Insert

Set rngSort = Range ( sStartCell , sEndCell )

Για κάθε RNG Σε rngSort

rng.Value = rng.Offset ( 0 , 1 ) Interior.ColorIndex

Επόμενο

Range ( sStartCell ) Ταξινόμηση Key1 : . . = Range ( sStartCell ) , _

Παραγγελία1 : = xlAscending , Header : = xlNo , _

Προσανατολισμός : . = xlTopToBottom

Range ( sStartCell ) EntireColumn.Delete

End If

SortByColor_Exit :

Application.ScreenUpdating = True

Set rngSort = Τίποτα

Exit Sub

SortByColor_Err :

MsgBox Err.Number & " : " & Err.Description , _

vbOKOnly , " SortByColor "

Resume SortByColor_Exit

End Sub
<. br > 4

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη μακροεντολή Η μακροεντολή θα σας ζητήσει την αρχή της περιοχής που θέλετε να ταξινομήσετε κατά χρώμα : . εισάγετε το επάνω αριστερό κελί στην περιοχή
Η

Η