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 BooleanDim 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 NextActiveCellInTable = (ACell.ListObject.Name <> "")On Error GoTo 0If ActiveCellInTable = True ThenMsgBox "The ActiveCell is a part of a table."ElseMsgBox "The ActiveCell is not a part of a table."End IfEnd SubReference:Tags: VBA, Excel, cell, check, table, list
✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
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
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário