Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

VBA COLORI ESADECIMALI

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

VBA COLORI ESADECIMALI

Postdi nicola_na78 » 03/02/18 12:41

Buongiorno a tutti, ho due quesiti da porvi:
1) nella colonna b di un foglio excel o inseriti i codici colori esadecimali di alcuni articoli. Es.

B2 #943B4F
B3 #AF595B
B4 #C36B79
B5 #CD003F
B6 #DF1223

è possibile colorare le celle della colonna C con il colore esadecimale presente in B?

B2 #943B4F c2 colore
B3 #AF595B c3 colore
B4 #C36B79 ecc.....
B5 #CD003F
B6 #DF1223


2) in una cartella "colori" ho delle immagini, è possibile sapere in un foglio excel per ogni immagine presente nella cartella il suo codice esadecinale??

Grazie a tutti, buon week-end

win 7
Office 2007
nicola_na78
Utente Senior
 
Post: 167
Iscritto il: 11/06/10 15:26

Sponsor
 

Re: VBA COLORI ESADECIMALI

Postdi FRIEDRICH » 04/02/18 15:10

Ciao Nicola,
per quanto riguarda la prima domanda usa il codice seguente:

Codice: Seleziona tutto
Sub ColoraCelle()
     
    Dim i As Integer
    Dim UltimaRiga As Integer
   
    UltimaRiga = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To UltimaRiga
        Cells(i, "C").Interior.Color = HEXCOL2RGB(Cells(i, "B"))
    Next
End Sub
   
Function HEXCOL2RGB(ByVal HexColor As String) As Long
'converte HEX in RGB
    Dim Red As String, Green As String, Blue As String
     
    HexColor = Replace(HexColor, "#", "")
    Red = Val("&H" & Mid(HexColor, 1, 2))
    Green = Val("&H" & Mid(HexColor, 3, 2))
    Blue = Val("&H" & Mid(HexColor, 5, 2))
     
    HEXCOL2RGB = RGB(Red, Green, Blue)
   
End Function


Per il secondo problema il consiglio è di usare uno strumento specifico senza passare da Excel, ad esempio PicPick, disponibile anche in versione portable, gratuito per uso non commerciale, vedi al seguente link: https://portableapps.com/apps/graphics_pictures/picpick-portable
Avatar utente
FRIEDRICH
Utente Junior
 
Post: 18
Iscritto il: 09/07/17 17:14

Re: VBA COLORI ESADECIMALI

Postdi nicola_na78 » 05/02/18 14:43

Ciao FRIEDRICH,
grazie per aver risposto, e grazie anche per l'aiuto, la macro è perfetta. Picpick devo capire come funziona :-)

Grazie ancora, alla prossima

Nicola
nicola_na78
Utente Senior
 
Post: 167
Iscritto il: 11/06/10 15:26


Torna a Applicazioni Office Windows


Topic correlati a "VBA COLORI ESADECIMALI":


Chi c’è in linea

Visitano il forum: Bing [Bot] e 35 ospiti