ordinare fogli

Question

In una cartella di lavoro ho più fogli con diverse intestazioni; esiste il modo per ordinarli in modo alfabatico?

Saluti

Answer 1

In una cartella di lavoro ho più fogli con diverse intestazioni; esiste il modo per ordinarli in modo alfabatico?

Saluti

Segui passo passo.

1.Apri il file da riordinare

2.ALT+F11(premili assieme) e sei nell'editor del vb di Excel

3.Inserisci-->Modulo

4.Nel foglio bianco(il modulo di codice, copia incolla questo:

Public Sub mOrdinaTuttiFogli()

On Error GoTo RigaErrore

    Dim NomiFogli() As String

    Dim lContaFogli As Long

    Dim lng As Long

    Application.ScreenUpdating = False

    lContaFogli = Worksheets.Count

    ReDim NomiFogli(1 To lContaFogli)

    For lng = 1 To lContaFogli

        NomiFogli(lng) = Worksheets(lng).Name

    Next

    Call mOrdina(NomiFogli)

    For lng = 1 To lContaFogli

        Worksheets(NomiFogli(lng)).Move _

            Before:=Worksheets(lng)

    Next

RigaChiusura:

    Application.ScreenUpdating = True

    Exit Sub

RigaErrore:

    MsgBox Err.Number & vbNewLine & Err.Description

    Resume RigaChiusura

End Sub

Public Sub mOrdina(ByRef sList() As String)

    Dim lPrimo As Long

    Dim lUltimo As Long

    Dim lx As Long

    Dim ly As Long

    Dim sTemp As String

    lPrimo = LBound(sList)

    lUltimo = UBound(sList)

    For lx = lPrimo To lUltimo - 1

        For ly = lx + 1 To lUltimo

            If sList(lx) > sList(ly) Then

                sTemp = sList(ly)

                sList(ly) = sList(lx)

                sList(lx) = sTemp

            End If

        Next

    Next

End Sub

Adesso:

1.ALT+F11 e torni in Excel lato celle

2.ALT+F8

3.Seleziona: mOrdinaTuttiFogli

4.Pulsante: Esegui

Se non hai mai utilizzato il vb di Excel e le macro, vedi qui: http://www.maurogsc.eu/excel/xlsdoveinserirecodice.aspx

Answer 2

grazie

Grazie a te per il cortese riscontro e buon lavoro.

Answer 3

grazie