إضافة عناصر قائمة من ورقة عمل أخرى وفقاً للدرجة المحددة

إن استخدام Excel كأداة فعالة لتنظيم البيانات وتحليلها يعد واحدًا من أكثر المهارات المطلوبة في عالم العمل اليوم. واحدة من الميزات البارزة في Excel هي إمكانية إنشاء صناديق التحرير والسرد (ComboBox) والتي تساعد المستخدمين على اختيار البيانات بطريقة سهلة وسريعة. في هذا المقال، سنشرح كيفية ملء مربع التحرير والسرد من ورقة عمل أخرى، مع التركيز على درجات معينة، مثل الدرجة "F".

ما هو مربع التحرير والسرد (ComboBox)؟

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

الخطوات اللازمة لملء مربع التحرير والسرد من ورقة عمل أخرى

لملء مربع التحرير والسرد بناءً على درجة معينة، يتوجب علينا كتابة بعض الأكواد بلغة VBA (Visual Basic for Applications) داخل Excel. دعونا نتعرف على كيفية تنفيذ ذلك.

1. إنشاء مربع التحرير والسرد: في البداية، نحتاج إلى إنشاء مربع التحرير والسرد على ورقة العمل "نموذج".

2. كتابة الكود: سنقوم بكتابة كود VBA الذي يتعامل مع خلايا ورقة العمل "تفاصيل_التسجيل". لنبدأ بتحليل الكود المتاح الذي تمت مشاركته:

   Private Sub read_check_Click()
      If read_check = True Then
          dept.Visible = True
          dept.List = Worksheets("تفاصيل_التسجيل").Range("K2:K57").Value
      End If
   End Sub

   هذا الكود يعمل على جعل مربع التحرير والسرد مرئيًا عندما يتم تحديد خانة الاختيار، ثم يقوم بملء مربع التحرير والسرد بالقيم الموجودة في العمود "K" من ورقة العمل "تفاصيل_التسجيل".

تصفية القيم بناءً على الدرجات

الخطوة التالية هي تصفية العناصر بحيث يتم عرض الوصف للمقررات الدراسية فقط للدرجات "F". يمكننا تعديل الكود السابق لتحقيق ذلك.

Private Sub read_check_Click()
    Dim cell As Range
    Dim items As Collection
    Set items = New Collection
    If read_check = True Then
        dept.Visible = True
        For Each cell In Worksheets("تفاصيل_التسجيل").Range("L2:L57")
            If cell.Value = "F" Then
                items.Add cell.Offset(0, 1).Value ' عمود K
            End If
        Next cell
        Dim itemArray() As Variant
        ReDim itemArray(0 To items.Count - 1)
        Dim i As Integer
        For i = 1 To items.Count
            itemArray(i - 1) = items(i)
        Next i
        dept.List = itemArray
    End If
End Sub

بهذا الكود، نقوم أولاً بالتأكد من أن خانة الاختيار "read_check" مفعلّة. ثم نقوم بإنشاء مجموعة تجمع البيانات المطلوبة من العمود "K" بناءً على الشرط المعين وهو أن الدرجة تكون "F". بعدها نعيد بناء قائمة القيم لمربع التحرير والسرد.

دروس مستفادة

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

في النهاية، تعتبر كيفية ملء مربع التحرير والسرد من ورقة عمل أخرى بناءً على درجة معينة مهارة مهمة لأي مستخدم Excel. مع الاستمرار في ممارسة ذلك والتعمق في التعلم، ستصبح قادرًا على الاستفادة من معظم الميزات التي تقدمها هذه البرمجية الرائعة.

إذا كنت تبحث عن المزيد من النصائح حول استخدام Excel بكفاءة، فلا تتردد في متابعة المصادر التعليمية المتاحة والتجريب بنفسك لتحقيق أفضل نتائج.