Risultati da 1 a 10 di 10

Discussione: Azzerare Colore in un Colpo Solo



  1. #1
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Azzerare Colore in un Colpo Solo

    Ciao a tutti il mio problema e questo : Ahora attualmente sono sempre alle prese con delle Chart; per qui il Tema e Questo .
    Usando Questo codice VBA
    Codice: 
    Application.ScreenUpdating = FalseFoglio1.ChartObjects("Grafico 5").Activate
    With ActiveChart.SeriesCollection(1)
    
    
    .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
    .Points(Foglio1.Range("AH26").Value).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
    End With
    Interagisco con una Chart per Dare un Colore al Numero 1 della prima Serie che ho Colorato di Rosso
    ahora visto che di Serie ne ho ca Calcolare almeno sino a 90 .
    Io Vorrei Sapere quale formula io posso adottare per Fare si che in un colpo solo essi si portino al premere di un Tasto con il Colore di Fondo Originale che è :
    Codice: 
    .Format.Fill.ForeColor.RGB = RGB(255, 255, 204)
    .Points(Foglio1.Range("AH26").Value).Format.Fill.ForeColor.RGB = RGB(255, 255, 204)
    Mi Spiego Meglio : Sul Mio foglio ci sono due Tasti " 1 per estrarre Dei Numeri a Caso Dall'1 al 90" L'altro "Per Azzerare il Tutto compreso il Colore delle chart" che durante le estrazioni dei numeri si evidenziano di Rosso.
    Mentre All'inizio della partita essi cono Colorati di un Giallo Paglierino.
    Ora io ho voluto provare il modo più classico che io conosca , che sarebbe nel Fare questo :
    All'interno del Tasto Azzera ho scritto :
    Codice: 
     
    for A= 1 to 89 
    
    Application.ScreenUpdating = FalseFoglio1.ChartObjects("Grafico 5").Activate
    With ActiveChart.SeriesCollection(A)
    
    
    .Format.Fill.ForeColor.RGB = RGB(255, 255, 204)
    .Points(Foglio1.Range("AH26").Value).Format.Fill.ForeColor.RGB = RGB(255, 255, 204)
    End With
    Next A
    Ma non succede nulla !
    Perchè ? e come posso ovviare al fatto che in caso contrario non mi resterebbe altro che far seguire lo stesso codice per 90 volte mettendo cosi i numeri progressivi; Ma non lo trovo logico .
    Grazie per tutto l'aiuto che riuscirete a darmi in merito .
    (P.S) Premetto che per il momento non metto nessun File a vostra disposizione , in quanto quello che ho e in fase di Chiusura per qui essendo di grandi Dimensioni dovrei Inserirlo in un altro canale , per qui vi chiedo scusa. Saluti da A.Maurizio

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Azzerare Colore in un Colpo Solo

    Ciao Maurizio
    vedendo le tue macro mi sorge un dubbio.
    Ma alla fine hai ripristinato Application.ScreenUpdating = TRUE ?

    Ciao,
    Mario

  3. #3
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Azzerare Colore in un Colpo Solo

    Si Certo Marius44, mi era solo sfuggito , ma non penso che implichi qualcosa ho sbaglio ?

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Azzerare Colore in un Colpo Solo

    Ciao Maurizio
    ti allego un file dove ho fatto una prova con questa macro
    Codice: 
    Sub cambiacolore()
    Application.ScreenUpdating = False
    a = 255: b = 0
    Foglio1.ChartObjects("Grafico 1").Activate
    For i = 1 To 2
        With ActiveChart.SeriesCollection(i)
            .Select
            .Format.Fill.ForeColor.RGB = RGB(a, 0, b)
        End With
        a = 0: b = 255
    Next i
    Cells(1, 1).Select
    Application.ScreenUpdating = False
    End Sub
    Come puoi vedere cliccando sul pulsante le due serie cambiano colore. Se cambi i valori delle variabili a e b nella macro puoi ottenere il colore desiderato (badando a invertire i dati prima di Next i).
    Prova ad adattarla alle tue esigenze.
    Ciao,
    Mario
    File Allegati File Allegati

  5. #5
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Azzerare Colore in un Colpo Solo

    Ciao Marius scusami se ti rispondo solo ora ma non preso in più fronti con il mio Lavoro, Trà concerti e Pasticceria , mai più finito .
    Dunque per prima cosa , Ci tengo a ringraziarti per il bel lavoro che mi hai offerto , non e proprio quello che avevo in mente io , ma lo sfrutterò sicuramente in altre occasioni .
    Per il resto : Dubitavo già che non si sarebbe Capito molto , solo usando le Parole senza vedere di concreto ciò che realmente vorrei io realizzare, per qui mi sono messo di santa Pazzienza e ti ho preparato un mini programmino , che rispeccia fedelmente la mia richiesta.
    Per qui provalo e poi fammi sapere , se si può fare qualcosa di meno impegnativo , per il resti Grazie ancora di Tutto , Saluti da A.Maurizio
    File Allegati File Allegati

  6. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Azzerare Colore in un Colpo Solo

    Ciao Maurizio
    se ho capito quello che ti serve credo sia sufficiente impostare un ciclo. Ti mostro l'esempio:
    Codice: 
    Sub Azzera_Tutto1()
    On Error Resume Next
    Application.ScreenUpdating = False
    Foglio1.ChartObjects("Grafico 1").Activate
    For i = 1 To 20
        With ActiveChart.SeriesCollection(i)
            .Format.Fill.ForeColor.RGB = RGB(255, 255, 204)
            .Points(Foglio1.Range("J2").Value).Format.Fill.ForeColor.RGB = RGB(255, 255, 204)
        End With
    Next i
    Application.ScreenUpdating = True
    Stop
    'Call Azzera_Tutto2
    End Sub
    Con il ciclo che vedi in rosso tutti i numeri saranno senza colore (tranne quello di cui alla cella J2) e, a questo punto, penso che richiamare la macro Azzera_Tutto2 sia inutile.

    Fammi sapere. Ciao,
    Mario

  7. I seguenti utenti hanno dato un "Like"


  8. #7
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Azzerare Colore in un Colpo Solo

    Sei un Grande Marius anche sè a dire il Vero ti stavo proprio Cercando per chiedere di non prendertela più di tanto perchè hai praticamente fatto quello che ho poi fatto io L'altra sera in quanto ero a cena con Amici e mi si è accesa una lampadina nella mia testa , per qui quando sono Arrivato a casa ho buttato giù due righe malgrado la Stanchezza.E ora funziona tutto a meraviglia.
    In fatti lo puoi Risolta cosi :
    Codice: 
    
    Sub Azzera_Chart()
    On Error Resume Next
    'Formatto e Ripristino il Coloro Del Tombolone con il Colore di _
    Partenza che è "Giallo Paglierino"
    For A = 1 To 90
    Application.ScreenUpdating = False
    Foglio1.ChartObjects("Grafico 5").Activate
    With ActiveChart.SeriesCollection(A)
    
    
    .Format.Fill.ForeColor.RGB = RGB(255, 255, 204)
    .Points(Foglio1.Range("J2").Value).Format.Fill.ForeColor.RGB = RGB(255, 255, 204)
    End With
    Next
    Application.ScreenUpdating = True
    
    
    Call Torna_Al_Tuo_Posto
    End Sub
    E devo dire che funziona Perfettamente bene , comunque non temere proverò Anche il Tuo Codice.
    Per il Resto Grazie di tutto cuore in queste cose sei Il mio idolo Sinceri saluti da A.Maurizio

    (P.s) Se ti può Interessare scaricati il tutto presso questo Link :
    https://app.box.com/s/ao6zujbfxu3keza7ml521lrt80spk16x

    E se ti Va Fammi Sapere Ciao e Grazzie ancora di tutto

  9. I seguenti utenti hanno dato un "Like"


  10. #8
    L'avatar di Vincenzo Damiani
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Molfetta
    Età
    58
    Messaggi
    422
    Versione Office
    2010
    Likes ricevuti
    13
    Likes dati
    637

    Re: Azzerare Colore in un Colpo Solo

    Gran bel lavoro, complimenti......
    Grazie Maurizio:255::255:
    Windows8.1 office 2010

  11. #9
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Azzerare Colore in un Colpo Solo

    Ciao Vincenzo Grazie anche a te D'aver Visionato il mio Lavoro Saluti da A.Maurizio

    Nel Contempo ne approfitto , Per Salutare e Ringrazieare ancora una Volta Marius44 il tuo suggerimento e Validissimo e non poteva essere Altrimenti , Dato il fatto che è stato fatto da un Genio come te .
    In fatti l'unica Differenza che c'era tra il tuo e il mio Codice , e che : Nel mio per un Breve periodo si Fermava bloccando l'intera funzione.

    Mentre usando il tuo : risulta una Cancellazione quasi Immadiata , Per qui Dinuovo Grazie Saluti a tutti

  12. #10
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    627
    Likes dati
    155

    Re: Azzerare Colore in un Colpo Solo

    Ciao Maurizio
    Grazie per il cortese riscontro e complimenti ancora per l'ottimo lavoro da te realizzato.

    Ciao,
    Mario

Discussioni Simili

  1. Azzerare contatore in base a data
    Di Vito_Pat nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 28/02/17, 13:52
  2. [Risolto] Cambio colore solo per una singola voce dell'elenco sull'asse orizzontale
    Di MicheleG. nel forum Domande sui Grafici di Excel
    Risposte: 11
    Ultimo Messaggio: 23/01/17, 23:11
  3. Sommare in una cella, memorizzare ed azzerare i campi d'appoggio...(con pulsante)
    Di LukaFranzoni nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 27/10/16, 14:46
  4. colore domeniche
    Di D@nilo nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 05/06/16, 12:47
  5. Macro per azzerare filtri di una tabella
    Di GabrieleJax nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 05/04/16, 15:05

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •