maurogsc.eu mauro gamberini

home ==> Excel: come fare per ==> Worksheet: creare un Array di fogli

Worksheet: creare un Array di fogli - VBA

NOTA. La soluzione ed il codice sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dal codice o dalla soluzione proposta se usati impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.

1 - Creazione di un Array(o insieme) di fogli(qui Foglio2 e Foglio6) che successivamente vado a ciclare:

Public Sub m()
    
    'dichiaro le variabili
    Dim shArray As Sheets
    Dim sh As Worksheet
 
'gestione errori
On Error GoTo RigaErrore
   
    'metto un riferimento ai fogli
    Set shArray = ThisWorkbook.Worksheets(Array("Foglio2", "Foglio6"))
    
    'ciclo il mio insieme di fogli
    For Each sh In shArray
        '...
        'codice da eseguire
        '...
    Next

'riga sempre eseguita
RigaChiusura:
    'Set a Nothing delle variabili oggetto
    Set shArray = Nothing
    Set sh = Nothing
    'uscita dalla routine
    Exit Sub
    
'in caso di errore
RigaErrore:
    'mostro una MsgBox con i dati dell'errore
    MsgBox Err.Number & vbNewLine & Err.Description
    'vado alla riga di chiusura
    Resume RigaChiusura
 
End Sub

Per ulteriori informazioni su Microsoft Excel ed il suo Visual Basic, utilizzate questo forum:
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads

Ultimo aggiornamento di questa pagina: 16/11/2010 - mauro gamberini