VBA Excel - Checando se a célula faz parte de uma Tabela ou Lista - Checking to See Whether the Active Cell is in a Table or List

Inline image 1

Muitas vezes, antes de executar outros comandos e funções, queremos garantir que a célula ativa esteja (ou não) em uma tabela ou lista. O código a seguir testa esta condição e exibe uma caixa de mensagem com os resultados.
Sub TestIfActiveCellIsInTable()
    Dim ActiveCellInTable As Boolean
    Dim ACell As Range

    'Set a reference to the ActiveCell named ACell. You can always use
    'ACell now to point to this cell, no matter where you are in the workbook.

    Set ACell = ActiveCell

    'Test whether ACell is in a table.
    On Error Resume Next

    ActiveCellInTable = (ACell.ListObject.Name <> "")

    On Error GoTo 0

    If ActiveCellInTable = True Then
        MsgBox "The ActiveCell is a part of a table."
    Else
        MsgBox "The ActiveCell is not a part of a table."
    End If
End Sub

Reference

Tags: VBA, Excel, cell, check, table, list


Inline image 1

Nenhum comentário:

Postar um comentário

diHITT - Notícias