Evento alla selezione di OptionButton

Hai un problema con Excel?

Nuova discussione

Evento alla selezione di OptionButton
di pan1lp (utente non iscritto) data: 26/01/2015 18:39:24
Salve a tutti, sono nuovo del forum, chiedo aiuto per questo problema:

Con Excel 2003 popolo dinamicamente uno UserForm di OptionButton. Vorrei che senza premere un CommandButton, alla selezione di uno qualsiasi degli OptionButton si scatenasse un evento che mi deve andare a selezionare una certa cella sul foglio di lavoro.

Questo è il codice che attualmente uso. La parte dentro il commandButton1_click è quella che voglio che venga utilizzata dall'evento con l'optionbutton.

Grazie dell'aiuto.

Public OB As MSForms.OptionButton

Private Sub UserForm_Activate()
Dim lngNextTop As Long
Dim lngTitleBarHeight As Long
Const cTextBoxHeight As Long = 18
Const cTextBoxWidth As Long = 100
Const cGap As Long = 4
lngTitleBarHeight = Me.Height - Me.InsideHeight
lngNextTop = cGap
For n = 30 To 50 'Each field In rngFields
Set OB = Controls.Add("Forms.OptionButton.1", Sheets("Settimanale").Cells(n, 1).Address, True) '####OK
OB.Caption = Sheets("Settimanale").Cells(n, 1).Value '"bau" & n
OB.Left = cGap
OB.Top = lngNextTop
OB.Height = cTextBoxHeight
OB.Width = cTextBoxWidth

lngNextTop = lngNextTop + cTextBoxHeight + cGap
Me.Height = lngNextTop + lngTitleBarHeight
Next
Set txtBox = Nothing
End Sub

Private Sub CommandButton1_Click()
For n = 30 To 50 'Each Control In Me.Controls
If Me.Controls("$A$" & n).Value = True Then
Sheets("Settimanale").Range(Me.Controls("$A$" & n).Name).Select
MsgBox Me.Controls("$A$" & n).Name '#### OK
MsgBox Me.Controls("$A$" & n).Caption '#### OK
MsgBox Me.Controls("$A$" & n).Value '#### OK
End If
Next n
End

di Vecchio Frac data: 26/01/2015 19:04:53
Un piccolo file, per non doverci ricreare il tuo userform, con i controlli già inseriti, già nominati, già disegnati... ? :)
di Vecchio Frac data: 26/01/2015 19:08:37
Oh, come non detto. A parte qualche problema sulle variabili non dichiarate ma sono riuscito a far andare il tutto.
Adesso non resta che analizzare il problema :)
di Vecchio Frac data: 26/01/2015 20:45:11
Allego il file "OptionButtonHandler.xls", ho ripreso il file di isy di qualche sera fa (adattato alle esigenze) perchè era perfetto e mi pare che funzioni correttamente. Implementa benissimo la matrice di controlli che forse anche in un'altra discussione analoga ho avuto modo di richiamare.
di pan1lp data: 26/01/2015 21:15:05
Grazie Vecchio Frac, è proprio quello che cercavo! Non mi resta che adattarlo alle mie esigenze. Terrò presente questo forum per il futuro!
di Vecchio Frac data: 26/01/2015 21:16:10
Bene, se pensi che la discussione sia chiusa, "spunta se risolta" in una nuova risposta.
di pan1lp data: 26/01/2015 21:17:36

Vuoi Approfondire?