AbuuAhmed

بالاكسل هذا مثال لتوزيع الملاحظين على الفترات أو الحصص ، ليس من تصميمي ولكني أصلحت فيه خلل وحسنت أداءه. ميزته اختيار أو توزيع الملاحظين عشوائيا. اطلع عليه يمكن يفيدك. توزيع الملاحظين عشوائيا

مثال آخر .. جربه مع الإعتذار للزملاء لأني لم أطلع على أمثلتهم ورفعت مثالي بناءً على مشاركة السائل الأخيرة. الفرق بين تاريخين بالأيام_01.accdb

الله يعزك استاذنا @ابو جودي ويرفع من شأنك. شكرا لكم

أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم.

أعتذر، رفعت لك ملفا مختلفا بالخطأ ، الآن جرب بعد رفع المثال الصحيح.

جرب وخبرنا مثال للدائن والمدين_01.accdb

الغريبة لي مشاركتين في هذا الموضوع بس السائل يبدو نظره ضعيف وأعتقد أنه ما قرأهما أو قرأهما بس ما عجبه اسمي.

حياك الله أخي طلبت منك التحويل لأني لا أستطيع فتح قاعدة البيانات 🙂 ، يمكن أستطيع بس الصراحة مضيعة لوقتي لأني سأضطر أصمم النماذج والجداول لعمل التجارب، وموضوعك سهل. أعتقد الشباب بعد محاولتي التصدي لموضوعك ترددوا في الدخول، ومن جهتي أقول لهم يا جماعة "درعموا" و "افزعوا" مع الرجال. فأنا مكتف اليدين. من جهتي بدعو لك،

ممكن ترفع لي نسخة 2007 وأن تحدد لي الصناديق/المربعات المطلوب التعامل معها بشكل واضح؟

أعتذر أخي، أنا عملت لك المطلوب على مثالك. فقط افهم الفكرة وطبقها أو استعن بأحد الزملاء. سامحني

جرب ربما هو المطلوب. نموذج مصغر_02.accdb

شكرا لكم استاذ @husamwahab وشكرا لجهودكم، ياريت الجميع يفعل كما فعلت، فعلا الفحص يحتاج دائما إلى التنويع في البيانات. خيرا فعلت. تم التصحيح. تم تبديل المرفقات أكثر من مرة، العملية متعبة وخصوصا لما تقارن مع مخرجات الاكسل، وكما قلت سابقا في موضوع آخر أن الاكسل يستخدم نوع رقمي أوسع من النوع double الموجود في الفيجوال، وهذا يسبب فقدان جزء ضيل جدا من قيمة الكسر وهذا ما يسبب الفروقات. لو نهمل المقارنة مع الاكسل الأمور تكون أسهل ولا تحتاج إلى مزيد من المعالجات والتحايل أحيانا. CeilingFunction4Access_03.xlsm 4ExcelFunctions4Access_03.xlsm

آمل تجربتهم بشكل مكثف والرجوع لنا بنتائج التجارب. خوفي أن هذه الدوال موجودة في الأكسس وأنا لا أعلم بها ويذهب تعبي سدى. تم تبديل المرفق في مشاركة لاحقة بعد تصحيح اخفاق في دالة Ceiling اكتشفه الاستاذ @husamwahab فشكرا له.

أخي، بعد فحص جديد انتبهت أن عملية القفز مطلوبة لاختيار ملاحظ عشوائيا. ولكن قمت بالتعديل على الشرط ليكون كالتالي: - ابقاء أحد الشرطين القديمين وهو منع تكرار الملاحظ لنفس الفترة. - منع دخول الملاحظ لفترتين متتاليتين. - أن لا يزيد عدد حضوره عن 3 على أساس أن حصة الملاحظ من الفترات = 26 فترة مقسومة على 10 ملاحظين لتكون النتيجة 2.6 فترة لقد قمت بتعطيل جزء في آخر الكود ، افحص النتائج أولا، وإذا وجدت أي ملاحظات وقبل أن ترجع لي فعل الجزء المعطل وافحص النتائج من جديد. موفقين ملاحظة_03.xlsm

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

