ربط القائمةالمنسدلة بالاوبشن

[فوزى فوزى]

ممكن ربط القائمة المنسدلة بالاوبشن ان تم الاختيار من القائمة المنسدلة ناجح يتم وضع تشك على الاوبشن الناجح ويتم تلوين الاوبشن كما هو واضح في المثال وهكذا

ربط القائمة المنسدلة مع زر الاوبشن.xlsx

[حسين مامون]

تفضل 

 

ربط القائمة المنسدلة مع زر الاوبشن.xlsm

[فوزى فوزى]

انا اسف والله استاذ حسين يكفى ردك على بس نقطة ربط الاوبشن بالخلية مطلوب فى العمل لانه هرتبط بمعادلات اوبشن ناجح رقم 1 اوبشن دور ثان 2 اوبشن راسب 3 وهذا ان ضغطت على الاوبشين القديم الى انا وضعته فى النموذج هتوجده مرتبط بالخلية وشكر للكرة الثانية على اهتمامك

 

[Ali Mohamed Ali]

بارك الله فيك استاذ حسين وبعد اذن حضرتك ولإثراء الموضوع ,يمكنك ايضا استخدام هذا الكود فى حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c4")) Is Nothing Then
For Each opb In ActiveSheet.OptionButtons
    If opb.Caption = [C4].Value Then
        opb.Value = 1
        opb.Interior.Color = RGB(255, 204, 153)
    Else
        If opb.Caption <> [C4].Value Then opb.Interior.Color = xlNone
    End If
Next opb
End If
End Sub

 

ربط القائمة المنسدلة مع زر الاوبشن.xlsm

[فوزى فوزى]

ربنا يبارك فيكم وعلى والديكم ويبارك فى علمكم هذا هو المطلوب بالضبط