Excel planilha vba linhas propriedades help

Dom, 05 de Junho de 2011 18:06 Expedito Marcondes
Imprimir

Referência do Desenvolvedor do Excel 2010 > Referência de modelos de objeto do Excel > Objeto Application > Propriedades

Referência do Desenvolvedor do Excel

Application.Propriedade Rows

Retorna um objeto Range que representa todas as linhas da planilha ativa. Se o documento ativo não for uma planilha, a propriedade Rows falhará. Objeto Range somente leitura.

Sintaxe

expressão.Rows

expressão   Uma variável que representa um objeto Application.

Comentários

O uso desta propriedade sem um qualificador de objeto equivale a usar ActiveSheet.Rows.

Quando aplicada a um objeto Range que seja uma seleção múltipla, esta propriedade retorna linhas apenas da primeira área do intervalo. Por exemplo, se o objeto Range tiver duas áreas (A1:B2 e C3:D4), Selection.Rows.Count retornará 2, e não 4. Para usar essa propriedade em um intervalo que possa conter uma seleção múltipla, teste Areas.Count para determinar se o intervalo é desse tipo. Se for, faça loop sobre cada área do intervalo, como mostra o terceiro exemplo.

Exemplo

Este exemplo exclui a linha três em Sheet1.

Visual Basic for Applications

Worksheets("Plan1").Rows(3).Delete

Este exemplo exclui linhas na região atual da planilha um onde o valor da célula um na linha for igual ao valor da célula um na linha anterior.

Visual Basic for Applications

For Each rws In Worksheets(1).Cells(1, 1).CurrentRegion.Rows    'observe que é a primeira planilha da ordem

    Linha = rws.Cells(1, 1).Value

    If Linha = vUltima Then rws.Delete

    vUltima = Linha
Next

Este exemplo exibe o número de linhas na seleção em Sheet1. Se mais de uma área for selecionada, o exemplo fará loop por todas elas.

Visual Basic for Applications

Sub contar_linhas_areas()
Worksheets("Plan4").Activate
vContarArea = Selection.Activate

If vContarArea = 1 Then
MsgBox "A seleção de contém : [ " & _
       Selection.Rows.Count & "]  Linhas"
Else
i = 1
For Each sb In Selection.Areas
    MsgBox " " & i & "ª. area selecionada,contém contém: [ " & _
              sb.Rows.Count & " ] Linhas"
       i = i + 1 
Next sb
End Sub

© 2010 Microsoft Excel VBA - Saberecel - O site das Macros . Todos os direitos reservados  -  produto Microsoft®.

Tags:
Última atualização em Seg, 01 de Outubro de 2012 17:25