Este programa en Excel VBA utiliza la propiedad Count, la función IsNumeric, la función IsEmpty y el método Intersect para probar una selección .
Situación:
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declaramos dos objetos de rango. Llamamos a los objetos Range rng y cell.
Dim rng As Range, cell As Range
2. Inicializamos el objeto Range rng con Range(«C4:D10») y la celda del objeto Range con el rango seleccionado.
Establecer rng = Rango(«C4:D10») Establecer la celda = Selección
3. Añade las siguientes líneas de código:
Si el recuento de células = 1 y es numérico y no está vacío y no es nada, entonces MsgBox «You win» Else MsgBox «Tú pierdes» Finalizar si
Explicación: Intersect(rng, celda) devuelve un objeto de rango que representa la intersección de los dos rangos. Si este objeto de rango no es Nada, el número único (las tres primeras condiciones) está en el rango delimitado.
4. Pruebe el programa.
Sólo cuando se selecciona un solo número en el rango delimitado el resultado será:
En todos los demás casos el resultado será:
