Caselle di Controllo (Controlli Modulo)

Question

Ciao a tutti,

ho inserito qualche centinaia di caselle di controllo (non Active x) in un file, il problema è il "collegamento cella" in formato controllo, so indicarlo solo manualmente e diventa un lavoro certosino, è possibile collegare le celle in maniera più veloce?

Grazie e mille!

Answer 1

Gestire una così grande quantità di controlli, senza conoscere il vba - e Alessandro, ahimè, se ne sta rendendo conto in prima persona - può diventare molto tedioso oltre che dispendioso in termini di manutenzione.

+1 ovviamente.

Purtroppo molto spesso si chiede *dopo*.... e anche, in questo caso, per il tipo controlli utilizzati.

Answer 2

Ho costruito un calendario come da immagine. Ho bisogno per ogni giorno di poter selezionare

Apertura

Chiusura

Festivo

Per cui ogni "gruppo" di 3 controlli è legato ad una cella di fianco al giorno a cui si riferisce in un altro calendario. Ho fatto il primo mese ma collegare tutti moduli "a mano" è un lavoraccio.

...

Dico la mia anche a costo di risultare impopolare.

Gestire una così grande quantità di controlli, senza conoscere il vba - e Alessandro, ahimè, se ne sta rendendo conto in prima persona - può diventare molto tedioso oltre che dispendioso in termini di manutenzione.

Dal punto di vista dell'impatto estetico, non vi sono dubbi, la soluzione è senz'altro d'effetto.

Dal punto di vista dell'operatività ... non lo so, dipende dall'utilizzo che se ne deve fare. Dipende se ho necessità di azzerare tutte le spunte in una volta, oppure tutte quelle di un determinato mese, se eseguo le spunte a blocchi, se utilizzo le 'spunte' direttamente nei calcoli, se le posso copiare da altro intervallo e altro ancora.

Tutto sommato è possibile visualizzare in una cella il tipico carattere della spunta digitando il valore 1 ed utilizzando una particolare formattazione. La cancellazione ed il riempimento a blocchi saranno sicuramente più agevoli, va da sé, infine, che il valore 1 può tornare particolarmente utile nei calcoli, nei filtri ecc.

Ecco il risultato.

Answer 3

Ho costruito un calendario come da immagine. Ho bisogno per ogni giorno di poter selezionare

Apertura

Chiusura

Festivo

Per cui ogni "gruppo" di 3 controlli è legato ad una cella di fianco al giorno a cui si riferisce in un altro calendario. Ho fatto il primo mese ma collegare tutti moduli "a mano" è un lavoraccio.

Capito poco.

Così, a tre a tre scrivono nella stessa cella (esempio Controllo 1, 2 , 3 scrivono in M1, 4,5,6 in M2, ecc.):

Public Sub m()

    Dim sh As Worksheet

    Dim lCont As Long

    Dim lng As Long

    Dim lng2 As Long

    On Error Resume Next

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    For lng = 1 To 99 Step 3

        For lng2 = 0 To 2

            ActiveSheet.Shapes.Range(Array("Check Box " & lng + lng2)).Select

            With Selection

                .Value = xlOff

                .LinkedCell = "$M$" & lng

                .Display3DShading = False

            End With

        Next

    Next

    Set sh = Nothing

End Sub

Puoi condividere un file?

Answer 4

Ho costruito un calendario come da immagine. Ho bisogno per ogni giorno di poter selezionare

Apertura

Chiusura

Festivo

Per cui ogni "gruppo" di 3 controlli è legato ad una cella di fianco al giorno a cui si riferisce in un altro calendario. Ho fatto il primo mese ma collegare tutti moduli "a mano" è un lavoraccio.

Answer 5

Ciao a tutti,

ho inserito qualche centinaia di caselle di controllo (non Active x) in un file, il problema è il "collegamento cella" in formato controllo, so indicarlo solo manualmente e diventa un lavoro certosino, è possibile collegare le celle in maniera più veloce?

Grazie e mille!

Controllo 1 a quale cella è collegato?

Controllo 2?

C'è una logica?

Questa macro, ad esempio, collega le celle da M1 a M100 del Foglio1 a 100 controlli se (SE!!!) i controlli hanno i nome di default.

Public Sub m()

    Dim sh As Worksheet

    Dim lCont As Long

    Dim lng As Long

    On Error Resume Next

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    lCont = 1

    For lng = 1 To 100

        ActiveSheet.Shapes.Range(Array("Check Box " & lCont)).Select

        With Selection

            .Value = xlOff

            .LinkedCell = "$M$" & lng

            .Display3DShading = False

        End With

        lCont = lCont + 1

    Next

    Set sh = Nothing

End Sub