طلب بسيط لتكملة الملاحظة

[سيد الأكرت]

إخوتى في الله سلام الله عليكم ورحمته وبركاته

اتمنى منكم المساعدة في تحقيق شرط هذه الملاحظة لأنى في حاجة ماسة اليها

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

اتمنى ان ينال طلبي اهتمامكم وجزاكم الله عنى خير الجزاء

الملاحظة.rar

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي:

Sub kh_Start()
Dim c%, r%, x%, y%, yy%, i%
Dim FT%, LG%, AllCont%, iCont%
LG = [N2]
FT = [N3]
AllCont = [H2]
iCont = Abs(Int(AllCont / LG * -1))
''''''''''''''''
[D8:AH208 ].ClearContents
For c = 1 To FT
    For r = 1 To AllCont
        i = 0
        Randomize
1       x = Int(LG * Rnd + 1)
        i = i + 1
        With Range("D8")
            .Cells(r, c) = x
            y = WorksheetFunction.CountIf(Range(.Cells(1, c), .Cells(AllCont, c)), .Cells(r, c))
            yy = WorksheetFunction.CountIf(Range(.Cells(r, 1), .Cells(r, FT)), .Cells(r, c))
            If i < 100 And (y > iCont Or yy > 1) Then GoTo 1
        End With
    Next
Next
End Sub

تحياتي

[خالد القدس]

السلام عليكم

كود خيبوري من العيار الثقيل

بارك الله فيك أستاذنا القدير خبور

[سيد الأكرت]

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

ارجوك يا استاذ عبدالله أكمل جميل صنعك مع مرفق للتوضيح

[عبدالله باقشير]

السلام عليكم

 

حاولت عمل الاحتياطي بوضع حرف ح  لكن ما زبط الكود

هذا آخر ما توصلت له

 

المرفق 2003

الملاحظة.rar

[سيد الأكرت]

عموما حضرتك وفرت عليا تعب كبير ومهما اشكرك لن اوفيك حقك واتمنى ان اتعلم منك شيئا فهو شرف لا يضاهيه شرف جزاك الله عنى خير الجزاء 

[Hasan_eng2010]

عمل اكثر من رائع و جزاكم الله كل خير و حسنات

[Ahmed Zahran]

 الشكر الجزيل للاستاذ عبدالله باقشير

ارجوا من سعادتكم شرح الكود

  كما ارجو  من سعادتكم مساعدتي في 

أن تكون توزيع اللجان بحيث يكون  عدد اللجان مضروب في عدد الفترات مساويا عدد الملاحظين مضروبا في عدد ملاحظات كل ملاحظ

مع خالص شكري ونقديري