settare spin button in modulo VBA (NO-USERFORM)

RE.MOTO

unread,

Jun 1, 2022, 4:35:48 AM6/1/22

to

Buondì a tutti,
qualcuno sa darmi un aiuto su come settare i due pulsanti Up e Down dello spin button in un Modulo VBA (no-userform)?
Mi occorre poter associare due macro: M_Piu per Up ed M_meno per Down.

Grazie in anticipo.

RE.MOTO

casanmaner

unread,

Jun 1, 2022, 5:59:12 AM6/1/22

to

Se è un controllo activex hai i relativi eventi:

Private Sub SpinButton1_SpinDown()
MsgBox "giù"
End Sub

Private Sub SpinButton1_SpinUp()
MsgBox "su"
End Sub

RE.MOTO

unread,

Jun 1, 2022, 6:15:17 AM6/1/22

to

No è un controllo modulo.
Grazie

RE.MOTO

casanmaner

unread,

Jun 1, 2022, 6:44:51 AM6/1/22

to

Una possibile soluzione è assegnare, tramite le impostazioni del controllo, i valori minimi e massimi pari a 0 e 1 (click destro sulla forma e "formato controllo").
Poi associare una macro del genere al pulsante

Sub Caselladiselezione1_Cambia()
Dim val As Long
With Sheets("Foglio1").Shapes("Casella di selezione 1")
val = .OLEFormat.Object.Value
If .OLEFormat.Object.Value = 0 Then
MsgBox "giù"
Else
MsgBox "su"
End If
End With
End Sub

RE.MOTO

unread,

Jun 1, 2022, 7:08:08 AM6/1/22

to

Capito. Ma se io volessi ottenere come effetto di incremento o di decremento selezione/attivazione di alcuni fogli ovviamente uno per volta (per esempio i fogli 1, 2, 4, 7 e 21)? Forse dovrei nominarli e assegnare delle variabili è stabilire un intervallo di fogli e quindi fare un ciclo for each next dove il next è il click del mouse su Up o Down??

Grazie

RE.MOTO

RE.MOTO

unread,

Jun 1, 2022, 7:14:39 AM6/1/22

to

...e forse dovrei inserirla nel Foglio Questo Workbook oppure in ciascun foglio?

casanmaner

unread,

Jun 1, 2022, 7:29:44 AM6/1/22

to

Il giorno mercoledì 1 giugno 2022 alle 13:14:39 UTC+2 RE.MOTO ha scritto:
> ...e forse dovrei inserirla nel Foglio Questo Workbook oppure in ciascun foglio?

L'oggetto non è direttamente controllabile tramite gli eventi delle cartelle di lavoro o dei fogli.
Inoltre se ha uno spin in un foglio e tramite questo ti sposti su altro foglio il controllo non si sposta.
A meno di non pensare ad una complessa procedura che veda da che foglio è stato cliccato il controllo, lo "tagli" e lo incolli nel foglio di destinazione, andando a posizionarlo nei vari fogli sempre nello stesso posto. Ma mi sembrerebbe una soluzione poco efficiente.
A mio parere non è lo strumento adatto per selezionare fogli su cui spostarsi.

RE.MOTO

unread,

Jun 1, 2022, 7:35:33 AM6/1/22

to

Capisco. Si chiaro, il controllo non si sposta a meno che no ne colloco uno per ogni foglio. In realtà contavo di fare proprio così.Cioè in ogni foglio inserire uno spin e al codice che hai scritto inserire il nome del foglio relativo...
Grazie

RE.MOTO

issdr

unread,

Jun 1, 2022, 8:39:36 AM6/1/22

to

casanmaner wrote:

> A meno di non pensare ad una complessa procedura che veda da che
> foglio è stato cliccato il controllo, lo "tagli" e lo incolli nel
> foglio di destinazione, andando a posizionarlo nei vari fogli sempre
> nello stesso posto. Ma mi sembrerebbe una soluzione poco efficiente.

forse meglio far "galleggiare" i controlli. qui lo fanno con dei
pulsanti:

https://contexturesblog.com/archives/2016/01/14/excel-macro-buttons-on-floating-form/

casanmaner

unread,

Jun 1, 2022, 8:57:32 AM6/1/22

to

Io creerei una tab (ribbon) personalizzata della cartella di lavoro alla quale associare pulsanti e quanto altro.
Certo si apre un nuovo mondo per RE.MOTO :-)

issdr

unread,

Jun 2, 2022, 1:36:06 AM6/2/22

to

casanmaner wrote:

>> forse meglio far "galleggiare" i controlli. qui lo fanno con dei
>> pulsanti:
>>
>> https://contexturesblog.com/archives/2016/01/14/excel-macro-buttons-on-floating-form/
>
> Io creerei una tab (ribbon) personalizzata della cartella di lavoro
> alla quale associare pulsanti e quanto altro.
> Certo si apre un nuovo mondo per RE.MOTO :-)

buona idea... ecco uno spunto in italiano, anche se il tool che
semplifica la vita non lo è:

https://www.forumexcel.it/forum/threads/addin-ribbon-e-xlam.50952/

casanmaner

unread,

Jun 2, 2022, 2:45:14 AM6/2/22

to

Io uso quello di Andy Pope
https://www.andypope.info/vba/ribboneditor.htm

e poi per modifiche manuali il Custom UI Editor (che per la versione di Windows10 non prevede un installatore ma si trova ugualmente):
https://bettersolutions.com/vba/ribbon/custom-ui-editor-download.htm

Per alcune procedure standard da me utilizzate mi sono creato, ai temi di Excel2007, un componente aggiuntivo con la sua barra personalizzata.
Con le versioni più recenti è possibile personalizzare la barra ribbon. Ma io ho continuato a utilizzare quel file anche passato a office 365 :-)

casanmaner

unread,

Jun 2, 2022, 2:49:57 AM6/2/22

to

Per quanto riguarda il componente di andypope penso che qui ci sia l'ultima versione:
https://www.andypope.info/vba/ribboneditor_2010.htm

issdr

unread,

Jun 2, 2022, 7:35:05 AM6/2/22

to

keep, grazie!