Controles ActiveX: Casilla Verificación (Programando Código VBA Parte 2)

En esta segunda parte de configuración VBA o adición de macros al Control ActiveX Casilla de Verificación, vamos a dar una funcionalidad un poco más práctica adicional a la que tenemos donde se muestra un mensaje de la opción que estamos seleccionando.

La aplicación sigue siendo la misma donde tenemos el servicio de lavado pero vamos a incluir la opción de descuento donde, al activar una casilla de verificación “Aplicar Descuento”, nos aparezcan 3 Botones de Opción para seleccionar el descuento a aplicar. Las opciones de descuento serán 10%, 15% y 20%:

De esta manera tenemos una casilla de Verificación con el texto “Aplicar Descuento” (CheckBox4) y la idea es que si se activa o seleccionamos dicha Casilla, aparezcan los botones de opción de los porcentajes de descuento que serían:

OptionButton1: 10%

OptionButton2: 15%

OptionButton3: 20%

Empecemos a programar; primero debemos insertar el código para la Casilla de “Aplicar Descuento” asi que estando en Modo Diseño damos clic derecho sobre dicha Casilla y damos Ver Código de esta manera se abre la ventana del Editor de Visual Basic con las líneas de Inicio y de Fin de la programación de la Casilla:

El código que insertaremos es el siguiente:

If CheckBox4.Value = True Then

OptionButton1.Visible = True

OptionButton2.Visible = True

OptionButton3.Visible = True

Else

OptionButton1.Visible = False

OptionButton2.Visible = False

OptionButton3.Visible = False

End If

Lo que estamos programando es una condición que valida SI (If) la Casilla de Verificación “Aplicar Descuento” (CheckBox4), se activa (.Value=True) entonces (Then) los botones de Opción de descuento (OptionButton1, OptionButton2, OptionButton3) hágalos Visibles (.Visible = True) y en caso contrario, si se desactiva dicha Casilla de Verificación, los mismos botones de descuento (OptionButton1, OptionButton2, OptionButton3) no los deje visible (.Visible = False). La última línea End If marca el final de la condición.

Volvamos a la hoja Excel salgamos del Modo Diseño y probemos:

Observemos que inmediatamente seleccionamos la casilla Aplicar Descuento, se pueden ver los botones de descuento para seleccionar alguno de los tres

Ahora solo hace falta programar los botones de opción de cada porcentaje de descuento, asi que activamos el Modo Diseño, damos Clic Derecho sobre el primer botón de opción del descuento de 10% (OptionButton1) y seleccionamos Ver Código con lo cual se abre el editor de Visual Basic listo para insertar código entre las líneas de inicio y de fin de este primero Botó de opción que seleccionamos:

Insertamos el siguiente código:

If OptionButton1.Value = True Then Range("H11").Value = 0.1

Lo que estamos programando con esta línea de código es una validación de que Si (If) el botón de Opción del descuento de 10% (OptionButton1) lo seleccionamos (.Value = True), entonces (Then) en la celda H11 (Range(“H11”)) ponga el valor 0.1 (.Value = 0.1) o en otras palabras, al seleccionar el descuento de 10% ponga en la celda H11 el valor 10%

Vamos a ver ahora como funciona este primer botón de opción en la hoja Excel:

Nos falta realizar este mismo procedimiento para los otros dos botones que nos quedan, es decir para el botón del descuento de 15 seria el siguiente código:

If OptionButton2.Value = True Then Range("H11").Value = 0.15

Y para el tercer botón del descuento del 20% el código seria:

If OptionButton3.Value = True Then Range("H11").Value = 0.2

Nos quedaría de la siguiente manera en el Editor de Visual Basic:

Y en la hoja Excel el resultado sería:

;

Ahora, en la celda H21 calculamos el valor al que corresponde el porcentaje de descuento que tenemos en la celda H11:

Nos queda faltando un último ajuste, y se trata de que al desactivar la casilla de verificación de Aplicar Descuento (CheckBox4), nos ponga un valor de 0 sobre la celda H11 para que no aplique ningún descuento, asi que en el código del CheckBox4 antes del final colocamos el siguiente código:

Range("H11").Value = 0

 

Descargar archivo de trabajo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc. Lo que no está permitido es insultar o escribir palabras ofensivas o soeces. Si lo hace, su comentario será rechazado por el sistema o será eliminado por el administrador. Por último, trate de no escribir en mayúscula sostenida, resulta muy difícil leerle.