/ / Aikataulun tehtävät Excel VBA: ssa

Aikataulun tehtävät Excel VBA: ssa

Alla tarkastelemme ohjelmaa Excel VBA joka asettaa taustan värin tehtäviä, jotka ovat aikataulussa vihreä, ja asettaa taustatulostuksen taustalla punaiseksi.

Tilanne:

Sheet1: llä on kolme tehtävää (X, Y, Z). "1" tarkoittaa, että tehtävä on suoritettu. Tehtävä on aikataulussa, jos jokaisessa sarakkeessa on "1" päivämäärää ja tänään mukaan lukien. Nykyään se on 6-jun. Tehtävät X ja Y ovat aikataulussa. Tehtävä Z on aikataulun takana (ei "1" solussa E8).

Aikataulun tehtävät Excel VBA: ssa

Luo laskentataulukko Muuta tapahtumaa. Excel VBA suorittaa Excel-VBA-tietueeseen lisätyn koodin lisäämisen koodiksi, kun muutat solua laskentataulukossa.

1. Avaa Visual Basic -editori.

2. Kaksoisnapsauta Project Explorerissa Sheet1 (Sheet1) -painiketta.

3. Valitse vasemmalla olevasta avattavasta luettelosta Worksheet. Valitse Muuta oikealta avattavasta luettelosta.

Työkirja Muuta tapahtumaa Excel VBA: ssa

Lisää seuraavat koodilinjat Worksheet Muuta tapahtumaan:

4. Ilmoita kaksi muuttujaa tyyppiä Integer.

Dim i As Integer, j As Integer

5. Lisää Do While Loop.

Do While Cells(6 + i, 1).Value <> ""


    i = i + 1
Loop

Selitys: i = 0, Excel VBA tarkistaa tehtävän X, i = 1, tehtävä Y jne. Excel VBA jättää Do While-silmukan kun solut (6 + i, 1). Arvo on tyhjä (ei enää tarkistaa tehtäviä).

Lisää seuraavat koodiluokat (6, 7 ja 8) Do While Loopiin.

6. Alusta muuttuja j arvolla 0.

j = 0

7. Tee tehtäväksi taustaväri vihreiksi olettaen, että tehtävä on aikataulussa (tämä ei välttämättä ole totta tietysti).

Cells(6 + i, 1).Interior.ColorIndex = 4

8. Lisää toinen Do While Loop.

Do While Cells(4, 2 + j).Value <= Date
    If Cells(6 + i, 2 + j).Value = 0 Then Cells(6 + i, 1).Interior.ColorIndex = 3
    j = j + 1
Loop

Huomaa: Päivämäärätoiminto palauttaa tämän päivän päivämäärän.

Selitys: I = 0, j = 0, Excel VBA tarkistaa solun B6. I = 0, j = 1, Excel VBA tarkistaa solun C6 jne. Tehtävä on aikataulussa, jos jokaisessa sarakkeessa on "1" päivämäärään asti. asettaa tehtävän taustaväri punaiseksi.

9. Testaa ohjelma. Ilmoita esimerkiksi, että tehtävän Z 6-jun aikana on suoritettu. Tämän seurauksena tehtävä Z muuttuu automaattisesti vihreänä.

Aikataulutuloksen tehtävät

Lue myös: