/ / المهام في الجدول الزمني في Excel VBA

المهام في الجدول في إكسل VBA

أدناه سننظر في برنامج في Excel VBA الذي يحدد لون خلفية المهام التي هي في الموعد المحدد إلى اللون الأخضر ، وتعيين لون الخلفية للمهام التي خلف الجدول الزمني إلى اللون الأحمر.

موقف:

على الورقة 1 لدينا ثلاث مهام (X، Y، Z). يشير "1" إلى اكتمال مهمة. توجد مهمة في الموعد المحدد إذا كان الرقم "1" موجودًا في كل عمود بما في ذلك تاريخ اليوم ، واليوم هو 6 يونيو. المهام X و Y في الموعد المحدد. المهمة Z خلف الجدول (لا "1" في الخلية E8).

المهام في الجدول في إكسل VBA

قم بإنشاء حدث تغيير ورقة عمل. سيتم تنفيذ الأكواد المضافة إلى حدث تغيير ورقة العمل بواسطة Excel VBA عندما تقوم بتغيير خلية في ورقة عمل.

1. افتح محرر Visual Basic.

2. انقر نقرًا مزدوجًا فوق Sheet1 (Sheet1) في Project Explorer.

3. اختر ورقة عمل من القائمة المنسدلة اليسرى. اختر Change من القائمة المنسدلة اليمنى.

ورقة العمل تغيير الحدث في Excel VBA

أضف الأسطر رمز التالية إلى الأحداث تغيير ورقة عمل:

4. قم بتعريف متغيرين من النوع Integer.

Dim i As Integer, j As Integer

5. إضافة Do While حلقة.

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


    i = i + 1
Loop

Explanation: بالنسبة لـ i = 0 ، يقوم Excel VBA بفحص المهمة X ، لـ i = 1 ، المهمة Y ، الخ. Excel VBA يترك حلقة Do While عند Cells (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 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

ملاحظة: تقوم دالة التاريخ بإرجاع اليوم "تاريخ s.

تفسير: بالنسبة لـ i = 0 ، j = 0 ، يقوم Excel VBA بفحص الخلية B6. بالنسبة إلى i = 0 ، j = 1 ، يقوم Excel VBA بفحص الخلية C6 ، إلخ. توجد مهمة في الجدول الزمني إذا كان "1" موجودًا في كل عمود حتى تاريخ اليوم ". إذا عثر Excel VBA على" 0 "، يحدد لون خلفية المهمة إلى اللون الأحمر.

9. اختبار البرنامج. على سبيل المثال ، أشر إلى أن المهمة Z في 6 يونيو قد اكتملت. نتيجةً لذلك ، ستتحول المهمة Z تلقائيًا إلى اللون الأخضر.

المهام على جدولة النتيجة

اقرأ أيضًا: