Alla tarkastelemme ohjelmaa Excel VBA joka asettaa taustavärin aikataulussa olevat tehtävät vihreäksi ja asettaa aikataulun myöhässä olevien tehtävien taustavärin punaiseksi.
Tilanne:
Taulukossa1 on kolme tehtävää (X, Y, Z). "1" tarkoittaa, että tehtävä on suoritettu. Tehtävä on aikataulussa, jos "1" on jokaisessa sarakkeessa tämän päivän päivämäärään asti. Tänään on 6.6. Tehtävät X ja Y ovat aikataulussa. Tehtävä Z on myöhässä aikataulusta (ei "1" solussa E8).
Luo laskentataulukon muutostapahtuma. Laskentataulukon muutostapahtumaan lisätyn koodin suorittaa Excel VBA, kun muutat laskentataulukon solua.
1. Avaa Visual Basic Editor.
2. Kaksoisnapsauta Sheet1 (Sheet1) Project Explorerissa.
3. Valitse Laskentataulukko vasemmasta avattavasta luettelosta. Valitse oikeasta avattavasta luettelosta Muuta.
Lisää seuraavat koodirivit laskentataulukon muutostapahtumaan:
4. Ilmoita kaksi Integer -tyyppistä muuttujaa.
Dim i kokonaislukuna, j kokonaislukuna
5. Lisää Do while Loop.
Tee samalla solut (6 + i, 1) .Arvo ""
i = i + 1
Silmukka
Selitys: Jos i = 0, Excel VBA tarkistaa tehtävän X, i = 1, tehtävän Y jne. Excel VBA poistuu Do While -silmukasta, kun solut (6 + i, 1). .
Lisää seuraavat koodirivit (kohdissa 6, 7 ja 8) Do while -silmukkaan.
6. Alusta muuttuja j arvolla 0.
j = 0
7. Aseta tehtävän taustaväri vihreäksi olettaen, että tehtävä on aikataulussa (tämä ei tietenkään välttämättä pidä paikkaansa).
Solut (6 + i, 1) .Interior.ColorIndex = 4
8. Lisää toinen Do while Loop.
Tee samalla solut (4, 2 + j). Arvo <= päivämäärä
Jos Solut (6 + i, 2 + j) .Arvo = 0 Sitten Solut (6 + i, 1) .Interior.ColorIndex = 3
j = j + 1
Silmukka
Huomaa: Päivämäärä -funktio palauttaa tämän päivän.
Selitys: Jos i = 0, j = 0, Excel VBA tarkistaa solun B6. Jos i = 0, j = 1, Excel VBA tarkistaa solun C6 jne. Tehtävä on aikataulussa, jos "1" on jokaisessa sarakkeessa tämän päivän päivämäärään asti. Jos Excel VBA löytää arvon "0", se asettaa tehtävän taustaväriksi punaisen.
9. Testaa ohjelma. Osoita esimerkiksi, että 6. kesäkuuta tehtävä Z on suoritettu. Tämän seurauksena tehtävä Z muuttuu automaattisesti vihreäksi.
