اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

 النوع.rar

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information