Novità

X Luigi o chi può: Colore in celle tabella

claudio8

Premium Member
Come sappiamo quasi tutti, la colorazione delle celle di una Tabella si effettua con Call SetColoreCella(n° cella,vbYellow,vbBlack)
Sub SetColoreCella(idCella As Integer, Optional Colore = -1, Optional ColoreTesto = -1) .
Utilizzando i colori di Vbscript, (vbYellow, ecc.) non abbiamo molte varianti essendo la specifica cartella limitata a 8 colori e quindi passiamo all'uso del colore composto in RGB(rosso, verde, blu). Sin qui tutto è chiaro, però a me occorrerebbe poter differenziare in maniera "evidente" (visivamente immediata) i colori in base ai numeri (es: da 1 a 30 o più) presenti nelle celle della suddetta Tabella.
Premesso che ho cercato sul web senza trovare soluzioni accettabili in vbscript, (per l'excel-vba vi è Interior.Color) chiedo quindi un aiuto per definire un codice che concatenato ai parametri di rosso,verde e blu di RGB (max valori= 255) riesca a dare evidenza (non sfumatura) ripeto "evidenza" a celle aventi numeri consecutivi.

Un codice che utilizzi questo costrutto :

'If avalori(6) > 0 Then Call SetColoreCella(6,RGB(10*avalori(6),10*avalori(6),1 0*avalori(6)),vbWhite) o qualcosa di simile, non risolve granchè poichè una piccola variazione di avalori (numeri consecutivi) non fa variare di molto il colore che si compone.

Grazie per l'aiuto o per eventuali suggerimenti.
un saluto... sperando che questo non diventi il mio tormentone d'estate.
 
Ultima modifica:
ciao per me invece di impicciarti in routine per le sfumature ti conviene individuare 90 colori , scrivere il valore corrispondente del colore in una stringa separata da virgole ottenendo 90 valori
Poi creerai una funzione che legge la stringa alimenti un vettore di 90 elementi con i valori letti dalal stringa , dopo di che usi i valori contenuti nel vettore.
Questa funzione poi la userai negli script in cui occorre.

una funzione simile a questa .. anche perche questa non funziona l'ho scritta tanto per farit capire
Codice:
function GetColorePersonalizzato (Numero)
    varColori = 255,500,800,.......,.....novantesimocolore
    redim aV(0)
    av = split ( varColori, ",")

    GetColorePersonalizzato = clng(av(numero))
end function
 
Ultima modifica di un moderatore:
LuigiB;n2127956 ha scritto:
ciao per me invece di impicciarti in routine per le sfumature ti conviene individuare 90 colori , scrivere il valore corrispondente del colore in una stringa separata da virgole ottenendo 90 valori
Poi creerai una funzione che legge la stringa alimenti un vettore di 90 elementi con i valori letti dalal stringa , dopo di che usi i valori contenuti nel vettore.
Questa funzione poi la userai negli script in cui occorre.

una funzione simile a questa .. anche perche questa non funziona l'ho scritta tanto per farit capire
Codice:
function GetColorePersonalizzato (Numero)
varColori = 255,500,800,.......,.....novantesimocolore
redim aV(0)
av = split ( varColori, ",")

GetColorePersonalizzato = clng(av(numero))
end function

Ciao Luigi, grazie del suggerimento
.... avrei preferito una "genialata delle tue" ma aime mi fai lavorare....:mad: :mad: :mad:
.... mannaggia alla canna da pesca.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 ottobre 2025
    Bari
    48
    72
    06
    17
    82
    Cagliari
    28
    15
    25
    20
    34
    Firenze
    07
    17
    49
    62
    04
    Genova
    49
    09
    84
    14
    71
    Milano
    66
    57
    78
    07
    33
    Napoli
    17
    27
    25
    21
    66
    Palermo
    24
    34
    19
    29
    53
    Roma
    82
    53
    47
    25
    55
    Torino
    66
    58
    13
    07
    29
    Venezia
    68
    82
    10
    31
    01
    Nazionale
    19
    76
    15
    45
    26
    Estrazione Simbolotto
    26
    02
    15
    45
    40
Indietro
Alto