Este exemplo ilustra o Arrecadação de áreas em Excel VBA. Abaixo, temos o intervalo delimitado ("B2: C3, C5: E5"). Este intervalo possui duas áreas. A vírgula separa as duas áreas.
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. Primeiro, declaramos dois objetos Range. Chamamos os objetos Range de rangeToUse e singleArea.
Dim rangeToUse As Range, singleArea As Range
2. Inicializamos o objeto Range rangeToUse com Range ("B2: C3, C5: E5")
Defina rangeToUse = Range ("B2: C3, C5: E5")
3. Para contar o número de áreas de rangeToUse, adicione a seguinte linha de código:
MsgBox rangeToUse.Areas.Count
Resultado:
4. Você pode consultar as diferentes áreas de rangeToUse usando os valores de índice. A linha de código a seguir conta o número de células da primeira área.
MsgBox rangeToUse.Areas (1) .Count
Resultado:
5. Você também pode percorrer cada área de rangeToUse e contar o número de células de cada área. A macro abaixo faz o truque.
Para Cada SingleArea In rangeToUse.Areas
MsgBox singleArea.Count
Next singleArea
Resultado:
Para um exemplo prático da coleção de áreas, consulte nosso programa de exemplo Compare Ranges.