Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Problema con evento Click di un gruppo

Ultimo Aggiornamento: 13/12/2023 23:14
Post: 6
Registrato il: 27/01/2019
Città: MILANO
Età: 23
Utente Junior
Excel 2019
OFFLINE
11/12/2023 22:46

Salve a tutti,
sembra che in questo periodo il VBA ce l'abbia con me e mi stia presentando un problema dietro l'altro. Per farla breve ho eseguito questi step:

1) Ho aperto una cartella vuota di excel
2) Da Sviluppo o inserito 6 checkbox ActiveX
3) Li ho selezionati tutti col tasto Ctrl , ho cliccato col destro ed ho selezionato Raggruppa > Raggruppa creando così il gruppo Gruppo1
3) Ho cliccato col destro sul bordo del gruppo appena creato ed ho selezionato Assegna Macro
4) La finestra che si apre mi propone Gruppo1_Click come nome della macro ed io clicco sul tasto Nuovo
5) Mi si apre la finestra del codice con la suddetta macro preimpostata al cui interno io inserisco l'istruzione Stop

Sub Gruppo1_Click()
Stop
End Sub

6) Chiudo la finestra del codice e provo a testare: niente da fare

La macro, nonostante abbia verificato che è legata al gruppo, non ne vuole sapere di funzionare. Ho provato ad intercettare glli eventi click dei singoli checkbox e quelli funzionano, ma il click del gruppo non ne vuole sapere di funzionare. Vi avrei allegato il codice, ma non so perché sembra che lo faccia, ma dopo non me lo ritrovo. Comunque è una prova semplice da realizzare, abbastanza banale.
Ringrazio in anticipo.
Post: 7.489
Registrato il: 14/11/2004
Utente Master
Office 2019
ONLINE
12/12/2023 07:16

Ciao Inserisci il tuo file, cosi vediamo meglio il problema.

Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 6
Registrato il: 27/01/2019
Città: MILANO
Età: 23
Utente Junior
Excel 2019
OFFLINE
12/12/2023 10:45

Ci sto provando ad allegarlo, ma non me lo fa fare. L'ho zippato e spero che stavolta funzioni.
Sembra che lo faccia, si vede la barra che scorre al fianco del tasto allega, ma poi non me lo trovo,

Niente, ho cambiato browser ma continua a non caricarlo. Ho seguito alla lettera le tue istruzioni scritte su un altro thread, ma comunque non carica.
[Modificato da Aironide 12/12/2023 10:58]
Post: 981
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
12/12/2023 11:00

Re:
Aironide, 12/12/2023 10:45:

Ci sto provando ad allegarlo, ma non me lo fa fare. L'ho zippato e spero che stavolta funzioni.
Sembra che lo faccia, si vede la barra che scorre al fianco del tasto allega, ma poi non me lo trovo,

Niente, ho cambiato browser ma continua a non caricarloo.


ciao, sapresti dire quanto è grande il file zippato ? magari si trova al limite
il file zippato non ha errori ?
ovviamente lo zippato contiene solo files di excel e/o iimagini, giusto ?
lo dico perchè io ho provato a mandare altro di diverso ,la barra avanza e il file non arriva

comunque potresti provare uno dei tanti siti di hosting, tipo wetransfer ecc


[Modificato da L2018 12/12/2023 11:07]

LEO
https://t.me/LordBrum
Post: 7
Registrato il: 27/01/2019
Città: MILANO
Età: 23
Utente Junior
Excel 2019
OFFLINE
12/12/2023 11:04

E' uno zip di 18k, non penso che siamo al limite. Comunque grazie del consiglio, ecco il link:

https://we.tl/t-WvkiHatsqQ
Post: 982
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Senior
EXCEL 2016 - SPREAD32
OFFLINE
12/12/2023 11:13

Re:
Aironide, 12/12/2023 11:04:

E' uno zip di 18k, non penso che siamo al limite. Comunque grazie del consiglio, ecco il link:

https://we.tl/t-WvkiHatsqQ


bene, ricevuto regolarmente, ma io non so risponderti, aspettiamo gli altri
certo 18k è piccolissimo, non so come si possa "verificare" il fenomeno
magari puoi fare un'ultima prova NON zippandolo, non ha una logica, però.......


LEO
https://t.me/LordBrum
Post: 3.621
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
12/12/2023 11:39

ciao
e perchè vuoi cliccare sul "Gruppo" ??

saluti




Domenico
Win 10 - Excel 2016
Post: 8
Registrato il: 27/01/2019
Città: MILANO
Età: 23
Utente Junior
Excel 2019
OFFLINE
12/12/2023 12:06

Vorrei avviare una macro (o una sub) ogni volta che un qualunque check del gruppo viene cliccato. Questo è solo un esempio di qualcosa che vorrei fare in una mia più ampia applicazione e che, a quanto pare, non funziona come dovrebbe.
Post: 3.622
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
12/12/2023 12:23

ciao
se è per quello ti basta inserire il codice nelle ckBox:

Private Sub CheckBox1_Click()
....
End Sub

Se invece vuoi fare un loop attraverso tutte le ckBox del gruppo:
Sub mLoop()
Dim shp As Shape
For Each shp In ActiveSheet.shapes
If shp.Name = "Group 1" Then
    For Each ck In shp.GroupItems
    MsgBox ck.Name
    
    '... fai qualcosa
    
    Next
End If
Next
End Sub


saluti
[Modificato da dodo47 12/12/2023 12:23]
Domenico
Win 10 - Excel 2016
Post: 9
Registrato il: 27/01/2019
Città: MILANO
Età: 23
Utente Junior
Excel 2019
OFFLINE
12/12/2023 12:51

Ciao Dodo47, grazie per la risposta.
La prima tua soluzione sarebbe quella più logica, ma trattandosi di circa 30 checkbox mi sembra assurdo testare 30 eventi click per far fare a tutti la stessa cosa. La seconda soluzione è quella che vorrei applicare, ma deve comunque essere innescata da un evento click, altrimenti come parte? Ecco perché il raggruppamento di tutti i checkbox in un unico gruppo con lo scopo di intercettare il click sul gruppo, cosa che non riesco a fare.
Post: 3.624
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
12/12/2023 13:25

l'evento click dell'oggetto "Group" fallisce come hai visto.

Perchè non spieghi in dettaglio cosa vuoi fare?

Esistono le "Classi§" per evitare di scrivere 30 eventi click, ma non sapendo lo scopo mdel tuo lavoro mi viene difficile suggerirti una metodologia.

saluti

per: ...altrimenti come parte?....
con un pulsante, con un evento change o selectionChange ma.....

[Modificato da dodo47 12/12/2023 13:27]
Domenico
Win 10 - Excel 2016
Post: 10
Registrato il: 27/01/2019
Città: MILANO
Età: 23
Utente Junior
Excel 2019
OFFLINE
12/12/2023 15:35

Mi sembrava fosse chiaro cosa voglio realizzare: l'esecuzione di una unica routine (macro, sub, ...) a fronte del click su uno degli innumerevoli (che siano 2 o 100 è indifferente) checkbox esistenti sul foglio. Il raggrupparli sarebbe stata una ottima soluzione se l'evento click sul gruppo avesse funzionato.
Post: 3.626
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
12/12/2023 17:32

ciao
Per te sarà chiaro perchè hai in mente il tuo progetto e le varie funzionalità; per chi legge spesso non lo è.

in Questa_Cartella_Di_Lavoro:
Private Sub Workbook_Open()
activateCheckBoxes
End Sub


in un modulo di classe chiamato ChkClass:
Option Explicit

Public WithEvents ChkBoxGroup As MSForms.CheckBox

Private Sub ChkBoxGroup_Click()
    MsgBox ChkBoxGroup.Caption & " _ " & ChkBoxGroup.Value
End Sub


In un modulo standard:
Option Explicit
Dim CheckBoxes() As New ChkClass

Sub activateCheckBoxes()
    Dim sht As Worksheet
    Set sht = ActiveSheet
    ReDim CheckBoxes(1 To 1)
    Dim i As Integer
    For i = 1 To sht.shapes.Count
        ReDim Preserve CheckBoxes(1 To i)
        Set CheckBoxes(i).ChkBoxGroup = sht.shapes(i).OLEFormat.Object.Object
    Next i
End Sub


saluti
[Modificato da dodo47 12/12/2023 17:32]
Domenico
Win 10 - Excel 2016
Post: 7.490
Registrato il: 14/11/2004
Utente Master
Office 2019
ONLINE
13/12/2023 08:50

Ciao ma perche non usi una Userform elimini tanti problemi cha hai, clicca sulla ballerina per chiuderla fai doppioclick sulla stessa Userform, se ti va poi si vede come gestirla al momento è fissa al centro dello schermo, non puoi spostarla perche manca la cornice.



Ciao By Sal (8-D
[Modificato da by sal 13/12/2023 15:33]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 11
Registrato il: 27/01/2019
Città: MILANO
Età: 23
Utente Junior
Excel 2019
OFFLINE
13/12/2023 23:14

Vi ringrazio per le soluzioni proposte, domani verificherò quale adattare al mio codice.
Grazie ancora.
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 07:25. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com