Abaixo, veremos um programa que percorre um intervalo definido. Por exemplo, quando queremos elevar ao quadrado os números em Range ("A1: A3"). Você sabia que também pode percorrer uma faixa dinâmica?
Situação:
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 rng e cell.
Dim rng como intervalo, célula como intervalo
2. Inicializamos o objeto Range rng com Range ("A1: A3").
Definir rng = intervalo ("A1: A3")
3. Adicione o loop For Each Next.
Para cada célula em rng
Próxima célula
Nota: rng e cell são escolhidos aleatoriamente aqui, você pode usar qualquer nome. Lembre-se de referir-se a esses nomes no restante do código.
4. Em seguida, elevamos ao quadrado cada célula neste intervalo. Para fazer isso, adicione a seguinte linha de código ao loop:
cell.Value = cell.Value * cell.Value
Resultado quando você clica no botão de comando na planilha:
5. Se você deseja verificar cada célula em um intervalo selecionado aleatoriamente, basta substituir:
Definir rng = intervalo ("A1: A3")
com:
Definir rng = Seleção
6. Agora, por exemplo, selecione Intervalo ("A1: A2").
Resultado quando você clica no botão de comando na planilha: