معادلة احصاءالارقام في مدى معين ومنع الارقام المكررة واظهار رسالة خطأ

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاساتذة الافاضل والاخوة الاعزاء

جزاكم الله خيرا على عملكم وابداء المساعدة الى الاخرين

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

ارجو التفضل والتكرم بابداء المساعدة الممكنة وانتم اهل الكرم

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

احصائيات جدول الدروس.rar

[عمرو رحيل]

تفضل اخى العزيز أ / عباس هذه محاولة ربما تفى بالغرض إن شاء الله

وتقيل تحياتى

احصائيات جدول الدروس1.rar

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاخ العزيز والاستاذ عمرو رحيل جزاك الله خيرا

معادلات رائعة في التحقق من الصحة وكذلك معادلة استخراج المدرسين غير الموجودين في الفصل

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

وتقبل دعواتي لك بدوام الصحة والعافية

الارقام غير الموجودة تكون على التوالي.rar

[رجب جاويش]

بعد اذن أخى الفاضل / عمرو رحيل

ولاثراء الموضوع

أخى الفاضل / عباس السماوي

يسعدنى العمل معك مرة أخرى

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

أرجو أن تكون هى المطلوبة

أما التحقق من الصحة فقد قام بها أخى الفاضل / عمرو رحيل على أكمل وجه

احصائيات جدول الدروس.rar

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب رجب جاويش المحترم

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

انا والله يشرفني ويسعدني ان تمر ولو مرورفي مشاركاتي فكيف اذا كانت مشاركة واجابة فهذا شرف كبير لي واشكرك جزيل الشكر على اهتمامك ومتابعتك

اسال الله سبحانه وتعالى وادعوه ان يحفظك ويحفظ اهلك وعيالك ويرزقكم خير الدنيا وخير الاخرة

ودمتم في رعاية الله وحفظه

[الهلال المنير]

اخي العزيز

انا اعطيك برنامج جدول مدرسي متميز جدا وهو جدول العرف 7

حاولت ارفاقه لكن حجمه 17 ميجا

ابحث عنه في النت وسوف تجده

ارفق الكراك فقط لان حجمه بسيطالكرك.zip

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

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

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

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاساتذة الكرام والاخوة الاعزاء جزاكم الله خيرا وبارك في جهودكم

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

ارجو ابداء المساعدة الممكنة وجزاكم الله خيرا

 

شرط عدم التكرار لايعمل مع المعادلات.rar

[رجب جاويش]

أخى الفاضل / عباس السماوى

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

تم حذف دالة    vlookup   الموجودة فى الصفحة و تنفيذها من داخل الكود

وأيضا اظهار رسالة المكرر من خلال الكود

 

هذا الكود يوضع فى حدث الصفحة

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = 0
For i = 4 To 37
    For ii = 4 To 27 Step 2
    Set RG_LIST = Range(Cells(39, ii), Cells(52, ii + 1))
    x = Cells(i, ii)
    If x <> "" Then
    Cells(i, ii + 1) = Application.VLookup(x, RG_LIST, 2, 0)
    xx = Cells(i, ii + 1)
    End If
    y = Application.WorksheetFunction.CountIf(Range(Cells(i, 5), Cells(i, ii + 1)), xx)
    If y > 1 Then MsgBox " هذا الرقم مكرر": Cells(i, ii + 1) = "": Cells(i, ii) = "": Exit Sub
    Next
Next
Application.ScreenUpdating = 1
End Sub

 

شرط عدم التكرار لايعمل.rar

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

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

اخي الحبيب تعجز الكلمات عن الشكر والتقدير لما تقوم به من قضاء حاجات الناس و جميل أن تدخل السرور على قلوب الآخرين إذا احتاجوا للمساعده وتكفيك دعوة صادقة من شخص محتاج يسعدك الله بها .. وكما في الحديث (وخير الناس أنفعهم للناس ) وقد قال صلى الله عليه وسلم: (والذي نفسي بيده لا يؤمن أحدكم حتى يحب لأخيه ما يحب لنفسه) سعادة لا تضاهيها سعادة عندما نكون سبب في سعاد الآخرين قمة السعادة وقمة الفرح أن تكون مصدر فرح للآخرين ... الأجر من   الله والتوفيق في الدنيا ..قال صلى الله عليه وسلم{ (إن من أحب الأعمال إلى الله إدخال السرور على قلب المؤمن, وأن يفرِّج عنه غمًا, أو يقضي عنه دينًا, أو يطعمه من جوع}  وقال فى الحديث الشريف ( لا يشكر الله من لا يشكر الناس )الراوي: أبو هريرة - خلاصة الدرجة: صحيح - المحدث: الألباني - المصدر: صحيح أبي داود - الصفحة أو الرقم: 4811 صدق رسول الله

[رجب جاويش]

أخى الفاضل / عباس السماوي

لا أجد من الكلمات ما يضاهى جمال كلماتك

جعل الله لك بمثل دعائك لى وأكثر

وجزاك الله كل خير

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب رجب المحترم

جزاك الله خيرا وبارك لك في علمك ورزقك

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

دمتم في رعاية الله وحفظه

 

تعديل كود عدم التكرار .rar