In questo articolo, creeremo una funzione personalizzata per ordinare i dati in ordine alfabetico.
I dati grezzi sono costituiti da nomi casuali che vogliamo ordinare.
Spiegazione logica
Abbiamo creato la funzione personalizzata "SortString" per ordinare i dati in ordine alfabetico. Prende l'intervallo di origine e la posizione come input e restituisce i valori in base alla posizione specificata. Questa funzione crea prima un array ordinato e quindi la posizione specificata viene utilizzata per estrarre il valore richiesto dall'array ordinato.
Spiegazione del codice
UBound(valori)
La funzione sopra viene utilizzata per ottenere il conteggio del numero di valori all'interno dell'array.
valori(j) = valori(j - 1)
Il codice sopra viene utilizzato per spostare i valori all'interno dell'array di un indice.
Si prega di seguire sotto per il codice
Opzione Funzione esplicita SortString(Source As Range, Position As Long) As String 'Dichiarazione delle variabili Dim Cell As Range Dim values() As String Dim i As Long, j As Long Dim Done As Boolean ReDim values(1 To 1) 'Looping through tutte le celle nell'intervallo Per ogni cella in origine Fatto = False i = 1 'Creazione di un array di nomi ordinati Do If Cell.Value < valori (i) Then Done = True Else i = i + 1 End If Loop While Done = False And i <= UBound(values) ReDim Mantieni i valori(1 To UBound(values) + 1) If i <= UBound(values) Then 'Regolazione del valore nell'array dei nomi ordinati Per j = UBound(values) To i + 1 Step - 1 values(j) = values(j - 1) Next j End If values(i) = Cell.Value Next Cell 'Assegnazione del valore della posizione richiesta SortString = values(Position + 1) End Function
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica
