Nota
O acesso a esta página requer autorização. Podes tentar iniciar sessão ou mudar de diretório.
O acesso a esta página requer autorização. Podes tentar mudar de diretório.
Uma coleção das áreas (ou seja, blocos contíguos de células) em uma seleção.
Comentários
Não há nenhum objeto de Área singular; os membros individuais da coleção Áreas são objetos de Intervalo . A coleção Areas contém um objeto Range para cada intervalo de células contíguo individual na seleção. Se a seleção contiver somente uma área, a coleção Areas conterá um único objeto Range correspondente a essa seleção.
Exemplo
Utilize a propriedade Áreas do objeto Intervalo para devolver a coleção Áreas . O exemplo a seguir limpa a seleção atual se ela contiver mais do que uma área.
If Selection.Areas.Count <> 1 Then Selection.Clear
Utilize Áreas (índice), em que o índice é o número do índice de área, para devolver um único objeto Intervalo da coleção. Os números de índice correspondem à ordem em que as áreas foram selecionadas. O exemplo a seguir limpa a primeira área na seleção atual se a seleção contiver mais do que uma área.
If Selection.Areas.Count <> 1 Then
Selection.Areas(1).Clear
End If
Algumas operações não podem ser executadas em mais do que uma área numa seleção ao mesmo tempo; tem de percorrer as áreas individuais na seleção e realizar as operações em cada área separadamente. O exemplo seguinte executa a operação com o nome myOperation no intervalo selecionado se a seleção contiver apenas uma área; Se a seleção contiver várias áreas, o exemplo efetua myOperation em cada área individual na seleção.
Set rangeToUse = Selection
If rangeToUse.Areas.Count = 1 Then
myOperation rangeToUse
Else
For Each singleArea in rangeToUse.Areas
myOperation singleArea
Next
End If
Propriedades
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.