تحويل نصوص الى ارقام

[ali_lutfe]

تحياتي

امل تزويدي بالدالة المناسبة لتحويل خلية منسدلة فيها خياران بحيث يظهر بدل الخيار الأول رقم 1 وبدل الخيار الثاني رقم 2 في خلية منفصلية عن الخلية المنسدلة. الخلية التي تليها على سبيل المثال

[خالد الرشيدى]

السلام عليكم

اهلاً بك اخى الكريم بين اخوانك بالمنتدى .. يرجى تغيير اسم الظهور الى العربيه فضلاً لا امراً .. كما يرجى الاطلاع على التوجيهات فى الموضوعات المثبته ..

اخى الكريم قم بارفاق ملف مشروح فيه طلبك وان شاء الله تجد المساعده

تقبل تحياتى ومرورى

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

أخي الكريم علي لطفي

بعد إذن أخي الحبيب الغالي خالد الرشيدي

قم بتحديد الخلية A1 ومن التبويب Data ثم Data Validation اختر الأمر List لعمل قائمة ثم اكتب Male,Female

ثم قم بعمل كليك يمين على اسم ورقة العمل واختر الأمر View Code وضع الكود التالي ..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    
    If Target.Address = "$A$1" Then
        If Target.Value = "Male" Then
            Target.Offset(, 1).Value = 1
        ElseIf Target.Value = "Female" Then
            Target.Offset(, 1).Value = 2
        End If
    End If
End Sub

قم بحفظ المصنف بامتداد xlsm ..

جرب تختار أحد الخيارين Male أو Female من الخلية A1 .. ستتغير قيمة الخلية B1 (الخلية المجاورة) إلى رقم 1 في حالة اختيارك للخيار Male وإلى رقم 2 في حالة اختيارك للخيار Female

أرجو أن يكون المطلوب ..

تقبل تحياتي

[خالد الرشيدى]

السلام عليكم

استاذى / ابو البراء .. جزاك الله خيراً ..

واستأذنك استاذى فى عرض فكرة اخرى بإستخدام المعادلات

بإفتراض ان مرجع القائمه المنسدلة هى الخلايا A3:A5 وان خليه القائمه هى E3

يتم وضع المعادلة التاليه فى الخليه المراد بها الرقم

=SUMPRODUCT(--(E3=A3:A5);ROW(A3:A5)-2)

Book1ffff.rar

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

وعليكم السلام

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

تقبل وافر تقديري واحترامي

 

[خالد الرشيدى]

استاذى / ابو البراء

شاكر مرور حضرتك الطيب على النفس دائماً ..

خالص احترامى لشخصكم الكريم

[سليم حاصبيا]

اثراء للموضوع هذه المعادلة

=MATCH($E$3,$A$3:$A$5,0)

او هذه

=COUNTA(INDIRECT("A"&MATCH($E$3,$A$3:$A$5,0)+2&":A3"))

او هذه (يلزمها  CTRL+SHIFT+ENTER)

=MAX(IF($A$3:$A$5=$E$3,ROW($A$1:$A$3),""))

أو هذه

=SUMPRODUCT(--($A$3:$A$5=$E$3),{1;2;3})

هذا بالاضافة الى دالة IF مع توابعها (IF كذا اعطني كذا ...)

 

تم تعديل مارس 8, 2016 بواسطه سليم حاصبيا