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

احمد 505

03 عضو مميز
  • Posts

    375
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو احمد 505

  1. ما شاء الله تبارك الله أخي ياسر الا الامام سر ونحن معك ابهرنا بإبداعاتك زادك الله بسطة في العلم
  2. أخي سليم أشكرك المعادلة شغالة 100% بفضل الله ثم بفضلك
  3. أخي سليم السلام عليكم اشكرك على الرد والاجابه ولكن عذرا كلما اردت انسخ المعادلة ثم الصقها على الملف تظهر لي رسالة يوجد خطأ أرجوا تطبقها على الملف المرفوع وبالنسبة لسؤالك عن 75 و 100 نعم اريدها ان تحتسب يتم الحساب من 75 الى 100 وشكراً
  4. السلام عليكم اخواني الأعزاء اسعد اله مسائكم بكل خير عندي جدول يحتوي على عدة ارقام من العمود a الى العمود ba واريد معادلة ( جمع ) بحيث تجمع الأرقام من 75 الى 100 حتى وان تكرر الرقم أكثر من مرة لا مشكله أقل من 75 لا يحسب وأعلى من 100 لا يحسب أشكر الجميع حساب 75 فأعلى.rar
  5. الله يزوجك ياشيخ وحده يحبها قلبك وان كنت متزوج فالتجديد طيب ( وما قلت لك حاجه ) اشكرك شكر جزيل وفقك الله سيتم التطبيق
  6. السلام عليكم عزيزي لاحظت انه بعد اللصق لا يمكن التراجع لو مثلا اخطئت برقم الصف واردت ان اتراجع ( لا يمكن ذلك ) هل يمكن اضافة التراجع للكود اشكرك
  7. تمام التمام بارك الله فيك ونفعك بعلمك وكتب اجرك باقي اطبق النقل على قاعدة البيانات واعطيك خبر ان شاء الله
  8. الملف محمي الرقم السري صفر (0) تفضل 2.rar
  9. اخي الكريم لاحظت انني لا استطيع استخدام الايقونه عندما اعمل حماية للاعمده من A لى X هل تستطيع ان تجعل اللصق ممكن مع الحمايه لانني لا الصق على الاعمده من A لى X أي معلومة اشكرك
  10. بيض الله وجهك يالحبيب 100% مبدئيا العمل رائع سوف اطبقه على قاعدة البيانات ثم اعطيك الخبر ولو طولت عليك اعذرني اخي الكريم بس استفسار بسيط ( كيف انقل الملف لقاعدة البيانات + الايقونه ) بارك الله فيك ونفع بك وبعلمك اشكرك
  11. الله ينور عليك الصراحة الفكرة ممتازه بس انا عندي قاعدة البيانات كبيرة جدا حوالي عشرة الاف صف ( 10000 ) وانت ثبت الطلب على الصف الخامس والمطلوب نفس الايقونه الي انت عملتها بس التحديد اختياري وبعدين هل هذا كود اشكر لك تعاونك وسرعة تجاوبك
  12. اخي ياسر اشكرك على الاهتمام الموضوع بالمختصر الورقه مقسومه نصين من عمود A الى عمود X كله معادلات تعمل بتعبئة الخلايا المدخله يدويا من العمود Y حتى النهايه * طبعا انا مجهز الصف رقم 1 كامل بحيث انسخ منه والصق على الجدول طريقة عملي مثلا حبيت ازيل معلومات أي صف في الجدول مثل الصف 5 اقوم بنسخ الصف الاول كاملا والصقه على الصف 5 ويصبح الصف منظيف من المدخلات لكن المشكله المعادلات بعض الاحيان تتغير لا تعمل جيدا بسب النسخ واللصق ** انا حاولت اقفل الجزء الي عليه المعادلات بس ما بيقبل اللصق مع التقفيل الطلوب اريد انسخ نسخ عادي بتظليل كامل الصف الاول من A1 الى ER1 ثم الصقه على الصف 5 ( اللعبه هنا ) بحيث يتم اللصق على مابعد العمود X وما قبله المعادلات يتم تجاهلها ارجوا اكون اوضحت او اني فسرت الماء بعد الجهد بالماء
  13. السلام عليكم ورحمة الله اتمنى تجاوبني على سؤالي الغريب ولكن تعودت انه لا غريب على اساتذة هذا المنتدى الفذ 1.rar
  14. اخي الكريم نزلت الملف مره ثانية ولم يعمل ممكن عشان الاوفس انا عندي اوفس 2007 عربي
  15. السلام عليكم ورحمة الله اخي / سليم حاصبيا اشكرك على مجهودك الطيب ولكن الطريقة لم تجدي نفعاً لانها لا تزال يدويه أنا اريدها تلقائيه بارك الله فيك ولكن ممكن ان الطريقة معقدة نوعاً ما ويبدو اني استغني عن الفكرة ولكن هذا المنتدى الرائع هو من اجبرني وحمسني ان اطرح الفكرة اشكرك اخي الكريم
  16. السلام عليكم ورحمة الله وبركاته اشكر الجميع على مساعداتهم ومجهوداتهم واخص بالشكر الاستاذ / قنديل الصياد بارك الله فيك وفي علمك ونفعك بعملك وعلمك أشكرك تمت التجربة وبنجاح هذا هو المطلوب بارك اله فيك
  17. الله يعطيك العافية اخي سليم مجهود تشكر عليه بارك الله فيك ولكن المعادلة بتعطيني خطا سواء بالفاصلة او بالفاصلة النقطية والمرفق لم يفي بالغرض أنا اريد اذا كانت الدرجة تساوي 75 وأعلى . تكون النتيجة ناجج pass واذا كانت الدرجة تساوي 74 وأقل . تكون النتيجة راسب fail واذا لم يكون هناك درجة وتاريخ ( يعني الخانة فاضية ) فيجب تكون خانة النتيجة فاضية وشكرا
  18. السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اعزائي عندي دول واريد عليه تعديل بسيط رجاءً عمل الجدول كالتالي الدرجة المطلوبة للنجاح = 75 اذا حصل المختبر على 75 يكون ناجح ( PASS ) او أكثر منها ( 75 - 100 ) ناجح اذا حصل المختبر على 74 واقل يكون راسب ( FAIL) ( 74 - 0 ) راسب المعادلة عندي شغالة تمام بتعطي علامة ناجح وراسب المشكلة عند مسح الدرجة او عدم وجود درجة المعادلة بتعطي راسب (FAIL) مثل الصف رقم 2 والرصف 6 المطلوب عند عدم وجود نتيجة في العمود B تكون خانة النتيجة (PASS-FAIL) العمود A تكون فاضية ( تختفي المعادلة ) وشكرا بدون معلومة.rar
  19. السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اريد من حضرتكم ايجاد معادلة لحساب اخر نتيجتين اختبار ويكون المختبر راسب في لا الاختبارين بغض النظر عن التاريخ اشكركم تعداد الأمتحانات.rar تعداد الأمتحانات.rar
  20. اهلين اخي الكريم سليم حصبيا كل عام وانت بفضل الله طيبٌ معافا انا استخدم 2007 عربي
  21. السلام عليكم ورحمة الهه وبركاته كل عام وانتم بخير وتقبل الله مني ومنكم صالح الاعمال ولازلت انتظر اجابه والله اني في حيرة من امري
  22. اخي الكريم ارسلت لك الكودين ونوع المعادلات التي تحتويها ورقة الاكسل فهل لها دخل بعدم حفظ الحدود اما عن سؤالك فلم افهم المقصود منه وما دام لم افهم ما تقصد . فأكيد اني لا اعمل عليه انتظر الرد اشكرك
  23. وعليكم السلام ورحمة الله وبركاته هذا الكود الاول Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 91 Then If Target.Column = 35 Then Sheets("ELS").Cells(Target.Row - 86, "P").Value = Sheets("ELS").Cells(Target.Row - 86, "N").Value Sheets("ELS").Cells(Target.Row - 86, "N").Value = Sheets("ELS").Cells(Target.Row - 86, "L").Value Sheets("ELS").Cells(Target.Row - 86, "L").Value = Sheets("ELS").Cells(Target.Row - 86, "J").Value Sheets("ELS").Cells(Target.Row - 86, "J").Value = Sheets("ELS").Cells(Target.Row - 86, "H").Value Sheets("ELS").Cells(Target.Row - 86, "H").Value = Target.Value End If If Target.Column = 36 Then Sheets("ELS").Cells(Target.Row - 86, "Q").Value = Sheets("ELS").Cells(Target.Row - 86, "O").Value Sheets("ELS").Cells(Target.Row - 86, "O").Value = Sheets("ELS").Cells(Target.Row - 86, "M").Value Sheets("ELS").Cells(Target.Row - 86, "M").Value = Sheets("ELS").Cells(Target.Row - 86, "K").Value Sheets("ELS").Cells(Target.Row - 86, "K").Value = Sheets("ELS").Cells(Target.Row - 86, "I").Value Sheets("ELS").Cells(Target.Row - 86, "I").Value = Target.Value End If End If End Sub وهذا الكود الثاني Function ContDate(MyDate1 As Date, MyDate2 As Date, YMD As String) D1 = Day(MyDate1): D2 = Day(MyDate2) M1 = Month(MyDate1): M2 = Month(MyDate2) Y1 = Year(MyDate1): Y2 = Year(MyDate2) If D1 > D2 Then Dr = D2 + 30 - D1: M = -1 Else Dr = D2 - D1 If M1 > M2 Then Mr = M2 + M + 12 - M1: Y = -1 Else Mr = M2 - M1 Yr = Y2 - Y1 + Y If YMD = "D" Or YMD = "d" Then ContDate = Dr If YMD = "M" Or YMD = "m" Then ContDate = Mr If YMD = "Y" Or YMD = "y" Then ContDate = Yr End Function وهذي المعادلات IFERROR(MID(YEAR IF(ISERR IFERROR(VLOOKUP وغيرها من المعادلات جميعها في قاعدة بيانات واحدة وجميعها اخذتها من أسئلتي في هذا الصرح الشامخ وبمعونة الله ثم الاساتذة الكرام بهذا المنتدى المميز
×
×
  • اضف...

Important Information