Excelin värimalli - VBA -koodiesimerkkejä

Vaihda solun väri - .Interior.ColorIndex

Voit muuttaa solun väriä seuraavasti:

Cell.Interior.ColorIndex = Num

Missä:
• Solu on soluviittaus
• Sisustus - viittaa solun todellisen värin väriin (Sisätilan ominaisuus)
• Colourindex on arvo välillä 1 ja 56 yhdelle Excelin 56 ennalta määritetystä väristä

Ja Num on solulle määritetty numeroväri. Ei kuitenkaan ole aina helppoa muistaa, mikä numero edustaa mitä väriä. Seuraava aliohjelma muuttaa solun väriä rivinumeron perusteella. Esimerkiksi rivillä 3 on väri 3 jne.

Koska Excelissä on 56 esiasetettua väriä, tämä tarkoittaa, että soluilla 59, 115 on sama väri kuin rivillä 3:

123456789101112 Vaihtoehto SelkeäYksityinen alikomentoButton1_Click ()Colour_Range (Arkit ("Sheet2"). Alue ("A1: A2000"))End SubVäri_väli (solualue_alue alueena)'Värittää jokaisen alueen solunHimmeä soluJokaiselle Cell_Range -solulleCell.Interior.ColorIndex = Solurivi Mod 56Solun siirtymä (0, 0). Arvo = Solun riviSeuraavaEnd Sub

Rutiini aktivoidaan napsautustapahtumalla.

Voit ladata .XLSM -tiedoston tähän opetusohjelmaan napsauttamalla tätä.

wave wave wave wave wave