maurogsc.eu mauro gamberini

home ==> Excel: come fare per ==> Tabella: individuarne il Range

Tabella: individuarne il Range - 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 - Come individuare il Range di una tabella. Sostituire A1 con il riferimento ad una qualsiasi cella della tabella. Nelle tre MsgBox vengono restituiti rispettivamente: il Range, l'ultima riga, l'ultima colonna:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh
        MsgBox .Range("A1").CurrentRegion.Address
        MsgBox .Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
        MsgBox .Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Column
    End With
    
    Set sh = Nothing
    
End Sub

Nota. La colonna viene restituita come numero. 1=A, 2=B, ecc. Se si vuole visualizzare la lettera che identifica la colonna, vedere qui: Colonna: trasformare il numero in lettera

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: 26/11/2010 - mauro gamberini