Risultati da 1 a 16 di 16

Discussione: ColorIndex VBA



  1. #1
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    ColorIndex VBA

    Ciao a tutti
    Sto Imparando un po di VBA e sto iniziando a scopiazzare qualche Codice da un famoso libro "Excel e Office VBA" di G.Giaccaglini
    ovviamente dal libro non si può fare copia ed incolla indi per cui sto scrivendo i codici a mano e credo che sia una buona cosa perchè cosi si impara dai propri errori
    Vado al sodo:
    come potete vedere dal codice
    Codice: 
    Sub StileTitolo()
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
    End With
    Selection.Font.Bold = True
    Selection.Font.Italic = True
    With Selection.Interior
    .ColorIndex = 15
    .Pattern = Solid
    End With
    Columns("f:f").EntireColumn.AutoFit
    End Sub
    Non riesco a capire 2 cose molto importanti:

    Lo stile dei caratteri credo sia n inglese"Selection.Font.Italic = True " e come faccio ad avere una lista dei font in inglese?

    e poi i colori ".ColorIndex = 15" ho fatto una prova a cambiare il numero ma non succede niente
    grazie

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    [/CODE]
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Ciao a tutti
    Sto Imparando un po di VBA e sto iniziando a scopiazzare qualche Codice da un famoso libro "Excel e Office VBA" di G.Giaccaglini
    ovviamente dal libro non si può fare copia ed incolla indi per cui sto scrivendo i codici a mano e credo che sia una buona cosa perchè cosi si impara dai propri errori
    Vado al sodo:

    Non riesco a capire 2 cose molto importanti:

    Lo stile dei caratteri credo sia n inglese"Selection.Font.Italic = True " e come faccio ad avere una lista dei font in inglese?

    e poi i colori ".ColorIndex = 15" ho fatto una prova a cambiare il numero ma non succede niente
    grazie
    Codice: 
    Sub StileTitolo()
    
    With Selection.Font
        .Name = "Baskerville Old Face"
        .Size = 14
    End With
    
    
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
    End With
    
    
    
    
    Selection.Font.Bold = True
    Selection.Font.Italic = True
    
    
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = Solid
    End With
    
    
    Columns("f:f").EntireColumn.AutoFit
    
    
    End Sub
    Nella prima parte in rosso selezioni il tipo di font (il nome lo trovi sul menù Home ---> carattere) e la grandezza
    la parte in rosso dopo color index = 15 toglila e vedrai che cambiando il numero cambia il colore (non chiedermi il perchè del .pattern = solid :302:)

    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)

  3. #3
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    ciao baloon_50
    pensavo che per il tipo di font bisognava intervenire qui
    Codice: 
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
    End With
    Selection.Font.Bold = True
    Selection.Font.Italic = True
    invece tu hai aggiunto del codice nuovo (in rosso)

  4. #4
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    la parte in rosso dopo color index = 15 toglila e vedrai che cambiando il numero cambia il colore
    ho provato però cambia il colore del riempimento della cella e non del carattere
    grazie in anticipo

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    With Selection
    .HorizontalAlignment = xlCenter allinea al centro orizzontalmente il carattere
    .VerticalAlignment = xlBottom allinea in basso verticalmente il carattere
    End With
    Selection.Font.Bold = True imposta a grassetto il carattere
    Selection.Font.Italic = True imposta l'italico al carattere

    se vuoi colorare il carattere e non la cella allora non devi scrivere :

    With Selection.Interior
    .ColorIndex = 15
    End With

    ma devi scrivere :


    With Selection.font
    .color = 15
    End With





    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)

  6. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    ho provato a cambiare il numero come mi hai detto " Font.Color=3" ma il colore del font è sempre lo stesso cioè nero
    dove sbaglio?
    grazie
    Codice: 
    Sub StileTitolo()
    
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
    End With
    
    
    Selection.Font.Bold = True
    Selection.Font.Italic = True
    
    
    
    
    With Selection.Font
    .Color = 3
    
    
    End With
    
    
    Columns("f:f").EntireColumn.AutoFit
    End Sub

  7. #7
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    ho provato però cambia il colore del riempimento della cella e non del carattere
    grazie in anticipo
    il codice del colore del carattere lo trovi nella famosa tabella che aveva condiviso il buon Scossa

    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)

  8. #8
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    il codice del colore del carattere lo trovi nella famosa tabella che aveva condiviso il buon Scossa
    ma quella tabella era dei codici HTML e non per i codici VBA, forse sbaglio?:235::235:

  9. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    ma quella tabella era dei codici HTML e non per i codici VBA, forse sbaglio?:235::235:
    da quella tabella devi usare la colonna RGBlong i codici sono quelli fidati ho appena rifatto la prova :28:

    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)

  10. #10
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Ok
    Hai letto il codice nel post #6 ma non cambia il colore

  11. #11
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Ok
    Hai letto il codice nel post #6 ma non cambia il colore
    allora ti allego il file dove ho fatto le prove.
    Nel VBA ti ho segnato la parte relativa al colore del carattere. :222:
    Vai tranquillo funge tutto.

    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)

  12. #12
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3343
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Ok
    Hai letto il codice nel post #6 ma non cambia il colore
    Dunque se utilizzi ".ColorIndex = 3" (senza virgolette), anzichè ".Color = 3" puoi utilizzare i valori della tabella che ti allego.

    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)

  13. I seguenti utenti hanno dato un "Like"


  14. #13
    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
    Buongiorno a tutti

    @Gerardo
    cambia il codice del tuo posto #6 con questo
    Codice: 
    Sub StileTitolo()With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .Font.Bold = True
        .Font.Italic = True
        .Font.ColorIndex = 3
    End With
    Columns("f:f").EntireColumn.AutoFit
    End Sub
    e vedrai che il colore e lo stile cambiano.
    Ciao,
    Mario

  15. I seguenti utenti hanno dato un "Like"


  16. #14
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    @Ballon_50
    Grazie per la scheda dei colori e del codice VBA che funziona benissimo
    @ Mauris44
    Grazie per il tuo codice funzione benissimo
    e dichiaro questa discussione risolta

  17. #15
    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 Gerardo Anche sé e vero che tu hai chiuso questa Discussione sui Colori , Ti voglio offrire un mio Modesto Contributo , per Avere tutta la Scala dei colori di Excel , Sia nella magnera classica che quella Ottenuta con caratteri Ascii ; Allego anche progetto Sinceri Saluti da A.Maurizio

  18. #16
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Citazione Originariamente Scritto da A.Maurizio Visualizza Messaggio
    Ciao Gerardo Anche sé e vero che tu hai chiuso questa Discussione sui Colori , Ti voglio offrire un mio Modesto Contributo , per Avere tutta la Scala dei colori di Excel , Sia nella magnera classica che quella Ottenuta con caratteri Ascii ; Allego anche progetto Sinceri Saluti da A.Maurizio
    Grande Maurizio
    grazie di cuore
    una sola domanda cosa sono i codici Ascii?
    Grazie ancora

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
  •