الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف إضيف قائمة في برنامج الاكسل ؟

بدأه iMohammed في 24 أغسطس 2010 · 3 رد · 859 مشاهدة · في طلب و دراسة وشرح البرامج
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

في البداية

تحية عطرة للجميع

سؤوالي هو كيف اضيف قائمة تحتوي على أسماء وكل اسم يعطي قيمة معينة، مثال :calc: :

القائمة القيمة

ممتاز 5

جيد جداً 4

جيد 3

*فإذا اخترت جيد جدا مثلا يعطين القيمة 4 ليتم ضمها للمجموع النهائي.

اتمنى اجابتي بسرعة ، شكرا

#2

مافي جواب ولا حتى رد :o

#3

باستخدام VBA ..

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$C$4") Then
	For Each cell In Range("A1:A3")
    	If (cell = Target) Then
        	Exit For
    	End If
	Next cell
	Range("E4:E4").Select
	ActiveCell.Value = cell.Offset(0, 1).Value
End If
End Sub

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

اضغط ALT+F11 بعد فتح المستند واطلع على شفرة VBA الموجودة ضمن Sheet1.

example.rar

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#4
Xacker كتب:

باستخدام VBA ..

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$C$4") Then
	For Each cell In Range("A1:A3")
    	If (cell = Target) Then
        	Exit For
    	End If
	Next cell
	Range("E4:E4").Select
	ActiveCell.Value = cell.Offset(0, 1).Value
End If
End Sub

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

اضغط ALT+F11 بعد فتح المستند واطلع على شفرة VBA الموجودة ضمن Sheet1.

:ty:

مواضيع مشابهة