Risultati da 1 a 29 di 29

Discussione: Formattazione condizionale



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Formattazione condizionale

    Ciao a tutti

    Un piccolo quesito..........

    vorrei formattare una cella ad esempio A1 in cui ce scritto ad esempio

    Anno 2015...... vorrei che le lettere le scrivesse con un colore e le date cioè i numeri di un altro

    Come posso fare???

    Grazie a tutti
    windows 10
    Excel 2016

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Mi auguro di essere smentito ma con Formattazione Condizionale non credo sia possibile.
    Forse, ma nutro qualche dubbio, con VBA.

    Ciao,
    Mario

  3. #3
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ciao marius44 può andare bene anche il Vba

    poi cambio io il range delle celle dove applicare la formattazione
    perchè ovviamente non mi interessa la cella A1 ma era solo per capire
    che tipo di formula o istruzione utilizzare

    Grazie
    windows 10
    Excel 2016

  4. #4
    L'avatar di vicmacky
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    milano
    Età
    37
    Messaggi
    3
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0
    ovviamente hai già pensato di dividere la cella ANNO 2015 in due celle : ANNO e 2015 e formattarle condizionalmente in maniera separata?

  5. #5
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    si infatti era un esempio

    sono altri i fattori da separare dentro la stessa cella
    windows 10
    Excel 2016

  6. #6
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    un esempio vicino alla realtà potrebbe essere questo
    windows 10
    Excel 2016

  7. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao a tutti,

    @nick0573
    puoi usare questo codice (rosso prima dello spazio, verde dopo lo spazio):

    Codice: 
    Option Explicit
    
    
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        With Range("A1")
            .Characters(Start:=1, Length:=InStr(1, .Value, " ") - 1).Font.ColorIndex = 3
            .Characters(Start:=InStr(1, .Value, " ") + 1, Length:=Len(.Value) - InStr(1, .Value, " ")).Font.ColorIndex = 4
        End With
    End If
    
    
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  8. #8
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    scusa ho postato ora quello che devo formattare

    Può andare bene lo stesso????

    Grazie cromagno
    windows 10
    Excel 2016

  9. #9
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Funziona però se cambio range no
    Come mai

    Option Explicit


    Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Range("A1:E8")) Is Nothing Then
    With Range("A1")
    .Characters(Start:=1, Length:=InStr(1, .Value, " ") - 1).Font.ColorIndex = 3
    .Characters(Start:=InStr(1, .Value, " ") + 1, Length:=Len(.Value) - InStr(1, .Value, " ")).Font.ColorIndex = 4
    End With
    End If


    End Sub
    windows 10
    Excel 2016

  10. #10

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao,
    hai cambiato questa riga:
    If Not Intersect(Target, Range("A1:E8")) Is Nothing Then

    ma non la successiva:
    With Range("A1")

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  11. #11
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Cambiato con.......(e anche colori ma mi dà errore debug)

    Option Explicit


    Private Sub Worksheet_Change(ByVal Target As Range)


    If Not Intersect(Target, Range("A1:E8")) Is Nothing Then
    With Range("A1:E8")
    .Characters(Start:=1, Length:=InStr(1, .Value, " ") - 1).Font.ColorIndex = 3
    .Characters(Start:=InStr(1, .Value, " ") + 1, Length:=Len(.Value) - InStr(1, .Value, " ")).Font.ColorIndex = 4
    End With
    End If


    End Sub
    windows 10
    Excel 2016

  12. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Allega il file con il codice che hai inserito

    [EDIT]

    Cambia solo questo:

    Codice: 
    Option Explicit
    
    
    
    
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    
    
    If Not Intersect(Target, Range("A1:E8")) Is Nothing Then
    With Target
    .Characters(Start:=1, Length:=InStr(1, .Value, " ") - 1).Font.ColorIndex = 3
    .Characters(Start:=InStr(1, .Value, " ") + 1, Length:=Len(.Value) - InStr(1, .Value, " ")).Font.ColorIndex = 4
    End With
    End If
    
    
    
    
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  13. #13
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Eccolo
    windows 10
    Excel 2016

  14. #14

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Scusa, ho aggiunto dopo nel post precedente:

    cambia questa riga:
    With Range("A1:E8")

    così:
    With Target

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  15. #15
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    scusa ma non riesco a capire dove cambiare

    me la potresti incollare te la formula


    Grazie
    windows 10
    Excel 2016

  16. #16

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Prova...

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  17. #17
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Funziona benissimo

    posso anche cambiare in mio range come voglio?????
    windows 10
    Excel 2016

  18. #18

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Se intendi Range("A1:E8") ​allora si...

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  19. #19
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    ok Mille grazie và alla PERFEZIONE!!!!!!!!!!!!!
    windows 10
    Excel 2016

  20. #20

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Grazie del riscontro :246:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  21. #21
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Grazie a te per aiuto


    :28:
    windows 10
    Excel 2016

  22. #22
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ciao Cromagno

    Scusa ti riallego il file, perchè ti volevo far notare che se all'interno di una cella
    invece di avere nomi e data scrivo solo il nome il colore della scritta è diverso dalla cella in cui c'è
    sia il nome che la data.....scusa il giro di parole

    In poche parole Milano e Torino sono scritte in nero mentre Napoli e roma in Blu

    Io vorrei se possibile che indipendentemente cosa ci sia scritto nella cella
    I nomi fossero sempre un colore e le date un altro

    Grazie
    windows 10
    Excel 2016

  23. #23

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao Nick,
    quale file hai allegato?!?

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  24. #24
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Si scusa arriva subito
    windows 10
    Excel 2016

  25. #25

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao Nick,
    è giusto che colori in questo modo perchè il codice colora la parte prima dello spazio di nero mentre la parte dopo lo spazio in blu... non essendoci alcuno spazio, il colore preso in considerazione è solo l'ultimo.

    Per fare quello che chiedi occorrono altri controlli. Non l'ho mai fatto, quindi non posso garantirti nulla.
    Comunque ci provo.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  26. #26
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Grazie cmq
    del tempo che ci hai dedicato r che ci dedichi


    :280:
    windows 10
    Excel 2016

  27. #27

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Credo di esserci riuscito... fai delle prove.

    In pratica, le date le colora di blu, tutto il resto di nero:

    Codice: 
    Option Explicit
    
    
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nomi_date, inizio As Single, fine As Single, i As Single
    
    
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:E8")) Is Nothing Then
        nomi_date = Split(Target.Value, " ")
        For i = 0 To UBound(nomi_date)
            If IsDate(nomi_date(i)) Then
                fine = fine + Len(nomi_date(i))
                Target.Characters(Start:=inizio, Length:=fine).Font.ColorIndex = 5
                inizio = inizio + Len(nomi_date(i)) + 1
            Else
                fine = fine + Len(nomi_date(i))
                Target.Characters(Start:=inizio, Length:=fine).Font.ColorIndex = 1
                inizio = inizio + Len(nomi_date(i)) + 1
            End If
        Next i
    End If
    
    
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  28. #28
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ok grazie faccio delle prove sul reale e ti faccio sapere

    Grazie
    windows 10
    Excel 2016

  29. #29
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Grazie


    Cromagno ora funziona come serve a me evidenzia il testo sempre dello stesso colore

    indipendentemente se vi è anche la data

    Grazie:87:_
    windows 10
    Excel 2016

Discussioni Simili

  1. Formattazione condizionale
    Di totorom1 nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 29/12/16, 18:20
  2. [Risolto] Formattazione Condizionale
    Di Ulfang89 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 11/12/16, 11:25
  3. [Risolto] formattazione condizionale
    Di para siempre nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 03/12/16, 19:01
  4. formattazione condizionale se una
    Di Eddie18 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 26/10/16, 11:37
  5. Formattazione condizionale
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 07/02/16, 15:39

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
  •