اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رجاء من خبراء الاكسيل مساعدتى فى هذه المشكلة ((هام جدا))


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

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

 

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

 

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

 

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

 

 

ثانيا: اريد ايضا طريقة لتغير اسم ورقة العمل اوتوماتيكيا حسب اسم الطالب الموجود فى ورقة العمل كما هو مبين فى المرفقات

 

 

رجاء المساعدة فى كلتا الطلبين فى اقرب وقت ممكن

 

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

Report Card-5C.rar

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

السلام عليكم اخى العزيز

ارجو ان يكون هذا هو المطلوب

attachicon.gifReport Card-5C.rar

 

 

E4nNF.png

 

 

omHjb.png

اخى الكريم قنديل الصياد

 

بارك الله فيك , وشكرا على اهتمامك وردك الوافى  , ولكن لى سؤال ,  هل من الممكن عمل نفس الخطوات ولكن بتخصيص لكل طالب ورقة عمل خاصة به فى اسفل الشيت ؟

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

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

 

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

 

أخوكم بن علية

 

الملف المرفق المعدل : Report Card-5C_2.rar

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

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

 

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

 

أخوكم بن علية

 

الملف المرفق المعدل : attachicon.gifReport Card-5C_2.rar

 

 

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

 

شكرا اخى الكريم بن علية على مرورك وردك الكريم

 

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

 

شكرا

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

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

 

أخي الكريم، أعتقد أن خاصية الحساب الآلي غير مفعلة Automatic Calculation ولمعرفة ذلك إضغط على مفتاح F9 (مفاتيح التوظيف) وإن تغير الاسم فهذا يعني أن الخاصية غير مفعلة ويمكن تغييرها في أمر "خصائص" Tools ثم "حساب" Calculation ثم تفعيل خاصية "تلقائي" Automatic هذه في نسخة أوفيس 2003 أما في النسخ الأعلي (2007 ، 2010 ، 2013) فالتفعيل يكون بفتح "خصائص إكسيل" Excel Options ثم فتح خاصية "الصيغ" Formulas ثم اختيار "تلقائي" Automatic في اختيار "نوع الحساب" Type Calculation (واعذرني على الترجمة لأني أعمل على النسخ بالفرنسية)...

 

أخوك بن علية

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

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

 

أخي الكريم، أعتقد أن خاصية الحساب الآلي غير مفعلة Automatic Calculation ولمعرفة ذلك إضغط على مفتاح F9 (مفاتيح التوظيف) وإن تغير الاسم فهذا يعني أن الخاصية غير مفعلة ويمكن تغييرها في أمر "خصائص" Tools ثم "حساب" Calculation ثم تفعيل خاصية "تلقائي" Automatic هذه في نسخة أوفيس 2003 أما في النسخ الأعلي (2007 ، 2010 ، 2013) فالتفعيل يكون بفتح "خصائص إكسيل" Excel Options ثم فتح خاصية "الصيغ" Formulas ثم اختيار "تلقائي" Automatic في اختيار "نوع الحساب" Type Calculation (واعذرني على الترجمة لأني أعمل على النسخ بالفرنسية)...

 

أخوك بن علية

 

 

اخى الكريم , لقد قمت بالضغط على مفتاح F9  كما طلبت ولكن لم يتغير شىء , ايضا قمت بأتباع الطريقة التى قمت بشرحها لتفعيل خاصية Automatic  ولكن قد وجدتها مفعلا بالفعل , ولا اعلم اين المشكلة ولماذا لم يتغير اسم ورقة العمل .

وهذه صورة توضيحية

Pic.rar

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

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

 

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

 

Private Sub Worksheet_Calculate()
    ActiveSheet.Name = [b10]
End Sub

 

 

أخوك بن علية  

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

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

 

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

 

Private Sub Worksheet_Calculate()

    ActiveSheet.Name = [b10]

End Sub

 

 

أخوك بن علية  

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

 

ارجو المساعدة

pic error.rar

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

 

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

 

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

 

أخوكم بن علية

 

الملف المرفق المعدل : attachicon.gifReport Card-5C_2.rar

 

 

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

 

شكرا اخى الكريم بن علية على مرورك وردك الكريم

 

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

 

شكرا

 

اخى العزيز لقد قمت بتجربة الملف على جهازى ويعمل بصورة جيدة ولا تظهر اى اخطاء

قم بتحميل الملف مرة اخرى من هنا وقم بفتحه

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

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

 

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

 

أخوك بن علية

 

 

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

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

 

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

 

أخوك بن علية

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

 

أخى العزيز بن علية 

انا أشكرك كثيرا على اهتمامك بمساعدتى واقدر المجهود الذى تبذله ..... جزاك الله خيرا

فعلا ممكن أن يكون الخلل فى أن الأسماء اكثر من 32 حرفا فهل من الممكن ان تضيف لى هذا الكود لعدم حدوث هذا الخطأ مرة اخرى ؟

 

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

 

 

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

Report Card-5C.rar

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

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