Zemāk mēs apskatīsim programmu Excel VBA kas nosaka fona krāsu uzdevumi, kas ir saskaņā ar grafiku zaļā krāsā, un uzdevumu fona krāsa, kas kavējas pēc grafika, tiek iestatīta uz sarkanu.
Situācija:
Lapā 1 mums ir trīs uzdevumi (X, Y, Z). "1" norāda, ka uzdevums ir pabeigts. Uzdevums ir saskaņā ar grafiku, ja katrā kolonnā līdz šodienas datumam ir “1”. Šodien ir 6. jūnijs. Uzdevumi X un Y ir saskaņā ar grafiku. Z uzdevums nav izpildīts saskaņā ar grafiku (šūnā E8 nav "1").
Izveidojiet darblapas maiņas notikumu. Darblapas maiņas notikumam pievienoto kodu izpildīs Excel VBA, mainot darblapas šūnu.
1. Atveriet Visual Basic redaktoru.
2. Veiciet dubultklikšķi uz Sheet1 (Sheet1) Project Explorer.
3. Kreisajā nolaižamajā sarakstā izvēlieties Darblapa. Labajā nolaižamajā sarakstā izvēlieties Mainīt.
Darblapas maiņas notikumam pievienojiet šādas koda rindiņas:
4. Deklarējiet divus Integer tipa mainīgos.
Dim i kā vesels skaitlis, j kā vesels skaitlis
5. Pievienojiet cilni Do Do Loop.
Darīt, kamēr šūnas (6 + i, 1). Vērtība ""
i = i + 1
Cilpa
Paskaidrojums: ja i = 0, Excel VBA pārbauda uzdevumu X, i = 1, uzdevumu Y uc .
Darba ciklam pievienojiet šādas koda rindiņas (pie 6, 7 un 8).
6. Inicializējiet mainīgo j ar vērtību 0.
j = 0
7. Iestatiet uzdevuma fona krāsu zaļā krāsā, pieņemot, ka uzdevums ir saskaņā ar grafiku (tas, protams, ne vienmēr ir taisnība).
Šūnas (6 + i, 1). Interjers. Krāsu indekss = 4
8. Pievienojiet vēl vienu Do Do Loop.
Darīt, kamēr šūnas (4, 2 + j). Vērtība <= datums
Ja šūnas (6 + i, 2 + j). Vērtība = 0, tad šūnas (6 + i, 1). Interjers.ColorIndex = 3
j = j + 1
Cilpa
Piezīme: Datuma funkcija atgriež šodienas datumu.
Paskaidrojums: ja i = 0, j = 0, Excel VBA pārbauda šūnu B6. Ja i = 0, j = 1, Excel VBA pārbauda šūnu C6 uc Ja Excel VBA atrod "0", tas nosaka uzdevuma fona krāsu sarkanā krāsā.
9. Pārbaudiet programmu. Piemēram, norādiet, ka 6. jūnija uzdevums Z ir izpildīts. Tā rezultātā uzdevums Z automātiski kļūs zaļš.
