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

طلب كود vba لرسالة تحذير بالمعطيات التالية جزاكم الله خيرا


hicham2610

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

السلام عليكم

من فضلكم

عندنا ملف :P.XLSM  يفتح وتفتح معه 1.XLSX  و 2.XLSX

 في ورقة "البرنامج" زرين بهما أكواد ماكرو

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

تملأ فقط خلايا الأسطر النشطة أما التي بها 0 فلا تملأ

ثم ننتقل للزر الثاني في ورقة "البرنامج" لترحيل الملاحظات 

المطلوب :

هو كود vba يوضع في أول  كود الزر الثاني (في حالة مانسي المستعمل تحديد جنس المتعلم باختيار عنصر من العنصرين باللائحة المنسدلة في العمود G) قبل تنفيذ الزر الثاني

تخرج رسالة تحذيرmsg: عنوانها تحذير ومحتواها لم تكمل تحديد جنس المتعلم(ة) وإن كان ممكنا لائحة أسماء المتعلمين الذين لم يحدد جنسهم.

الملفات في المرفقات والرقم السري:(الضغط على المسطرة 3 مرات)

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

الملف.rar

تم تعديل بواسطه hicham2610
رابط هذا التعليق
شارك

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

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

أخوك بن علية

الملف.rar

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

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

مع القليل من  البحث في النت وفي خصائص MsgBox تم إضافة خاصية المحاذاة إلى اليمين لنص الرسالة إلى كود الترحيل... مع بعض التعديلات الأخرى، تجد كل هذا في الملف المرفق.

بن علية

الملف.rar

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

مجهودات مشكورة أخي الكريم

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

إلا اني منذ الرد الاول احمل الملف وأدخل لمحتوياته لكن ملفاته لا تفتح.

تظهر دائرة تبقى في الدوران

على اي ساحاول مرات عديدة ولما يفتح وأطلع على إنجازك سارد عليك

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

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

جزاك الله خيرا على المجهود المبذول

 لاحظت أن مثلا : اقتصر على 3 أسماء في كل من اللائحة 1 و2

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

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

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

 

تم تعديل بواسطه hicham2610
رابط هذا التعليق
شارك

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

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

بن علية

الملف.rar

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

الأستاذ الفاضل بن علية

اخجلتني بكرمك و بمساعداتك الكثيرة.

اما الملاحظة التي قلت.والتي هي بسيطة حتى وإن لم نتغلب عليها إن لم يكن فها تأثير.

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

لكن هذه الملاحظة لاتؤثر على المجهودات المبذولة والتي كان اخرها  تحديد عدد من لم يحدد جنسهم و أسماؤهم .

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

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

تم تعديل بواسطه hicham2610
رابط هذا التعليق
شارك

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

منذ ساعه, hicham2610 said:

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

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

بارك الله فيك بالدعاء لي، ولك ولكل المسلمين بالمثل...

أخوك بن علية

 

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

5 ساعات مضت, بن علية حاجي said:

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

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

بارك الله فيك بالدعاء لي، ولك ولكل المسلمين بالمثل...

أخوك بن علية

 

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

تفضل أستاذي الفاضل 

الملف ومتضمن فيديو توضيحي

حمله من هنا:

http://up.top4top.net/downloadf-4218ikaa1-rar.html

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

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

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

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

ربما لاحظت أني في نسخة من الملف من النسخ التي أرفقتها في ردودي، قد قمت بالتعديل على كود "ملء خانة جنس المتعلم(ة)" بحيث لو كانت المادة المعنية هي اللغة الفرنسية فإنه بعد عملية نسخ ولصق اللائحتين "1" و "2" بالكود تظهر رسالة تبين أنه لا داعي لملء خانات جنس المتعلم(ة) في ورقة "Sexe" وبعد غلق الرسالة يفتح الكود ورقة "البرنامج" حتى تقوم بتنفيذ كود "الملاحظات"...

أخوك بن علية

 

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

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

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

أخوك بن علية

 

 

الملف_2.rar

تم تعديل بواسطه بن علية حاجي
رابط هذا التعليق
شارك

الأستاذ الفاضل بن علية

بالفعل لاحظت وجرت مسألة الفرنسية.والرسالة التي تخرج.

بارك الله فيك

وأنا أبعث بهذا الرد لاحظت انك أجبتني عن الطلب الأخير.

اراقبه وارد عليك.

تم تعديل بواسطه hicham2610
رابط هذا التعليق
شارك

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

أخي الكريم، قمت بتبديل الملف المرفق في ردي السابق حيث أعدت إلى الأكواد الخاصية السابقة حول اللغة الفرنسية...

أخوك بن علية

 

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

8 ساعات مضت, بن علية حاجي said:

 

السلام عليكم

الأستاذ الفاضل:

بن علية حاجي

مجهود بالفعل مجهود رائع وكبير مبذول

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

إلا أنني لاحظت الترحيل في الفرنسية تخرج نافذة نجاح الأمر ويبقى العمود فارغا.

بم تنصحني لإتقان المعادلات و أكواد vb ؟؟؟؟

جزاك الله خيرا وأتابك الجنة إن شاء الله,

تم تعديل بواسطه hicham2610
رابط هذا التعليق
شارك

15 ساعات مضت, بن علية حاجي said:

 

السلام عليكم

الأستاذ الفاضل:

بن علية حاجي

كما قلت سابقا فهو مجهود بالفعل مجهود رائع وكبير 

والملاحظة التالية لا تقلل من المجهود

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

مما يؤثر على الترحيل

وأجدد شكري لك و ممن أن تعطيني نصائح لإتقان المعادلات و Vba مثلك.

جزاك الله خيرا وأتابك الجنة إن شاء الله,

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

13 ساعات مضت, بن علية حاجي said:

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

 

السلام عليكم

الأستاذ الفاضل

لقد عالجت مشكلة الملاحظات في xlsm بتغيير أول المعادلة من: أو  إلى: و  (et ) 

أستشير معك : هل تدخلي هذا سليم؟؟؟ يمكنك التأكد من آخر ملف بعث لي.

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

تم تعديل بواسطه hicham2610
رابط هذا التعليق
شارك

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

أخي الكريم، في المنطق الرياضي نعلم أن ربط شرطين بالرابط OU (أو OR) يكون صحيحا بمجرد أن يكون أحد الشرطين صحيحا، ويكون خاطئا (الربط) لما يكون الشرطان خاطئان معا بينما الرابط ET (أو AND) يكون صحيحا لما يكون الشرطان صحيحان معا ويكون (الربط) خاطئا في الحالات الأخرى أي عندما يكون أحد الشرطين خاطئا على الأقل... لهذا ستظهر الملاحظات جميعها في ورقة "الملاحظات" إذا استعملت الرابط ET في معادلات الملاحظات حتى وإن وُجدت بعض خلايا الجنس (العمود الأخير) فارغة لأن خلايا العمود D (عمود الأسماء) غير فارغة... وقد قمت بالتعديل على المعادلات لحل مشكل اللغة الفرنسية والملاحظات... بالنسبة لكود "اختبار العلامات في ملفات الفروض" فقد قمت بالتعديل عليه وتبسيطه وهو يقوم باختبار علامات 4 فروض (أربعة ملفات)... أرجو أن يفي الغرض المطلوب... إذا كانت ملاحظات أخرى حول عمل الملف فستجدني بإذن الله في الخدمة دون أدنى حرج...

أخوك بن علية

 

 

الملف_3.rar

تم تعديل بواسطه بن علية حاجي
رابط هذا التعليق
شارك

18 ساعات مضت, بن علية حاجي said:

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

 

 

4 ساعات مضت, بن علية حاجي said:

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

بالنسبة لكود "اختبار العلامات في ملفات الفروض" 

أخوك بن علية

الملف_3.rar

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

أستاذي الفاضل

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

يمكنك التأكد أخي الكريم

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

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

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

تم تعديل بواسطه hicham2610
رابط هذا التعليق
شارك

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

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

أخوك بن علية

 

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

11 ساعات مضت, بن علية حاجي said:

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

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

أخوك بن علية

 

السلام عليكم

كرما منك 

المرجو التفضل بمراجعة آخر ملف بعثه لي ففيه مشكلة الملاحظة بحيث يضع ملاحظة الأنثى للذكر

أرفقت لك ملفا به عدد قليل من المتعلمين 3 ذكور و 3 إناث ليسهل التجريب عليهم

لقد جربت وحملت الملف أكثر من مرة وتحققت من المشكلة

كما كان  الملاحظة بالمعدل 5 و 6 كانت مخاطبة للجنسين غيرت لتظهر المشكلة بشكل جيد

المرجو إصلاح المعادلة المعنية بالرجوع لآخر ملف بعثه لي

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

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

 

Nouveau dossier (3).rar

تم تعديل بواسطه hicham2610
رابط هذا التعليق
شارك

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

أخي الكريم، تم تصحيح الخلل في معادلات الملاحظات حيث كان الخطأ في جزئية المعادلة التي تختبر جنس المتعلم(ة) SI($J18="";1;2) (بين علامتي التنصيص تجد كلمة "ذكر" لم أكتبها حتى لا تختلط الجزئية) غير أن عمود الجنس هو العمود M وليس J... ثم إني قمت بالتعديل على كود "ملء خانة جنس المتعلم(ة)" حسب الطلب الأخير، وارجو أن تفي بالغرض... وتجدني إن شاء الله في الخدمة ذائما.

أخوك بن علية

 

الملف_4.rar

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information