konafa4000

شكرا صديقى العزيز Ali Mohamed Ali على مجهودك الكريم المعادلة ممتازة جدا

ما هى المعادلات التى يتم ادراجها بالمدى i2:j13 وذلك لجميع اكثر من مدى فى مدى واحد مع تجاهل الصفوف الخالية بمعادلات وليس بكود VBA مع العلم بوجود اكثر من عمود بعد الاسم و الكود يمكن ادراجها ايضا تم تعديل عنوان المشاركة , ليكون معبر أكثر عن طلبك New Microsoft Excel Worksheet.xlsx

شكرا

ساحاول تصحيح الخطأ

اليك المطلوب بالمرفقات المطلوب.rar

اليك المطلوب Copy of جديد .rar

مشكور اخى Alidroos على الشرح الوافى للكود توضيح : (لكى ياخذ كل ذى حق حقه) --------- الملف الاساسي الذى قدمه اخى elsedik فى طلبه بالمشاركة الاولى كان يحتوى على هذا الكود ( بصراحة اللى كاتبه راجل محترف جدا - ارفع له القبعة) وكل ما فعلته هو تعديل بسيط على الكود لكى يتم ترحيل البيانات الى شيت 5 وفقا وطلب اخى elsedik تقبلوا تحياتى Konafa4000

جرب هذا الملف المرفق سجل البيانات فى شيت 6 ثم اضغط على button 2 ستجد البينات تم ترحيلها الى شيت العميل وايضا الى شيت 5 تحياتى Konafa4000 جديد .rar

جرب هذا كاملة 6.rar

فى اعتقادى بان هذا غير ممكن الحدوث

السلام عليكم شرفتنا اخى اعزيز بمداخلك الاولى بالمنتدى يفضل ان ترفق الملف اخوك Konafa4000

السلام عليكم اخى العزيز اليك المرفق اخوك Konafa4000 Calendar.rar

السلام عليكم ورحمة الله وبركاته اخى العزيز ،،،،،، الحمد والشكر لله ان هدانا وهداك للمطلوب وجزا الله الكاتب الاصلى لهذه الاكواد كل خير ففى الواقع ان كاتب هذه الاكواد محترف جدا وهو الذى يستحق كل الثناء والشكر (لن استغرب ان كان اخونا خبورخير هو كاتب معظم هذه الاكواد) فمعظم الاكواد بهذا الملف تتخطى حدود معرفة العبد الفقير الذى لم يقم الا بمجرد تعديل بسيط فى شرط اظهار الدوائر الحمراء فقط ليتلائم مع طلبك اخى العزيز بالنسبة لاستفسار صف الدرجات 6 بدلا من 12 صف الدرجات 12 الذى يحتوى النهاية الصغرى للمادة يحتوى على بيانات تعامل على انها نصية حيث الارقام موضوعه بين علامتى تنصيص "40"= & "30"= الى اخره حيث ان هذا الصف 12 يتم نقله هو والنطاق الشهادة الاولى لعمل شهادة ثانية ثم ثالثة ثم رابعة او حتى الكل على حسب عدد الطلاب المستدعاه فكان لزاما ان يكون ان هذا الصف نصى مثل الذى قبله (صف النهاية الكبرى) يحتوى على هذا الشكل النصى فلو كان هذا الصف يحتوى على بيانات رقمية 40 & 30 ستلاحظ عند استدعاء شهادة ثانية ان النهايات الصغرى اصبحت 41 & 31 حيث تم اضافة 1 اليها & واشتدعاء شهادة ثالثة يجعلها تصبح 42 & 42 &وهكذا ...... فى حين ان شرط اظهار الدائرة يحتاج ان يتم المقارنة بين قيمة الخلية التى سيوضع بها الدائرة (والقيمة بداخلها رقمية) ان تقارن مع قيمة رقمية اخرى بالنهاية الصغرى للمادة وطالما ان القيمة نصية (بالصف 12) فان المقارنة لن تكون صحيحة باى حال من الاحوال وبالتالى اصبحت امام ثابتين يجب ان يكون الصف 12 نصى لاعتماد باقى الشهادات عليه وفى نفس الوقت احتاجه ان يكون رقمى لتنفيذ الشرط فقمت باسبداله بالصف 6 ووضع النهايات الصغرى للمادة بشكل رقمى فيه وتنفيذ الشرط عليه اتمنى بان اكون قد وفقت فى الرد على استفسارك وايصال المعلومة اخوك تلميذ المنتدى Konafa4000

السلام عليكم اخى \العزيز تم التصحيح الى 15 الموديول 1 - ماكرو tt ليس له فائدة وتم حذفه (كنت استخدمه لتربة شيئ ) برجاء مراعاة انه توجد بينات حيوية لايجب حذفها بالصف السادس 6 من شيت شهادة اخر العام (والتى يقوم عليها الشرط) بالنسبة لدرجة الطالب مساوية للنهاية العظمى بينما درجة نهاية العام تكون اكبر من 15 (كيف يحدث هذا ؟ فهذه حالة واحدة بان يكون درجة الطافى منتصف العام ودرجة نهاية العام درجة كاملة) على كلا تم مراعاة ذلك بيحيث لن تظهر دائرة على تلك المادة الشرط النهائى توضع دائرة فى حالة 1-درجة الطالب اقل من انهاية الصغرى او هناك حالة غياب غ 2-أو درجة نهاية العام اق من 15 او ان هناك حالة غياب غ اليك المرفق konfa4000 تعديلى النهائى.rar

انت بالفعل علامه واخوك العبد الفقير تلميذ فى مدرستكم Konafa4000

السلام عليكم اخى العزيز تم التعديل بحيث لا تظهر الدوائر بخلايا رقم الجلوس والنسبة بحيث الدوائر ستوضع فى خلايا صف درجة الطالب فى حالتين فقط 1-درجة الطالب بالمادة(اى بالخلية ضمن صف درجة الطالب) اقل من النهاية الصغرى 2-درجة نهاية العام للمادة (اى الخلية السفلى لخلية درجة الطالب) اقل من 30 امنى ان يكون هذا هو طلبك انتظر ردك اخوك Konafa4000 شيت - Copy.rar

GoodWork

اتقصد امام رقم الجلوس ؟؟؟؟ الطبيعى ان رقم الجلوس لن يكون 2 او 3 او رقم احادى او

السلام عليكم اخى العزيز اليك المرفق لا تعدل فى التاريخ حيث انه توجد معادلة تاريخ اليوم بها الا اذا اردت ان تضع تاريخ معين Konafa4000 97للتعديل_ ماكرو1.rar

رجاء تحويل الملف الى متوافق مع اوفيس 97-2003 النسخة التى لدى من الاوفيس 2003 لذلك لا استطيع فتح المرفق

السلام عليكم اليك تعديل ربما قد يفيدك ولكن مازال هناك خطأ عند طباعة الكل (لا اعلم فائدة صف درجة نهاية العام طالما الشهادة لمنتصف العام) Konafa4000 شيت.rar

السلام عليكم اليك التعديل konafa4000 Book1.rar

السلام عليكم تحياتى اخى خالد القدس اسخدام رائع لمعادلة Vlookup اخوك Konafa4000

السلام عليكم تحياتى اخى خالد القدس اسخدام رائع لمعادلة Vlookup اخوك Konafa4000

السلام عليكم اخى العزيز Private Sub Workbook_Open() t = " السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير " n = 0 Do While n < 5000 t = Right(t, Len(t) - 1) & Left(t, 1) Sheet1.Range("o3") = t w = 0.2 temp = Timer Do While Timer < temp + w DoEvents Loop n = n + 1 Loop End Sub هذا هو الذى يوضع بحدث فتح الملف Private Sub Workbook_Open() غالبا انت قمت بنسخ الكود كاملا بما فيه اسم الاجراء Sub auto_open() ضمن حدث Private Sub Workbook_Open() وهذا خطأ فيجب فقط ان تضع الجمل الخاصة بالكود اسفل حدث فتح الملف نفس الامر مع حدث تنشيط الشيت 1 اخوك konafa4000