/ / Завдання на розклад в Excel VBA

Завдання на розкладі в 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 Hold, коли комірки (6 + i, 1) .Value є порожній (більше немає завдань для перевірки).

Додайте наступні кодові рядки (на 6, 7 та 8) до циклу Do Loop.

6. Ініціалізація змінної j з значенням 0.

j = 0

7. Встановіть колір фону завдання зеленим, якщо задача запланована (це, звичайно, не обов'язково).

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

8. Додати ще один цикл Do 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

Примітка: функція Date повертає сьогоднішню дату.

Пояснення: Для i = 0, j = 0, Excel VBA перевіряє комірку B6. Для i = 0, j = 1, Excel VBA перевіряє клітинку C6 і т. Д. Завдання заплановано, якщо в кожному стовпчику до сьогодні включена дата "1". Якщо Excel VBA знаходить "0", то це встановлює колір фону завдання червоним кольором.

9. Перевірте програму. Наприклад, вкажіть, що завдання Z на 6-червні було завершено. В результаті робота Z автоматично повертається зеленим кольором.

Завдання за результатами розкладу

Також читайте: