Tengo un Frame en Excel con varios OptionButton y deseo saber el valor del seleccionado

Tenemos un formulario en Excel vba con un Frame el cual contiene 5 OptionButton. Deseamos que al momento de elegir una de las 5 opciones me arroje el valor de dicha opción o que nos arroje un mensaje indicando que no hemos elegido ninguna opción.

Este formulario nos podrá ayudar para cuando queremos que el usuario elija sólo una opción y dicha opción se capture en alguna celda u otro formulario.

Formulario

OptionButton

Cómo funciona

El código tiene 2 rutas, una es usando Select Case y otra es usando If… Then. Cualquiera de las 2 opciones evaluará el valor de cada OptionButton elegido y validará su valor, el cual, si devuelve Verdadedero, la etiqueta o Caption de la opción se guardará en una variable llamada Opcion.

Código del formulario

Código con Select Case

Private Sub CommandButton1_Click()
Dim Blog As String
Dim Opcion As String
Blog = "EXCELeINFO"
With UserForm1
    Select Case True
    Case .opc1.Value = True
        Opcion = .opc1.Caption
    Case .opc2.Value = True
        Opcion = .opc2.Caption
    Case .opc3.Value = True
        Opcion = .opc3.Caption
    Case .opc4.Value = True
        Opcion = .opc4.Caption
    Case .opc5.Value = True
        Opcion = .opc5.Caption
    Case Else
        Opcion = "Ninguno"
    End Select
    MsgBox "El valor elegido fue '" & Opcion & "'", vbInformation, Blog
End With
End Sub

Código con If… Then

Private Sub CommandButton2_Click()
Dim Blog As String
Dim Opcion As String
Blog = "EXCELeINFO"
With UserForm1
    If .opc1.Value = True Then
        Opcion = .opc1.Caption
    ElseIf .opc2.Value = True Then
        Opcion = .opc2.Caption
    ElseIf .opc3.Value = True Then
        Opcion = .opc3.Caption
    ElseIf .opc4.Value = True Then
        Opcion = .opc4.Caption
    ElseIf .opc5.Value = True Then
        Opcion = .opc5.Caption
    Else
        Opcion = "Ninguno"
    End If
    MsgBox "El valor elegido fue '" & Opcion & "'", vbInformation, Blog
End With
End Sub

 

:: Descargar el ejemplo EXCELeINFO – Recoger valor de un OptionButton.zip

You may also like...

4 Responses

  1. WWWIIILLL says:

    hola que tal y si tuviese un combobox en el cual elijo una cantidad y
    tengo a su vez dos optionbuton uno que active una operacion como
    multiplicacion y que muestre resultado en otro label y el otro que desactive la
    operacion y que solo muestre la cantidad seleccionada en el combobox en el label .
    saludos

  2. Armando Vargas Schwarzenberg says:

    Saludos: Tengo un problema casi parecido. Estoy realizando una búsqueda en un formulario de Excel con VBA. Este formulario tiene los campos necesarios para mostrar los datos de una persona, en el mismo y a través del evento de un botón, quiero realizar la búsqueda en cuestión, ya sea a través del TextButton del nombre o del TextButton del ID; cualquiera de los dos que se complete, que se ejecute el evento rellenando todos los campos con los datos del “cliente” requerido, si es que está registrado.
    Gracias desde ya por el apoyo 🙁

  1. February 21, 2013

    […] Tengo un Frame en Excel con varios OptionButton y deseo saber el valor del seleccionado […]

  2. February 21, 2013

    […] Tengo un Frame en Excel con varios OptionButton y deseo saber el valor del seleccionado […]

Leave a Reply

Your email address will not be published.

%d bloggers like this: