hicham2610

هل من اقتراح إخوتي الكرام عدلت في الملف لكن دون فائدة لا يتحقق بالشكل المطلوب 11.rar

السلام عليكم جرب هذا: Private Sub Worksheet_Change(ByVal Target As Range) Dim ict1 As Range Set ict1 = Intersect(Target, Range("A3:A5, D9:D50, G9:G50, R9:R50")) If ict1 Is Nothing Then Exit Sub With Application .EnableEvents = False .Undo .EnableEvents = True End With End Sub

السلام عليكم من فضلكم مالكود الصحيح الواجب وضعه في الزر الأول العلوي من ورقة البرنامج في ملف P.xlsm ليتحقق بشكل سليم من النقط الموضوعة بكل من الورقة 1 و 2 بقيت مشكلة في كود عدد الأسطر التي بها بيانات في عمود : c ابتداء من السطر:18 (الأرقام بالعمود تكون غير متسلسلة) الرقم السري للدخول للأكواد(الضغط على المسطرة 3مرات) وجزاكم الله خيرا 1.rar

لاحظ أخي الملف المرفق التالي: وجرب عليه Nouveau dossier.rar

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

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

السلام عليكم ورحمة الله وبركاته الإخوة الكرام مالعيب في كود التحقق الموجود في الزر الأول فهو ينجح مع جميع المواد المرفقة و لاينجح مع العلوم؟ الزر موجود في صفحة البرنامج من ملف p.XLSM وهو الزر الأول العلوي وكيفية الاشتغال: يفتح الملفان 1 و2 من نفس المادة مع الملف:P وعند الضغط على الزر الأول للتحقق من كل النقط موضوعة يتحقق تنجح العملية مع جميع المواد ولاتنجح مع العلوم فرغم وجود نقط ناقصة يكتب كل النقط موضوعة فمالعيب في هذا الكود؟جزاكم الله خيرا الرقم السري (الضغط على المسطرة ثلاث مرات) الملف.rar

السلام عليكم الإخوة الكرام من فضلكم عندنا ملف :P.XLSM يفتح وتفتح معه 1.XLSX و 2.XLSX فكرة P تقوم على نسخ الملف 1 و 2 و في P ويشتغل عليها بحساب المعدلات ووضع الملاحظات هل من طريقة لتجنب نسخها في:P.XLSM والاشتغال عليها وهي مقتوحة واتخاد القرار بوضع الملاحظات دون نسخها الملف في المرفقات والرقم السري:(الضغط على المسطرة 3 مرات) وجزاكم الله خيرا الملف.rar

السلام عليكم أتمنى أن يكون المطلوب هذا وضعت لك زرا في الورقة الأولى Microsoft Office Excel Worksheet جديد.rar

السلام عليكم جزاك الله خيرا وأتابك الجنة.

السلام عليكم كرما منك المرجو التفضل بمراجعة آخر ملف بعثه لي ففيه مشكلة الملاحظة بحيث يضع ملاحظة الأنثى للذكر أرفقت لك ملفا به عدد قليل من المتعلمين 3 ذكور و 3 إناث ليسهل التجريب عليهم لقد جربت وحملت الملف أكثر من مرة وتحققت من المشكلة كما كان الملاحظة بالمعدل 5 و 6 كانت مخاطبة للجنسين غيرت لتظهر المشكلة بشكل جيد المرجو إصلاح المعادلة المعنية بالرجوع لآخر ملف بعثه لي وجزاكم الله خيرا جزاك الله خيرا Nouveau dossier (3).rar

وعليكم السلام ورحمة الله وبركاته أستاذي الفاضل بالنسبة لهذا الكود لما تم تجميعه أصبح يعطي كل النقط موضوعة رغم أن هنا ك نقطا ناقصة يمكنك التأكد أخي الكريم وفكرة التجميع جيدة فهي ربما ستسهل تخفيف البرنامج أثناء التنفيذ لأني أريد في الماكرو الذي يجلب و ينسخ (الزر الثاني) كيفية اختصاره فكثرة select ربما تؤثر على سرعته ويجعله ثقيلا وجزاكم الله خيرا

السلام عليكم الأستاذ الفاضل لقد عالجت مشكلة الملاحظات في xlsm بتغيير أول المعادلة من: أو إلى: و (et ) أستشير معك : هل تدخلي هذا سليم؟؟؟ يمكنك التأكد من آخر ملف بعث لي. وجزاكم الله خيرا.

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

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

الأستاذ الفاضل بن علية بالفعل لاحظت وجرت مسألة الفرنسية.والرسالة التي تخرج. بارك الله فيك وأنا أبعث بهذا الرد لاحظت انك أجبتني عن الطلب الأخير. اراقبه وارد عليك.

