وضع رقم متغير في نفس الخلية بناء علي القائمة المنسدلة

[محمود أبوسيف]

مطلوب وضع رقم متغير بناء علي حالة النوع .. لو كان ذكر يتم إظهار رقم فردي ولو كانت أنثي يتم إظهار رقم زوجي مع العلم أن هذه الأرقام تبدأ من رقم 1 وحتي رقم 9 فقط

ملحوظة :- لا يتم تكرار نفس الرقم خلال عملية متتالية .

 النوع.rar

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

 حسب ما فهمت من الموضوع هذا هو الحل

النوع salim.zip

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

لم أفهم المطلوب بشكل جيد

وما المقصود بألا يتم تكرار نفس الرقم خلال عملية متتالية

الملف لابد أن يكون معبر عن الطلب

[محمود أبوسيف]

الأستاذ الفاضل : - سليم حاصبيا

 حللك أقرب إلي المطلوب ولكن :- المطلوب أن يكون الرقم في خلية واحدة ( سواء للذكر أو الأنثي )

أستاذي الفاضل :- ياسر خليل

المقصود بألا يتم تكرار نفس الرقم خلال عملية متتالية

هو عند إختيار مثلا كلمة ذكر مرة يظهر رقم 1 وعند إختياره مرة أخري يظهر 3 والمرة التالية 5 وهكذا ولكن لا يظهر رقم 1 إلا بعد الوصول إلي آخر رقم فردي وهو 9 ثم نعود بعد ذلك نبدأ من 1 من جديد

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

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

 

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

ربما كان المطلوب هذه المرة

النوع salim avencee.zip

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

يرجى توضيح هذه الملحوظة بشيء من التفصيل ..

ملحوظة :- لا يتم تكرار نفس الرقم خلال عملية متتالية .

أنت تتعامل مع دالة أرقام عشوائية من ثم فإن الأرقام تأتي بشكل عشوائي أي غير منظم وبالتالي هناك تعارض في الطلب ..

ما قدمه الأخ الحبيب سليم يفي بالغرض بالنسبة لطلبك فهو المطلوب على ما يبدو لي ، ولكن إذا دققنا النظر ستجد أنك تريد أن تكون منظمة بحيث تظهر الأرقام بشكل مرتب ؟؟!!!

عندي حل في حقيقة الأمر وهو يوافق طلبك تماماً لكن لن أقدمه إلا إذا وضحت الفائدة من الأمر لكي أستفيد ويستفيد الجميع

[محمود أبوسيف]

أخي أبو البراء

أحاول إنجاز مشروع ما وسأعلن عنه عندما ينتهي

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

تفضل الكود التالي في موديول جديد ضع الكود

Sub MaleFemaleSequence()
    Static vMale As Variant
    Static vFemale As Variant

    Select Case Range("B6").Value
        Case "ذكر"
            If IsEmpty(vMale) Then
                vMale = 1
            Else
                vMale = vMale + 2
                If vMale > 9 Then vMale = 1
            End If
            Range("C6") = vMale
        Case "أنثي"
            If IsEmpty(vFemale) Then
                vFemale = 0
            Else
                vFemale = vFemale + 2
                If vFemale > 8 Then vFemale = 0
            End If
            Range("C6") = vFemale
    End Select
End Sub

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$6" Then Exit Sub
    MaleFemaleSequence
End Sub

 

Male Female.rar

[محمود أبوسيف]

اخي أبو البراء

ألا يمكن أن يتم ذلك عن طريق المعادلات

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

أنا نسيت الموضوع ...

الأخ الغالي سليم قدم لك حل بالمعادلات أعتقد يفي بالغرض ..

 

[محمود أبوسيف]

شكرا لك