Come Ordinamento automatico dei dati da qualsiasi colonna utilizzazione del VBA in Microsoft Excel 2010
In questo articolo imparerai come ordinare automaticamente i dati in base a una particolare colonna.
[.underline] # Facciamo un esempio: # Quello che segue è un’istantanea dei dati che abbiamo. Fare riferimento all’istantanea di seguito:
Vogliamo un codice che ordinerà automaticamente i dati sulla colonna A durante la digitazione.
Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic
Inserisci il seguente codice sul foglio su cui stai lavorando. (foglio1 nel nostro esempio)
Private Sub Worksheet_Change (ByVal Target As Range)
In caso di errore Riprendi Avanti
If Not Intersect (Target, Range (“A: A”)) Is Nothing Then
Range (“A1”). Sort Key1: = Range (“A2”), _
Order1: = xlAscending, Header: = xlYes, _
OrderCustom: = 1, MatchCase: = False, _
Orientamento: = xlTopToBottom
End If
End Sub
Di seguito è riportato il risultato del codice precedente.
Il codice sopra si attiverà ogni volta che c’è un cambiamento nella colonna A, se vuoi attivare la macro quando c’è qualche cambiamento nella colonna B, allora devi fare una leggera regolazione
Private Sub Worksheet_Change (ByVal Target As Range)
In caso di errore Riprendi Avanti
If Not Intersect (Target, Range (“B: B”)) Is Nothing Then
Range (“B1”). Sort Key1: = Range (“B2”), _
Order1: = xlAscending, Header: = xlYes, _
OrderCustom: = 1, MatchCase: = False, _
Orientamento: = xlTopToBottom
End If
End Sub
In questo modo, puoi facilmente ordinare i dati in base a qualsiasi colonna specifica. Il codice verrà attivato e ordinerà i dati automaticamente durante la digitazione delle informazioni nella colonna A (nel primo esempio) e nella colonna B (nel secondo esempio). Ciò consentirà di risparmiare molto tempo se dobbiamo ordinare i dati su base regolare.