Žemiau apžvelgsime programą Excel VBA kuris nustato fono spalvą užduotys pagal grafiką į žalią, o užduočių, kurios vėluoja pagal grafiką, fono spalvą nustato į raudoną.
Situacija:
1 lape turime tris užduotis (X, Y, Z). „1“ reiškia, kad užduotis buvo atlikta. Užduotis vykdoma pagal tvarkaraštį, jei kiekviename stulpelyje iki šiandienos datos yra „1“. Šiandien birželio 6 d. X ir Y užduotys atliekamos pagal tvarkaraštį. Užduotis Z vėluoja pagal grafiką (E8 langelyje nėra „1“).
Sukurkite darbalapio keitimo įvykį. Į darbalapio keitimo įvykį įtrauktas kodas bus vykdomas naudojant „Excel VBA“, kai pakeisite darbalapio langelį.
1. Atidarykite „Visual Basic“ redaktorių.
2. „Project Explorer“ dukart spustelėkite Sheet1 (Sheet1).
3. Iš kairiojo išskleidžiamojo sąrašo pasirinkite Darbo lapas. Iš dešiniojo išskleidžiamojo sąrašo pasirinkite Keisti.
Į darbalapio keitimo įvykį įtraukite šias kodo eilutes:
4. Skelbkite du kintamuosius, kurių tipas yra Integer.
Dim i kaip sveikasis skaičius, j kaip sveikasis skaičius
5. Pridėkite ciklą „Do Do Loop“.
Atlikite langelius (6 + i, 1) .Vertė ""
i = i + 1
Kilpa
Paaiškinimas: jei i = 0, „Excel VBA“ patikrina užduotį X, i = 1, užduotį Y ir tt .
Pridėkite šias kodo eilutes (6, 7 ir 8) prie ciklo „Daryti kol“.
6. Inicijuokite kintamąjį j reikšme 0.
j = 0
7. Nustatykite užduoties fono spalvą žalią darant prielaidą, kad užduotis vykdoma pagal tvarkaraštį (žinoma, tai nebūtinai tiesa).
Ląstelės (6 + i, 1). Interjeras. Spalvų indeksas = 4
8. Pridėkite dar vieną „Do while Loop“.
Atlikite langelius (4, 2 + j). Vertė <= data
Jei langeliai (6 + i, 2 + j). Vertė = 0 Tada ląstelės (6 + i, 1). Interjero.ColorIndex = 3
j = j + 1
Kilpa
Pastaba: funkcija Data grąžina šiandienos datą.
Paaiškinimas: jei i = 0, j = 0, „Excel VBA“ tikrina langelį B6. Jei i = 0, j = 1, „Excel“ VBA tikrina langelį C6 ir tt Užduotis vykdoma pagal tvarkaraštį, jei kiekviename stulpelyje iki šios dienos datos yra „1“. Jei „Excel VBA“ randa „0“, užduoties fono spalva nustatoma į raudoną.
9. Išbandykite programą. Pavyzdžiui, nurodykite, kad birželio 6 d. Z užduotis buvo atlikta. Dėl to Z užduotis automatiškai taps žalia.
