¿Cómo hacer que una casilla de verificación parezca un botón de opción en VBA?

Dado que la operación predeterminada de la casilla de verificación es hacer clic una vez para seleccionar y hacer clic dos veces para desmarcar, el código debe modificarse para agregar una bandera de variable booleana

El código modificado es como siguiente:

Dim?flag?As?Boolean

Private?Sub?CheckBox1_Click()

flag?=?False

Si ?flag ?=?Falso?Entonces

CheckBox1.Value?=?1

CheckBox2.Value?=?0

CheckBox3.Value?=?0

CheckBox4.Value?=?0

flag?=?True

Fin?Si

Fin?Sub

¿Privado?Sub?CheckBox2_Click()

Si?Entonces

CheckBox1.Value?=?0

CheckBox2.Value?=?1

CheckBox3.Value?=?0

CheckBox4.Value?=?0

bandera?=?False

Fin?Si

Fin?Sub

Privado?Sub?CheckBox3_Click()

Si?flag?=?False?Entonces

CheckBox1.Value?= ?0

CheckBox2.Value?=?0

CheckBox3.Value?=?1

CheckBox4.Value?=?0

marcar ?=?Verdadero

¿Fin?Si

Fin?Sub

¿Privado?Sub?CheckBox4_ Click()

¿Si? bandera? =?Verdadero?Entonces

CheckBox1.Value?=?0

CheckBox2.Value?=?0

CheckBox3.Value?=?0

CheckBox4.Value?Value?=?1

bandera?=?False

Fin?Si

Fin?Sub