Az alábbiakban megnézzük a programot Excel VBA amely beállítja a háttérszínt ütemezett feladatok zöldre, és az ütemezésben elmaradt feladatok háttérszínét pirosra állítja.
Helyzet:
Az 1. lapon három feladatunk van (X, Y, Z). Az "1" azt jelzi, hogy a feladat befejeződött. A feladat ütemezett, ha minden oszlopban "1" szerepel a mai dátumig bezárólag. Ma van június 6. Az X és Y feladatok ütemezve vannak. A Z feladat elmarad az ütemtervtől (nincs "1" az E8 cellában).
Hozzon létre egy munkalap -változási eseményt. A munkalap módosítási eseményéhez hozzáadott kódot az Excel VBA hajtja végre, amikor módosít egy cellát a munkalapon.
1. Nyissa meg a Visual Basic Editor programot.
2. Kattintson duplán a Sheet1 (Sheet1) elemre a Project Explorerben.
3. Válassza a Munkalap lehetőséget a bal oldali legördülő listából. Válassza a Módosítás lehetőséget a jobb oldali legördülő listából.
Adja hozzá a következő kódsorokat a munkalap módosítási eseményéhez:
4. Nyilvánítson két Integer típusú változót.
Dim i Mint egész, j Mint egész
5. Adjon hozzá egy Do while ciklust.
Do while Cells (6 + i, 1) .Érték ""
i = i + 1
Hurok
Magyarázat: i = 0 esetén az Excel VBA ellenőrzi az X feladatot, i = 1 esetén az Y feladatot stb. Az Excel VBA kilép a Do while ciklusból, amikor a cellák (6 + i, 1). Az érték üres (nincs több ellenőrizendő feladat) .
Adja hozzá a következő kódsorokat (a 6., 7. és 8. pontnál) a Do while ciklushoz.
6. Inicializálja a j változót 0 értékkel.
j = 0
7. Állítsa a feladat háttérszínét zöldre, feltéve, hogy a feladat ütemezett (természetesen ez nem feltétlenül igaz).
Sejtek (6 + i, 1). Belső. Színindex = 4
8. Adjon hozzá egy másik Do while Loop -ot.
Do while cellák (4, 2 + j). Érték <= dátum
Ha cellák (6 + i, 2 + j). Érték = 0, akkor cellák (6 + i, 1). Belső.ColorIndex = 3
j = j + 1
Hurok
Megjegyzés: a Dátum függvény a mai dátumot adja vissza.
Magyarázat: i = 0, j = 0 esetén az Excel VBA ellenőrzi a B6 cellát. Ha i = 0, j = 1, az Excel VBA ellenőrzi a C6 cellát stb. Ha az Excel VBA 0 -t talál, a feladat háttérszínét pirosra állítja.
9. Tesztelje a programot. Például jelezze, hogy a Z-feladat 6. június-án befejeződött. Ennek eredményeként a Z feladat automatikusan zöldre vált.