/ / Uzdevumi par grafiku programmā Excel VBA

Uzdevumi grafikam programmā Excel VBA

Tālāk mēs apskatīsim programmu programmā Excel VBA kas nosaka fona krāsu uzdevumi, kas ir pēc grafika lai zaļš, un nosaka uzdevumu fona krāsu, kas ir aiz grafika, lai sarkanā krāsā.

Situācija:

Lapā1 mums ir trīs uzdevumi (X, Y, Z). "1" norāda, ka uzdevums ir pabeigts. Uzdevums ir paredzēts grafikam, ja katrā kolonnā līdz "mūsdienu" datumam ir "1". Šodien tas ir 6-jun. Uzdevumi X un Y ir pēc grafika. Z uzdevums ir aiz grafika (nav "1" šūnā E8).

Uzdevumi grafikam programmā Excel VBA

Izveidot darblapas maiņas notikumu. Kodu, kas pievienots darblapas izmaiņu notikumam, izpildīs Excel VBA, ja maināt šūnu darblapā.

1. Atveriet Visual Basic Editor.

2. Projekta Explorer divreiz noklikšķiniet uz Sheet1 (Sheet1).

3. Izvēlieties darblapu no kreisā nolaižamā saraksta. Labajā nolaižamajā sarakstā izvēlieties Mainīt.

Darblapas izmaiņu notikums programmā Excel VBA

Pievienojiet šādas darblapas maiņas notikuma koda rindiņas:

4. Paziņojiet divus mainīgā lieluma tipus: vesels skaitlis.

Dim i As Integer, j As Integer

5. Pievienojiet dublējamo cilpu.

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


    i = i + 1
Loop

Paskaidrojums: ja i = 0, Excel VBA pārbauda uzdevumu X, ja i = 1, uzdevums Y, utt. Excel VBA atstāj Do Kaulu cilpu, kad šūnas (6 + i, 1) .Value ir tukšs (vairs nav uzdevumu pārbaudīt).

Pievienojiet šādai koda līnijai (6, 7 un 8), lai veiktu, kamēr loks.

6. Inicializējiet mainīgo lielumu j ar vērtību 0.

j = 0

7. Uzstādiet uzdevuma fona krāsu zaļam, pieņemot, ka uzdevums ir pēc grafika (tas, protams, ne vienmēr ir taisnība).

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

8. Pievienojiet vēl vienu ciparu Do though 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

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 utt. Tas ir pēc grafika, ja katrā kolonnā līdz šodienai ir datums "1". Ja Excel VBA atrod "0" uzdevuma fona krāsu nosaka sarkanā krāsā.

9. Pārbaudiet programmu. Piemēram, norādiet, ka Z uzdevums ir pabeigts 6. jūnijā. Tā rezultātā uzdevums Z automātiski kļūst zaļš.

Uzdevumi par grafiku rezultātu

Lasīt arī: