Pruebe una selección en Excel VBA

Buenas tardes, mi nombre es Miguel y al día de hoy os traigo un nuevo artículo.

Este programa en Excel VBA utiliza la propiedad Count, la función IsNumeric, la función IsEmpty y el método Intersect para prueba una selección.

Localización:

Pruebe una selección en Excel VBA

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

1. Primero, declaramos dos objetos Range. Llamamos a los objetos Range rng y cell.

Oscuro rng Cómo Alcanzar eso Cómo Alcance

2. Inicializamos el objeto Range rng con Range ("C4: D10") y la celda del objeto Range con el rango seleccionado.

Colocar rng = Rango ("C4: D10")
Colocar celda = Selección

3. Agregue las siguientes líneas de código:

cell.Count = 1 mi IsNumeric (celda) mi No. IsEmpty (esto) mi No. Intersecar (rng, celda) Es Nada Entonces

MsgBox "Win"
Otra cosa

MsgBox "Perder"
Aleta

Explicación: Intersect (rng, cell) devuelve un objeto Range que representa la intersección de los dos rangos. Si este objeto de rango es Ninguno, el número único (las tres primeras condiciones) está en el rango delimitado.

4. Pruebe el programa.

Solo cuando seleccione un solo número en el rango delimitado, el resultado será:

Prueba un resultado de selección

En todos los demás casos, el resultado será:

Prueba un resultado de selección

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info