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.
kā jūs aprēķināt procentuālo starpību starp diviem skaitļiem Excel
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ā slejā līdz šodienas datumam ir skaitlis “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 redaktors .
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.
NaviKā Vesels skaitlis, jKā Vesels skaitlis5. Pievienojiet a Darīt, kamēr cilpa .
Vai 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 .
cik darba dienu atlicis 2016. gadā
Darba ciklam pievienojiet šādas koda rindiņas (pie 6., 7. un 8.).
6. Inicializējiet mainīgo j ar vērtību 0.
j = 07. 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 = 48. Pievienojiet vēl vienu Do Do Loop.
Vai KamērŠūnas (4, 2 + j). Vērtība<= DateJaŠūnas (6 + i, 2 + j). Vērtība = 0TadŠūnas (6 + i, 1). Interjers. Krāsu indekss = 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”, uzdevuma fona krāsa tiek iestatīta uz sarkanu.
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ļš.
Doties uz nākamo nodaļu: Notikumi