Quiero implementar un botón de comando que ponga a True a la vez a 25 casillas de verificación llamadas CV1, CV2, CV3, ........ , CV25. Por supuesto, se puede utilizar 25 veces la sentencia:
CV1.Value = True
CV2.Value = True
.
.
CV25.Value = True
Pero estoy empeñado en hacerlo con poco código, como debe ser. Para ello he hecho este código que utiliza una variable de cadena de texto (NombreCasilla) y un For...Next para que la cadena quede cargada cada vez con "CV" concatenada con un número sucesivo de 1 a 25. El problema es que al poner la propiedad Value a True, se debe tratar de una variable de objeto y no de texto. Por tanto me da error (No coinciden los tipos), al intentar asignarle a la variable de objeto (NombreObjeto) una cadena de texto (NombreCasilla):
Private Sub cmdActivarTodas_Click()
Dim Contador As Integer, NombreCasilla As String, NombreObjeto As Object
Contador = 1
For Contador = 1 To 25
NombreCasilla = "CB" & Contador
Set NombreObjeto = NombreCasilla
NombreObjeto.Value = True
Contador = Contador + 1
Next Contador
End Sub
¿Cómo puedo crear con una cadena de texto un nombre de objeto que ya existe?
Gracias