لقد قمت بالتالي: - الإجراء مكرر مرتين وقد قمت بحذف أحدهما - تم تنظيم الكود شكلا. - حذف سطر يمنع مقاطعة الكود أثناء المعالجة، لا أرى له فائدة سوى عرقلة المبرمج لكشف أي تكرار بلا نهاية، كما حصل معي 🙂 . - تعديل عدد الأعمدة بطرح 2 - تعطيل عملية قفز "GoTo 1" ، لا أرى أي فائدة لها، وبسببها يدخل الكود في تكرار بلا نهاية. لا أعرف صحة النتائج فلم ولن أدخل في صحة معالجتها. نصيحة للمبرمجين، تخلصوا من عملية القفز بقدر المستطاع، فعملية القفز بات حل قديم ومصدي. ملاحظة_02.xlsm

أنا لا أحتفظ بأكوادي ، فكتبت لك الدالتبين من جديد. Sub HijriYearTest() Dim Hyy As Integer Dim Days As Long Dim Greg As Long Dim Hijri1 As Long Dim Hijri2 As Double For Hyy = 1 To 9666 Greg = Hijri2Greg(Hyy, 1, 1) For Days = Greg - 1 To Greg Hijri1 = Left(Greg2Hijri(CDate(Days)), 4) 'Hijri2 = (Days + 466580.47) / 354.366666666667 + 1 Hijri2 = (Days + 466581 - 0.53) / (10631 / 30) + 1 If Hijri1 <> Fix(Hijri2) Then Debug.Print CDate(Days), Hijri1, Hijri2 End If Next Days Next Hyy Debug.Print "Done" End Sub Function Hijri2Greg(yy As Integer, mm As Integer, dd As Integer) As Long Dim DefCal As VbCalendar DefCal = Calendar Calendar = vbCalHijri Hijri2Greg = DateSerial(yy, mm, dd) Calendar = DefCal End Function Function Greg2Hijri(DtSerial As Long) As String Dim DefCal As VbCalendar DefCal = Calendar Calendar = vbCalHijri Greg2Hijri = Format(DtSerial, "yyyy/mm/dd") Calendar = DefCal End Function

شكرا لشيخ المنتدى جعفر 🙂 لفتح الموضوع وشكرا لكم جمعيا لتفاعلكم. أنا أوافق بشدة في مراجعة القوانين والتوجيهات والاقتراحات. وفقكم الله تعالى. فقط ملاحظة إضافية وهي الانتباه إلى الخبراء الجدد، فبصمة الخبير تظهر من أول مشاركاته، فاستقطبوه ولا تنتطروا ولا تنظروا إلى عدد مشاركاته أو إلى عمره في المنتدى.

نعم يتم تحديثها عند زيادة أو نقص المواد قم بزيادة مادة ثم اضغط زر "تنفيذ" من صفحة المسودة ثم احذف المادة الزائدة واضغط زر "تنفيذ" مرة أخرى. تم التعديل ، الآن يتم تحديث الأسماء بدون زيادة أو حذف مواد. كذلك تمت بعض التنقيحات البسيطة. توزيع القرار لمدارس العراق_03.xlsm

النسخة الثانية تم تبديل الكود الأساس بالكامل وتم بناءه من جديد. النتائج الآن أفضل والخيارات أوسع. وشكر خاص للاستاذ سعد @saad 77 لتقديمه المعلومات المطلوبة لانهاء المشروع. توزيع القرار لمدارس العراق_02.xlsm

تم التعديل حسب تركيبة الجداول من قبلك باسم Type1 حسب تركيبة الجداول من قبلي باسم Type2 getValue_04.rar

التعديل في التقرير getValue_03.accdb

ملاحظة الجدول يكفي أن يضم رقم الموظف ولا داعي للإسم ، الإسم يكون في ملف الموظفين. كذلك يكفي حقلي وقت الدخول ووقت الخروج ولا داعي لتاريخ الدخول وتاريخ الخروج، بشرط أن يكون نوع الحق تاريخ ووقت في نفس الوقت وبذلك أنت وفرت نصف مساحة التخزين. عند موافقتك على تعديل الجدول ارجع لي أعدل لك المثال ، الآن هو يعمل حسب طلبك ولكن يجب العمل الاستعلام لحصر المدة بشكل أصح وخصوصا عند للموظفين الذين يدخلون قبل منتصف الليل ويخرجون صباح اليوم التالي. جرب المثال: getValue_02.accdb

تدري ليش أرد عليك ، لأن قلبي دائما يغلب عقلي ولكن في الخير إن شاء الله ، هل حلت مشكلتك؟