Ordine alfabetico

Stato
Chiusa ad ulteriori risposte.

ges

Excel/VBA Expert
Amministratore
21 Giugno 2015
29.773
2.465
Como
2011MAC 365WIN
1.045
Mette in ordine alfabetico l'intervallo selezionato dal più piccolo al più grande (l'ordine sarà per tutte le colonne selezionate)
Visual Basic:
Sub OrdineAlfabeticoCrescente()
    Dim x As Long, k As Long
    Dim y As Integer, z As Integer, j As Integer
    With Selection
        x = .Row
        y = .Column
        k = .Rows.Count + .Row - 1
        z = .Columns.Count + .Column - 1
    End With
    With ActiveSheet.Sort
        .SortFields.Clear
        For j = y To z
            .SortFields.Add Key:=Cells(x, j), Order:=xlAscending
        Next j
        .SetRange Range(Cells(x, y), Cells(k, z))
        .Apply
    End With
End Sub
Mette in ordine alfabetico l'intervallo selezionato dal più grande al più piccolo (l'ordine sarà per tutte le colonne selezionate)
Visual Basic:
Sub OrdineAlfabeticoDecrescente()
    Dim x As Long, k As Long
    Dim y As Integer, z As Integer, j As Integer
    With Selection
        x = .Row
        y = .Column
        k = .Rows.Count + .Row - 1
        z = .Columns.Count + .Column - 1
    End With
    With ActiveSheet.Sort
        .SortFields.Clear
        For j = y To z
            .SortFields.Add Key:=Cells(x, j), Order:=xlDescending
        Next j
        .SetRange Range(Cells(x, y), Cells(k, z))
        .Apply
    End With
End Sub
 
Stato
Chiusa ad ulteriori risposte.

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!