/ / تظليل الخلايا النشطة في Excel

تظليل الخلايا النشطة في Excel

أدناه سننظر في برنامج في Excel VBA أن يسلط الضوء على صف وعمود الخلية النشطة (الخلية المحددة). هذا البرنامج سوف تدهش واعجاب رئيسك في العمل.

موقف:

تظليل الخلايا النشطة في Excel

في كل مرة نقوم فيها بتغيير Active Cell على Sheet1 ، يجب تنفيذ ماكرو. يمكنك تحقيق ذلك عن طريق إنشاء حدث SelectheetChange ورقة عمل.

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

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

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

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

أضف أسطر التعليمات البرمجية التالية إلى الحدث SelectheetChange Worksheet:

4. نعلن عن أربعة متغيرات من النوع Integer. واحد اسمه rowNumberValue ، واحد اسمه columnNumberValue ، واحد اسمه i وأسمه j.

Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer

5. أولا ، نضيف الخط الذي يتغير لون الخلفية لجميع الخلايا إلى "لا تعبئة".

Cells.Interior.ColorIndex = 0

6. نقوم بتهيئة المتغير rowNumberValue مع رقم الصف للخلية النشطة والعمود المتغيرNumberValue مع رقم عمود الخلية النشطة.

rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column

7. نلقي الضوء على العمود الأزرق. بمعنى: كافة الخلايا ذات رقم الصف أصغر أو تساوي rowNumberValue و عدد الأعمدة يساوي العمودNumberValue

For i = 1 To rowNumberValue
    Cells(i, columnNumberValue).Interior.ColorIndex = 37
Next i

تفسير: لهذا المثال (انظر الصورة أعلاه) ، يساوي rowNumberValue 12 و columnNumberValue يساوي 8. سيتم تنفيذ أسطر التعليمات البرمجية بين For و Next اثني عشر مرة. بالنسبة لـ i = 1 ، يقوم Excel VBA بتلوين الخلية عند تقاطع الصف 1 والعمود 8. بالنسبة إلى i = 2 ، يقوم Excel VBA بتلوين الخلية عند تقاطع الصف 2 والعمود 8 ، وما إلى ذلك.

ملاحظة: بدلاً من ColorIndex رقم 37 (أزرق) ، يمكنك استخدام أي رقم ColorIndex.

8. بطريقة مماثلة ، نسلط الضوء على الصف الأزرق. بمعنى: كافة الخلايا التي تحتوي على رقم صف يساوي rowNumberValue و رقم العمود أصغر أو يساوي العمودأعمدة Value.

For j = 1 To columnNumberValue
    Cells(rowNumberValue, j).Interior.ColorIndex = 37
Next j

9. الآن حان الوقت لاختبار البرنامج. قم بتنزيل ملف Excel وشاهد كيف يتم تمييز صف وعمود الخلية النشطة في كل مرة تقوم فيها بتغيير الخلية النشطة.

اقرأ أيضًا: