| | 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 | |
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 | |
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. |
|
|