/ / Задачи на график в

Задачи по график в Excel VBA

По - долу ще разгледаме програма в Excel VBA който определя цвета на фона задачи, които са по график до зелено и задава цвета на фона на задачите, които са зад графика, до червено.

Ситуация:

На Sheet1 имаме три задачи (X, Y, Z). А "1" показва, че дадена задача е завършена. Задачата е по график, ако във всяка колона съществува "1" до датата, включително и днес. Днес тя е на 6-ти юни. Задачи X и Y са по график. Задача Z е зад графика (не е "1" в клетка E8).

Задачи по график в Excel VBA

Създайте събитие за промяна на работен лист. Кодът, добавен към събитието за промяна на работен лист, ще бъде изпълнен от Excel VBA, когато промените клетка в работен лист.

1. Отворете редактора на Visual Basic.

2. Кликнете два пъти върху Sheet1 (Sheet1) в Project Explorer.

3. Изберете Работен лист от левия падащ списък. Изберете "Промяна" от десния падащ списък.

Работен лист Промяна събитие в Excel VBA

Добавете следните кодови линии към събитието за смяна на работен лист:

4. Декларирайте две променливи от тип Integer.

Dim i As Integer, j As Integer

5. Добавете Do While Loop.

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


    i = i + 1
Loop

Обяснение: За i = 0, Excel VBA проверява задача X, за i = 1, задача Y и т.н. Excel VBA оставя цикъла Do докато клетките (6 + i, 1) .Value е празна (няма повече задачи за проверка).

Добавете следните кодови линии (на 6, 7 и 8) в Do While Loop.

6. Инициализирайте променливата j със стойност 0.

j = 0

7. Задайте цвета на фона на дадена задача на зелено, като приемете, че дадена задача е по график (това не е задължително, разбира се, разбира се).

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

8. Добавете още една 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

Забележка: функцията Дата връща днешната дата.

Обяснение: За i = 0, j = 0, Excel VBA проверява клетката B6. За I = 0, к = 1, Excel VBA проверява клетка C6 и др задача е по график, ако "1" съществува във всяка колона до и включително днес "дата. Ако Excel VBA намира" 0 ", то задава цвета на фона на заданието на червено.

9. Изпробвайте програмата. Например, посочете, че задачата Z на 6 юни е завършена. В резултат задача Z автоматично ще се превърне в зелено.

Задачи на графичния резултат

Също така се чете: