Risultati da 1 a 16 di 16

Discussione: Cambio colore cella



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165

    Cambio colore cella

    Ciao a tutti

    Vorrei sapere come potrei fare con il Vba quanto segue:

    1) coloro di rosso manualmente lo sfondo della cella A1
    2) dopo la colorazione in manuale di A1 che istruzioni Vba devo usare per colorare automaticamente lo sfondo della cella B1 sempre di rosso?

    Spero di essere stato chiaro.

    Alfredo

  2. #2
    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
    Ciao AlFrimPa Per qiesto tuo problema potresti provare ad usare questo :

    Sub Colore()
    On Error Resume Next
    For Each C In Range("B,B")
    If Application.CountIf(Range("A1"), C) >= 1 Then C.Interior.ColorIndex = 3
    If Application.CountIf(Range("A1"), C) >= 1 Then C.Font.ColorIndex = 2
    Next
    End Sub

    Tieni Presente che Io ti ho anche messo la Variante del Font che in questo caso e di Colore Bianco per risaltare il tutto .
    Ma tu puoi anche non mettere .
    Poi vedi tu ! Ciao da A. Maurizio

  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
    Ti invio in oltre una altra variabile nel caso ti potesse servire in futuro ,che e questa :

    Sub Trova_Corrispondenza()
    Worksheets(1).Calculate

    Foglio2.Range("A5").Value = ""
    Foglio2.Range("A5").Interior.ColorIndex = 8
    Foglio2.Range("A5").Formula = "=countif(foglio1!D2:K20,""1"")"


    For Each c In Foglio1.Range("D2:K20")
    If Application.CountIf(Foglio1.Range("M5"), c) >= 1 Then c.Interior.ColorIndex = 1
    If Application.CountIf(Foglio1.Range("M5"), c) >= 1 Then c.Font.ColorIndex = 2
    Next
    End Sub

    in pratica non fa altro che : Provare Tutti i numero (1) che ci sono all'interno di un determinato Gruppo di Celle , che nel mio Caso erano da prendere in considerazione dalla cella (D2:K20) Risperro a Quello che io nettevo Nella Cella (M5).
    In più mi riportava il Quantitativo trovato nella cella (A5) Del foglio 2 . Ciao da Maurizio

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao a tutti

    Vorrei sapere come potrei fare con il Vba quanto segue:

    1) coloro di rosso manualmente lo sfondo della cella A1
    2) dopo la colorazione in manuale di A1 che istruzioni Vba devo usare per colorare automaticamente lo sfondo della cella B1 sempre di rosso?

    Spero di essere stato chiaro.

    Alfredo
    Ciao Alfredo se usi registrazione macro e fai gli stessi passaggi che hai fatto per la cella A1 ti ritrovi il codice bell'e pronto.

    ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165
    Ringrazio entrambi ma forse non sono stato chiaro.

    So perfettamente come colorare lo sfondo di una cella con il VBA.

    Quello che voglio fare io è che dopo aver cambiato manualmente lo sfondo di una cella automaticamente (senza che io non faccia nulla) si colori lo sfondo di un'altra cella quale che sia.

    Come è noto l'evento Change dell'oggetto Worksheet non intercetta il cambio di colore di una cella; il punto è proprio questo come farlo?

    Alfredo

    P.S. Per A. Maurizio: non mi serve una macro ma del codice associato ad un evento

  6. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Mah!
    Sicuramente non ho capito bene la richiesta, se cambio il colore della cella A1 e voglio che si colori automaticamente la cella B1 a me funziona.

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1").Interior.ColorIndex <> xlNone Then
    Range("B1").Interior.ColorIndex = 6
    End If
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  7. #7

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165
    Ciao Ges hai capito perfettamente.

    Anch'io avevo fatto una macro con il SelectionChange che funzionava bene (a questo punto penso che sia l'unica strada).

    Il punto è che il problema che ho è un po' più complesso rispetto alla domanda che ho fatto.

    Comunque grazie

  8. #8

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    ...
    Il punto è che il problema che ho è un po' più complesso rispetto alla domanda che ho fatto.
    ....
    Se ti va spiegaci il tuo problema possiamo sempre provare a darti un'idea.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  9. #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
    Ciao AlFrimPa , questa volta penso d'aver capito ed esaudito la tua richiesta guarda se e quello che stavi cercando tu .
    Io inserisco un colore nella cella G1 e tale colore viene ripetuto nella cella C3.
    Fammi sapere Grazie , ciao da Maurizio
    File Allegati File Allegati

  10. #10

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1024
    Versione Office
    .
    Likes ricevuti
    367
    Likes dati
    0
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao a tutti

    Vorrei sapere come potrei fare con il Vba quanto segue:

    1) coloro di rosso manualmente lo sfondo della cella A1
    2) dopo la colorazione in manuale di A1 che istruzioni Vba devo usare per colorare automaticamente lo sfondo della cella B1 sempre di rosso?
    Ciao Alfredo,

    Si può fare, con l'uso di una classe CommandBars.

    Nel file che allego è applicato alla sola cella A1 del Foglio1.
    Per il codice ho preso spunto da un codice del mitico r (almeno mi pare).
    Non dovresti avere problemi ad adattarlo alle tue reali necessità.
    File Allegati File Allegati
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  11. #11
    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
    Scusatemi non Volevo partecipare , Ho Sbagliato percorso

  12. #12

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1024
    Versione Office
    .
    Likes ricevuti
    367
    Likes dati
    0
    Citazione Originariamente Scritto da A.Maurizio Visualizza Messaggio
    Scusatemi non Volevo partecipare , Ho Sbagliato percorso
    Ciao Maurizio,

    ho guardato il tuo file, ma non fa quanto chiesto da Alfredo; probabilmente hai frainteso la richiesta di Alfredo: voleva una soluzione "automatica", senza bisogno di dover cliccare un commandbutton, o comunque senza dover lanciare una macro manualmente.

    Mi sembra che i tuoi interventi vengano spesso apprezzati (anche se io fatico ad interpretare quello che scrivi, del resto se io dovessi scrivere in spagnolo non sarei certo più comprensibile) per cui non farti certi problemi ed intervieni tranquillamente ogni volta che lo ritieni utile.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  13. #13
    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
    Ciao Scossa , C'è stato un errore di un mio Intervento , che ho cercato di rimediare , ma non pensavo che non si potesse più tornare indietro .
    In fatti io dopo il tuo intervento non volevo Introdurre nessuna discussione ; anche perchè quello che fai tu per me è Oro .
    Quindi sarebbe poco credibile e inaspicabile un altro mio intervento dopo il tuo .
    In fatto visto che volevo inserire quel programma che avevo appena creato per me ; oltre che per voi .Non volevo inserirlo qui ; ma bensi nella Sezione Giochi ; Cosa che poi ho fatto .
    Tutto qui , chiedo scusa a tutti e nel contempo vi saluto . da Maurizio

  14. #14

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6814
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    165
    @ scossa

    Ciao Marco

    Purtroppo le mie conoscenze di VBA non sono neanche lontanamente paragonabili alle (né tantomeno a quelle di r) per cui ti chiederei di darmi qualche indicazione in più e spiegarmi come fare ad utilizzare il file che hai allegato.

    Ciò al solo scopo didattico visto che l'utente che aveva posto il quesito (ed a cui cercavo di rispondere) ha proposto la problematica anche su questo forum (probabilmente perché non aveva ricevuto risposte risolutive).

    http://www.forumexcel.it/forum/7-dom...4155#post14155

    Grazie

    Alfredo

  15. #15
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3222
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155
    Ciao scossa
    esempio molto, molto interessante. Ci ho studiato un poco sopra e, a grandi, ma molto grandi, linee ho capito.

    Però c'è una cosa che non fa.
    Ho colorato "manualmente" la cella A1 e la cella B1 risponde con lo stesso colore.
    Mi posizione nella cella A2 (che non ha colore) e la "trascino" su A1. A questo punto la cella A1 non ha alcun colore ma la cella B1 rimane col colore che aveva prima.
    Ho smanettato un po' ma non cavo un ragno dal buco. E' giusto così o mi sono perso qualcosa?

    Ciao,
    Mario

  16. #16
    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
    Ciao AlFrimPa Prova Questo e Fammi Sapere Grazie
    File Allegati File Allegati

Discussioni Simili

  1. [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
  2. cambio colore oggetti
    Di morenomax nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 25/03/16, 19:27
  3. Barre percentuali e cambio colore al 100%
    Di k0ral nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 29/01/16, 15:35
  4. cambio colore del carattere e delle celle
    Di Scuotioss4 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 10/12/15, 19:55

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
  •