/ / حلقة من خلال عمود بأكمله في Excel VBA

حلقة خلال العمود بأكمله في Excel VBA

أدناه سننظر في برنامج في Excel VBA أن حلقات عبر العمود الأول بأكمله وألوان جميع القيم الأقل من قيمة معينة.

حلقة عبر العمود بأكمله في Excel VBA

حلقة عبر العمود بأكمله في Excel VBA

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

1. أولاً ، قم بالإعلان عن متغير يسمى i من النوع Long. نستخدم متغير من النوع Long هنا لأن المتغيرات الطويلة ذات سعة أكبر من متغيرات Integer.

Dim i As Long

2. بعد ذلك ، أضف سطر الرمز الذي يغير لون الخط لكل الخلايا في العمود A إلى الأسود.

Columns(1).Font.Color = vbBlack

3. أضف الحلقة.

For i = 1 To Rows.Count

Next i

ملحوظة: يمكن أن تحتوي أوراق العمل على 65،536 صف في Excel 2003 وما يصل إلى 1،048،576 صف في Excel 2007 أو أحدث. بغض النظر عن الإصدار الذي تستخدمه ، فإن خط التعليمة البرمجية أعلاه يمر عبر جميع الصفوف (ملف Excel القابل للتحميل بتنسيق Excel 97-2003).

4. بعد ذلك ، نلون كل القيم الأقل من القيمة المدخلة في الخلية D2. يتم تجاهل الخلايا الفارغة. أضف أسطر التعليمات البرمجية التالية إلى الحلقة.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

النتيجة عند النقر فوق زر الأمر على الورقة (قد يستغرق ذلك بعض الوقت):

حلقة عبر نتيجة عمود بأكمله

حلقة عبر نتيجة عمود بأكمله

اقرأ أيضًا: