.زر اختيار

[ahmede]

المطلوب: وضع زر اختيار في الاربع حالات عندمايستخدم أحد الاختيارات الاتية وتظهر قيمة في الخلية H2:

*عندما يستخدم أربع اختبارات ما هي درجة المقابلة المعامل الاختبار

*عندما يستخدم ثلاث اختبارات ما هي درجة المقابلة المعامل الاختبار

*عندما يستخدم اتنين اختبارات ما هي درجة المقابلة المعامل الاختبار

*ما هي النسبة المئوية المقابلة للمعامل الاختبار .

لوتم اختيار استخدام أربع اختبارات وكانت الدرجة مثلا في العمود B 76 ما هي درجة معامل الاختبارالمقابلة لها  في العمود A وهكذا بالنسبة لبقية الاختيارات.

 

77.rar

77.rar

[ahmede]

ارجوا المساعدة في تنفيذها

[ياسر خليل أبو البراء]

أخي الكريم أحمد

اطلعت على الملف ولم أفهم المطلوب بشكل تام ..هلا وضحت الأمر .. ما هي القيم التي تريد عمل قائمة منسدلة لها في الخلية H2 ..؟؟ وما هو شكل النتائج المتوقعة بعد الاختيار لعنصر معين من القائمة وأين توضع النتائج

يستحب ضرب مثال من الملف المرفق لتتضح الصورة

تقبل تحياتي

[ahmede]

المطلوب : لقد قمت بعمل أربع أزرار وأريد عند ظهور قيمة ولتكن مثلا 76 في الخلية h2 اختيار أحد هذة الازرار الاربعة لتظهر القيمة المقابلة للعدد 76 في العمود مشكور لحضرتك

[ابو عبدالبارى]

الأخ الكريمahmede

السلام عليكم

جرب المرفق التالى لعلة يكون المطلوب

abo_abary_77.rar

[ahmede]

مشكور جداً ونفع الله بكم أخي ابو عبدالباري ..بس لو امكن شرح الطريقة..وعند وضع بعض القيم الغير موجودة في النطاق يعطى خطأ في الخلية h2 لو أمكن يمكن الكتابة في الخلية عند القيم الغير موجودة لا توجد 

ابو عبدالبارى

[ابو عبدالبارى]

3 ساعات مضت, ahmede said:

مشكور جداً ونفع الله بكم أخي ابو عبدالباري ..بس لو امكن شرح الطريقة..وعند وضع بعض القيم الغير موجودة في النطاق يعطى خطأ في الخلية h2 لو أمكن يمكن الكتابة في الخلية عند القيم الغير موجودة لا توجد 

ابو عبدالبارى

الأخ الكريمahmede

السلام عليكم

جرب المرفق التالى لعلة يكون المطلوب

abo_abary_77.rar

[ahmede]

جزاك الله خير الجزاء ونفع بكم..وبعد أذن حضرتك أن أمكن شرح الكود الخاص للازرار vbA وجزاكم الله خيراً

ابو عبدالبارى

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز أبو عبد الباري

حل رائع وبسيط باستخدام المعادلات ثم تحويل المعادلات لكود ..

 

أقدم طريقة أخرى بعد ما فهمت المطلوب .. قد تكون الطريقة أعقد قليلاً لكنها تفي بالغرض حيث يتم استخدام الخاصية Find .. لتنفيذ المهمة

قم بوضع الكود التالي في حدث ورقة العمل ...

Private Sub CommandButton1_Click()
    MyRio (2)   'Column B
End Sub

Private Sub CommandButton2_Click()
    MyRio (3)   'Column C
End Sub

Private Sub CommandButton3_Click()
    MyRio (4)   'Column D
End Sub

Private Sub CommandButton4_Click()
    Dim Found As Range
    Set Found = Columns(1).Find(Range("H2").Value)
    Range("I2").ClearContents

    If Not Found Is Nothing Then
        Range("I2").Value = Found.Offset(, 4).Value
    End If
End Sub

Sub MyRio(Col As Long)
    Dim Found As Range
    Set Found = Columns(Col).Find(Range("G2").Value)
    Range("H2").ClearContents

    If Not Found Is Nothing Then
        Range("H2").Value = Found.Offset(, -(Col - 1)).Value
    End If
End Sub

قمت بإنشاء إجراء واحد للثلاثة أزرار والتي تخص الاختبارات ، ثم في زر الأمر كل ما عليك هو أن تكتب رقم العمود المراد التعامل معه

بالنسبة للزر الرابع الخاص بالنسبة المئوية وهو نفس الفكرة ولكن بما أن مراجع الخلايا مختلفة فلم يكن على نفس منوال الثلاثة أزرار الأولى

أرجو أن يفي بالغرض إن شاء الله

تقبلوا تحياتي