/ / إنشاء نمط في Excel VBA

إنشاء نمط في Excel VBA

أدناه سننظر في برنامج في Excel VBA أن يخلق نمط.

موقف:

إنشاء نمط في Excel VBA

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

1. أولاً ، نعلن عن متغيرين من النوع Integer. واحد اسمه أنا واحد اسمه ي.

Dim i As Integer, j As Integer

2. ثانيا ، نحن نضيف اثنين For Next Loops.

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. بعد ذلك ، نضيف الخط الذي يغير لون خلفية الخلايا إلى اللون الرمادي الفاتح.

Cells(i, j).Interior.ColorIndex = 15

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

4. أغلق الحلقتين التاليتين.

    Next j
Next i

5. اختبار البرنامج.

النتيجة حتى الآن.

قفص نمط النتيجة حتى الآن

على سبيل المثال ، بالنسبة إلى i = 1 و j = 1 ، Excel VBAألوان الخلايا (1،1) ، ل i = 1 و j = 3 (الخطوة 2) ، خلايا ألوان VBA من إكسيل (1.3) ، لـ i = 1 و j = 5 ، ألوان VBA لـ Excel VBA (1،5) ، لـ i = 3 (الخطوة 2) و j = 1 ، خلايا ألوان VBA من Excel (3،1) ، إلخ.

6. نحن تقريبا هناك. الشيء الوحيد الذي يجب علينا القيام به هو لون الخلايا التي يتم تعويضها من خلال صف واحد أسفلها وعمود واحد على يمين الخلايا الملونة بالفعل. أضف السطر التعليمة البرمجية التالية إلى الحلقة.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7. اختبار البرنامج.

نتيجة:

إنشاء نتيجة للنمط

اقرأ أيضًا: