Classe ListRow (Excel VBA)

A classe ListRow representa uma linha em uma tabela. O objeto ListRow é membro da coleção ListRows.

Set

Para usar uma variável de classe ListRow, ela primeiro precisa ser instanciada por exemplo

Dim lstrw as ListRow
Set lstrw = ActiveCell.ListObject.ListRows(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ListRow: ListRows.Item, ListRows.Add e ListObject.ListRows

For Each

Aqui está um exemplo de processamento dos itens ListRow em uma coleção.

Dim lstrw As ListRow
For Each lstrw In ActiveCell.ListObject.ListRows
	
Next lstrw

Delete

Exclui as células da linha da lista e desloca para cima todas as células remanescentes abaixo da linha excluída. Você pode excluir as linhas na lista mesmo quando ela estiver vinculada a um site do SharePoint. No entanto, a lista no site do SharePoint não será atualizada enquanto você não sincronizar as alterações.

ActiveCell.ListObject.ListRows(1).Delete

Index

Retorna um valor Long que representa o número de índice do objeto ListRow dentro da coleção ListRows .

Dim lngIndex As Long
lngIndex = ActiveCell.ListObject.ListRows(1).Index

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

Range

Retorna um objeto Range que representa o intervalo ao qual o objeto de lista especificado na lista se aplica.

Dim rngRange As Range
Set rngRange = ActiveCell.ListObject.ListRows(1).Range

ListRows.Add

Adiciona uma nova linha à tabela representada pelo ListObject especificado.

Se Position não for especificado, uma linha inferior será adicionada. Se AlwaysInsert não for especificado, as células abaixo da tabela serão deslocadas uma linha para baixo (equivale a especificar True).

Sintaxe : expression.Add (Position, AlwaysInsert)

Dim lstrw As ListRow
Set lstrw = ActiveCell.ListObject.ListRows.Add

Arguments

Os seguintes argumentos são opcionais

Position (Integer) - Número inteiro. Especifica a posição relativa da nova linha.

AlwaysInsert (Boolean) - Especifica se os dados em células abaixo da última linha da tabela sempre devem ser deslocados quando a nova linha é inserida, mesmo que a linha abaixo dessa tabela esteja vazia. Se for True, as células abaixo da tabela serão deslocadas uma linha para baixo. Se false, se a linha abaixo da tabela estiver vazia, a tabela será expandida para ocupar essa linha sem deslocar as células abaixo dela, mas se a linha abaixo da tabela contiver dados, essas células serão deslocadas para baixo quando a nova linha for inserida.

ListRows.Count

Retorna um valor Integer que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.ListObject.ListRows.Count

ListRows.Item

Retorna um único objeto de uma coleção.

Sintaxe : expression.Item (Index)

Index: O nome ou número de índice do objeto.

Dim lstrwItem As ListRow
Set lstrwItem = ActiveCell.ListObject.ListRows(Index:=1)

ListRows.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.