وعليكم السلام ورحمة الله وبركاته تفضل أستاذي الفاضل الملف ومتضمن فيديو توضيحي حمله من هنا: http://up.top4top.net/downloadf-4218ikaa1-rar.html جزاك الله خيرا وجعله من الأعمال المقبولة لديه عز وجل.

الأستاذ الفاضل بن علية اخجلتني بكرمك و بمساعداتك الكثيرة. اما الملاحظة التي قلت.والتي هي بسيطة حتى وإن لم نتغلب عليها إن لم يكن فها تأثير. فهي كالتالي:خذ مثلا لائحة رقم:1 ولائحة رقم:2 واقتصر فقط على الأسماء الثلاثة الأولى واحذف الاخرين.لاحظ ماسيحدث لجدول الملاحظات في ورقة:"sex".ستحذف منه أسطر حبذا لو تحذف الاسطر فقط من الجدول الذي به تحديد الجنس ليتناسب الجدول وعدد المتعلمين او يكون حد لحذف اسطر هذا الجدول كي لا يؤثر على جدول الملاحظات. لكن هذه الملاحظة لاتؤثر على المجهودات المبذولة والتي كان اخرها تحديد عدد من لم يحدد جنسهم و أسماؤهم . جزاك الله وجعلك من الذين ينفسون عن الناس كرب الدتيا فينفس الله عنك كرب الآخرة. جزاك الله خيرا.

السلام عليكم من فضلكم عندنا ملف :P.XLSM يفتح وتفتح معه 1.XLSX و 2.XLSX في ورقة "البرنامج" أريد أن أضع زرا بالضغط عليه نتحقق هل كل النقط موضوعة في الشبكات أو اللوائح المفتوحة.XLSX وإن كان ممكنا إن كانت هناك نقطا ناقصة الإشارة للإسم واللائحة التي تنقصها النقطة,بحيث تخرج رسالة تحذير في حالة نقص النقط وفي حالة كل النقط موضوعة تخرج: رسالة كل النقط موضوعة لايجب تحديد أعمدة المواد فالمواد وعدد ها متغير : بل الاشارة لمجال الملء مثلا : أول عمود به بيانات وآخر عمود به بيانات مثلا,لأن عدد الأعمدة التي بها نقط مختلف من مادة إلى أخرى ومن مستوى إلى أخر وأريد أن يكون صالحا للكل الملفات في المرفقات والرقم السري:(الضغط على المسطرة 3 مرات) وجزاكم الله خيرا الملف.rar

جزاك الله خيرا على المجهود المبذول لاحظت أن مثلا : اقتصر على 3 أسماء في كل من اللائحة 1 و2 فسينقص من الجدول الذي به الملاحظات يجب أن يبقى جدول الملاحظات بكامل أسطره أما msg و الإشارة للأسماء التي تنقصها خانة الجنس فما شاء الله فذلك هو المطلوب وهل ممكن إستثناء مادة الفرنسية من هذا الإجراء أي التحقق من كثابة الجنس لأن الملاحظات بها لايهم تحديد الجنس بالتحقق من المادة في : 011 جزاك الله خيرا وجعله في ميزان حسناتك

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

تعديل في الملف المرفق: الملف.rar

السلام عليكم من فضلكم عندنا ملف :P.XLSM يفتح وتفتح معه 1.XLSX و 2.XLSX في ورقة "البرنامج" زرين بهما أكواد ماكرو بحيث عند الضغط على الزر الأول يحول للورقة" sex" في هذه الورقة عمود الجنس وجب تعبئة خلاياه باختيار عنصر من عنصرين:ذكرأو أنثى من خلال لائحة منسدلة. تملأ فقط خلايا الأسطر النشطة أما التي بها 0 فلا تملأ ثم ننتقل للزر الثاني في ورقة "البرنامج" لترحيل الملاحظات المطلوب : هو كود vba يوضع في أول كود الزر الثاني (في حالة مانسي المستعمل تحديد جنس المتعلم باختيار عنصر من العنصرين باللائحة المنسدلة في العمود G) قبل تنفيذ الزر الثاني تخرج رسالة تحذيرmsg: عنوانها تحذير ومحتواها لم تكمل تحديد جنس المتعلم(ة) وإن كان ممكنا لائحة أسماء المتعلمين الذين لم يحدد جنسهم. الملفات في المرفقات والرقم السري:(الضغط على المسطرة 3 مرات) وجزاكم الله خيرا الملف.rar

الأستاذ الكريم ما قصرت جزاك الله خيرا وأتابك الجنة.

الأستاذ الفاضل يمكنك الرجوع لردكم هنا: وجزاكم الله خيرا