Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro click su pulsante opzione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro click su pulsante opzione

Postdi matzap » 10/05/13 14:09

Ciao,
dato che gli aiuti che mi date sono fantastici eccomi di nuovo qui:

ho una serie di pulsanti opzione collegati tra loro e poi ne ho uno chiamato " nessun messaggio" che quando lo clicco il codice assegnatogli mi imposta su falso tutti gli altri indipendentemente da quale è selezionato.

dovrei inserire in una macro un comando per simulare il clic sul pulsante " nessun messaggio" è possibile?
grazie e ciao
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Sponsor
 

Re: macro click su pulsante opzione

Postdi ricky53 » 10/05/13 14:37

Ciao,
prova con
Codice: Seleziona tutto
    UserForm1.TuoOptionButton = True


Però mi sfugge l'utilità di un passaggio intermedio.
Potresti, all'atto dell'emissione della tua UserForm, deselezionare tutti gli OptionButton con queste istruzioni
Codice: Seleziona tutto
    UserForm1.OptionButton1 = False
    UserForm1.OptionButton2 = False
    UserForm1.OptionButton3 = False
' Altri Option Button
'...


Oppure c'è qualche altra informazione che dovremmo avere per capire bene ?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: macro click su pulsante opzione

Postdi matzap » 10/05/13 15:48

non funziona, forse perchè il pulsante non pè in una userform ma sul foglio....
ti faccio un esempio:
il pulsante 4 ha questo codice:

Private Sub OptionButton4_Click()
Dim x As Integer
For x = 10 To 17
Range("AA" & x).Select
ActiveCell.FormulaR1C1 = "False"
Next x
Range("AA12").Select
ActiveCell.FormulaR1C1 = "TRUE"
End Sub

il pulsante 6 ha quest'altro codice:

Private Sub OptionButton6_Click()
Dim x As Integer
For x = 10 To 17
Range("AA" & x).Select
ActiveCell.FormulaR1C1 = "False"
Range("AA10").Select
Next x
End Sub

quindi poichè tutti i pulsanti tranne il 6 controllano una cella, quando metto la cella uguale a falso mi si toglie la spunta su tutti i pulsanti, ma non si mette la spunta sul pulsante 6.
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: macro click su pulsante opzione

Postdi ricky53 » 10/05/13 15:54

Ciao,
io avevo dato per scontato che gli Option Button fossero in una UserForm.
Essendo sul foglio non può andare.

Ma tu cosa devi effettivamente fare, oltre ad attivare "OptionButton6" ???
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: macro click su pulsante opzione

Postdi ricky53 » 10/05/13 16:16

Ciao,
in attesa di avere qualche altra tua informazione ti propongo
Codice: Seleziona tutto
sub Attiva()
     TuoFoglio.OptionButton6.Value = True
End Sub


Dove "TuoFoglio" è il foglio nel quale hai inserito i vari "'OptionButton"


Rimane il fatto che non ho ancora capito lo scopo dell'attivazione dell'OptionButton6 !
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: macro click su pulsante opzione

Postdi Anthony47 » 10/05/13 18:50

dovrei inserire in una macro un comando per simulare il clic sul pulsante "nessun messaggio" è possibile?

Quindi immagino che nel tuo esempio OptionButton6 e' il pulsante che indica "nessun messaggio"
Allora e' sufficiente che nella macro inserisci le stesse istruzioni che sono nella Private Sub OptionButton6_Click (da Dim a Next x). Una cosa piu' strutturata la puoi fare allocando in una sub a se' stante quelle istruzioni (ad esempio una Sub ClearAll(), che metterai in un modulo standard) e poi richiamarle sia dalla Sub OptionButton6_Click che dall' altra macro.
Tieni presente che "quel codice" lavora sul foglio attivo; quindi se tu non puoi garantire che il foglio attivo nella macro sia "quello giusto" e' meglio che espliciti il foglio a cui far riferimento.
Quindi ad esempio:
Codice: Seleziona tutto
Sub ClearAll()
Dim x As Integer
With Sheets("NomeFoglio")
    For x = 10 To 17
        .Range("AA" & x).FormulaR1C1 = "False"
    Next x
End With
End Sub

Codice: Seleziona tutto
Private Sub OptionButton6_Click()
Call ClearAll
Range("AA10").Select
End Sub

Analogamente, nella macro in cui vuoi simulare l' azzeramento di tutto metterai Call ClearAll

Ciao a tutti
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro click su pulsante opzione

Postdi matzap » 16/05/13 12:02

Ciao,
ho provato entrambi i codici ( ricky 53 e Antony47) e funzionano entrambi. l'unica differenza è che Anthony agisce sui singoli pulsanti, mentre ricky attiva direttamente il codice del button6.
grazie a entrambi
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: macro click su pulsante opzione

Postdi ricky53 » 16/05/13 12:14

Ciao,
però utilizzando tu un "OptionButton" proprio per la natura del controlo utilizzato l'attivazione è "MUTUAMENTE Esclusiva" ossia quando ne attivi viene disattivo l'altro che era attivo perchè di "OptionButton" non se ne possono avere attivi più di UNO, quindi, basta solo la riga di codice che ti ho inviato per fare quello che ti occorre.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "macro click su pulsante opzione":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti