Excel Forum Per condividere esperienze su Microsoft Excel

colorare con tasti

  • Messaggi
  • OFFLINE
    gga46
    Post: 90
    Registrato il: 04/03/2020
    Età: 77
    Utente Junior
    2019
    00 13/05/2020 10:47
    Salve a tutti,

    cortesemente una richiesta

    nel file allegato c'è una
    tabella di numeri che va da

    D4:M12
    vorrei, se possibile, che le celle
    che contengono i numeri trasformarle in tasti
    che clikkandoci sopra colorino i numeri
    delle 64 cartelle di colore unico in
    ARANCIONE

    Poi per identificare le cartelle
    dovrò numerarle e con la colorazione
    sapere quanti numeri per riga si
    son riempite di colore o viceversa
    quanti ne mancano di colorazione.

    Faccio presente che le cartelle sono state
    colorate in grigio ma se va in contrasto
    col colore arancione il grigio si può eliminare.

    Grazie

  • OFFLINE
    rollis13
    Post: 949
    Registrato il: 16/08/2015
    Città: CORDENONS
    Età: 67
    Utente Senior
    Excel 2016-32bit Win11
    00 13/05/2020 17:50
    Vediamo se questa mia macro, da mettere nel modulo del foglio interessato, può servirti per avviare il progetto.
    In pratica: cliccando sulla Tabella si colorano le celle identiche nelle Cartelle (ne ho messe solo 4 come esempio).
    Attenzione che nella macro la funzione "Union" viene erroneamente riportata come "Uni0n".
    Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim cella  As Range
    Dim rangeT
    Dim rangeC
    
    Set rangeT = Range("D4:M12")
    'esegui solo se siamo nella tabella
    If Intersect(Target, rangeT) Is Nothing Then Exit Sub
    'rangeC è da integrare con altri range
    Set rangeC = Uni0n(Range("Q16:Y19"), Range("Q22:Y25"), Range("AB16:AJ19"), Range("AB22:AJ25"))
    'sbianca tutte le aree (tabella e cartelle)
    rangeT.Interior.ColorIndex = xlNone
    rangeC.Interior.ColorIndex = xlNone
    'colora la cella selezionata
    Target.Interior.ColorIndex = 44
    'cerca nelle cartelle
    For Each cella In rangeC
        If cella.Value = Target.Value Then
            'colora la cella stesso numero
            cella.Interior.ColorIndex = 44
        End If
    Next cella
    
End Sub
    [Modificato da rollis13 13/05/2020 18:13]

    ______________________________________________________________
    C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
  • OFFLINE
    gga46
    Post: 90
    Registrato il: 04/03/2020
    Età: 77
    Utente Junior
    2019
    00 13/05/2020 18:37

    Salve Rollis13

    Su una cella funziona
    ma funziona solo per un numero
    mentre deve colorare diversi numeri
    Cioè mettiamo il caso devo colorare
    complessivamente 40-50 numeri
    Poi se puoi tenere presente che clikko
    su un numero diverso e vorrei eliminare il colore.

    Ho visto che hai selezionato cartella per
    cartella e tutte insieme?
    Il range complessivo delle cartelle
    va da Q16:EP109
    [Modificato da gga46 13/05/2020 18:42]
  • ABCDEF@Excel
    00 13/05/2020 19:04
    Forse non ho capito bene...(premi tasto 1)
    Se Ti va bene devi ricopiare la Sub 89 volte, modificando il nome Sub B_1() in Sub B_2() ecc ecc, modificando N = 1 in N = 2 ecc ecc
    Per finire per ogni tasto abbinargli la Sub relativa.
  • OFFLINE
    by sal
    Post: 5.914
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 13/05/2020 19:20
    Tasto colore
    Ciao ecco il file, credo faccia tutto, ho dovuto inserire un sacco di formule, cosa che per me è odiosa, mi sono arrangiato con il VBA per inserirle, ma comunque, vedi se va bene.

    in totale sono 191 quadri, non ci sono pulsanti ma seleziona un numero dalla tabella sa 1 a 90, e vedrai colorare tutti i numeri dei vari quadri, il numero selezionato resta colorato

    per eliminare tutta la colorazione basta cliccare sulla cella grigia con "D" e ricominciare.

    le tre colonne che vedi sono il riepilogo di ogni quadro che riporta le celle colorate e le celle grigie rimaste in testa ho fatto riportare la somma delle colonne, ti ho fatto riportare anche i totale delle tre colonne.

    Ciao By Sal [SM=x423051]

    [Modificato da by sal 13/05/2020 19:21]
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    gga46
    Post: 91
    Registrato il: 04/03/2020
    Età: 77
    Utente Junior
    2019
    00 13/05/2020 19:45
    ...

    ho copiato , prova, altr 2 macro
    cambiando il nome della macro
    ed il numero della n 2,3
    pero funziona solo il numero 1
    volendo proseguire ad esempio
    il 2 ed il 3 il puntatore del mouse
    rimane a forma di croce e quindi
    non si può clikkare.

    Poi vorrei che il numero che ho
    già colorato quello del quadro
    D4:M12 dovrebbe rimanere anchesso
    colorato che servirebbe che è stato
    già selezionato
  • OFFLINE
    gga46
    Post: 92
    Registrato il: 04/03/2020
    Età: 77
    Utente Junior
    2019
    00 13/05/2020 19:59

    Sal,

    va che è una meraviglia,

    QUASI,

    cioè se puoi fare un altro sforzo
    nel senso che a fianco a destra
    della cartella avere per riga
    il numero dei numeri colorati
  • OFFLINE
    by sal
    Post: 5.915
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 13/05/2020 21:26
    colorare con tasti
    veramente non ho capito molto cosa vuoi.
    ma puoi inserirei tranquillamente tu la formula, dove vuoi il conteggio ammettendo che il conteggio lo vuoi nella cella "P18" e vuoi sapere quante celle colorate ci sono nel range "Q18:Y18".

    ti posizioni nella cella "P18" poi basta che nella cella scrivi:

    =Contaclr(Q18:Y18;$A$8)

    dove "Q18:Y18" e il range interessato ma potrebbe essere un altro qualsiasi ed il colore come quello della Cella "A8" che come vedi ho bloccato, per trascinare la formula, e chiudi la parentesi.

    ora nella cella P18 saranno riportate quante celle del range interessato hanno lo stesso colore della cella "A8", se la cella "A8" sarebbe verde riporterebbe il conto di solo quelle con il colore verde.

    la funzione "Contaclr(Range, Colore) e quella che fa tutto il conteggio non devi fare niente solo inserire la funzione come una qualsiasi formula nella cella che vuoi il risultato.

    Ciao By Sal [SM=x423051]

    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • ABCDEF@Excel
    00 14/05/2020 01:17
    >>>Per finire per ogni tasto abbinargli la Sub relativa.
    Mouse destro sopra il bottone\assegna macro e dall'elenco scegli quella idonea
  • OFFLINE
    gga46
    Post: 93
    Registrato il: 04/03/2020
    Età: 77
    Utente Junior
    2019
    00 14/05/2020 10:12

    Una NOTA per LOCATE

    Salve Locate Varesino

    mi devi SCUSARE se ti ho fatto fare del lavoro
    inutile perchè la distribuzione dei numeri nelle
    cartelle non mi erano congeniale per quello che
    desidero fare.

    Adesso che sto facendo delle prove di cui mi stanno
    danno, statisticamente, più soddisfazione.

    Cordiale saluto e "tirremm innanz"
    Buon prosieguo di giornata

    gga46


Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima