Este programa em Excel VBA usa a propriedade Count, a função IsNumeric, a função IsEmpty e o método Intersect para testar uma seleção.
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 ("C4: D10") e a célula do objeto Range com o range selecionado.
Definir rng = intervalo ("C4: D10")
Definir célula = Seleção
3. Adicione as seguintes linhas de código:
Se cell.Count = 1 And IsNumeric (cell) And Not IsEmpty (cell) And Not Intersect (rng, cell) Is Nothing Then
MsgBox "Você ganhou"
Outro
MsgBox "Você perde"
Fim se
Explicação: Intersect (rng, cell) retorna um objeto Range que representa a interseção dos dois intervalos. Se este objeto de intervalo não for Nothing, o número único (três primeiras condições) está no intervalo com borda.
4. Teste o programa.
Somente quando você seleciona um único número no intervalo delimitado, o resultado será:
Em todos os outros casos, o resultado será: