Dati "formattati come tabella": recupero area tramite VBA

Question

<p>In un foglio Excel 2010, ho alcuni dati "formattati come tabella" (Home / Formatta come tabella) e viene creata una "tabella" visibile da "Formule / Gestione nomi". Tutto bene. Avrei però bisogno di recuperare, tramite VBA, la stringa "Riferito a" (es.: "=Foglio1!$A$2:$C:$23") in modo da poterla usare altrove in un programma VBA. </p><p>Con i "Nomi definiti" si trova facilmente con il parametro "RefersTo" (ThisWorkbook.Names(i).RefersTo), ma con i "nomi automatici di tabella" (chiamiamoli così) originati cioè dalla "formattazione come tabella", come si fa ad ottenere il medesimo risultato?</p><p>Grazie in anticipo</p><p></p><p>Gian Ivo</p>

Answer 1

In un foglio Excel 2010, ho alcuni dati "formattati come tabella" (Home / Formatta come tabella) e viene creata una "tabella" visibile da "Formule / Gestione nomi". Tutto bene. Avrei però bisogno di recuperare, tramite VBA, la stringa "Riferito a" (es.: "=Foglio1!$A$2:$C:$23"

<cut>

Se ho capito:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        MsgBox .Range("A1").CurrentRegion.Address

    End With

    Set sh = Nothing

End Sub

In questo caso la mia tabella inizia da A1 del Foglio1. Modifica i riferimenti con i tuoi.

NOTA. Trasformare i dati in forma tabellare di un foglio in un oggetto Tabella di Excel, non è sempre una buona cosa, sopratutto se poi si utilizza il VBA. Opinione personale, eh!

Answer 2

...

NOTA. Trasformare i dati in forma tabellare di un foglio in un oggetto Tabella di Excel, non è sempre una buona cosa, sopratutto se poi si utilizza il VBA. Opinione personale, eh!

Già detto in altre occasioni, ma ribadisco ,d'accordissimo!

In aggiunta alla soluzione di Mauro, segnalo la possibilità di utilizzare l'oggetto ListObject e le sue proprietà e metodi:

 With Worksheets("Foglio1").ListObjects("Tabella1")

    MsgBox "Tabella: " & .Range.Address

    MsgBox "Intestazioni: " & .HeaderRowRange.Address

    MsgBox "Dati: " & .DataBodyRange.Address

    MsgBox "Prima colonna: " & .ListColumns(1).Range.Address

    MsgBox "Prima colonna (solo dati): " & .ListColumns(1).DataBodyRange.Address

    MsgBox "Prima riga (dati): " & .ListRows(1).Range.Address

   ...

  End With

Andrea.

Answer 3

Grazie, Mauro, seguirò la tua indicazione. Concordo anche con la tua opinione, ma al momento non posso procedere diversamente.

Buona giornata

Bene!

Ciao e alla prossima.

Answer 4

Grazie, Mauro, seguirò la tua indicazione. Concordo anche con la tua opinione, ma al momento non posso procedere diversamente.

Buona giornata

Answer 5

Ciao Ivo,

Non provato:

Dim sAddress As String

     sAddress= ActiveSheet.ListObjects("Tabella").Range.Address

===

Regards,

Norman