قيس111

معليش لم انتبه انك وضعت ورقه ثانيه هذا اللي ابيه 

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

مشكور اخي على مجهودك 

ولكن لم اصل الى مبتغاي ممكن لم تصل فكرتي 

ساشرح لك ما اريده بالضبط 

انا بدأ الانتاج الاول عندي الساعه 6:10 وانتهى الساعه 10:20 لدي هنا 260 دقيقه اشتغلت فيها اريد اعرف مجموع الاعطال الحاصل من الساعه 6:10 الى الساعه 10:20 لنفرض مجموع الاعطال الحاصله 100 دقيقه كيف احصل على هالمجموع مره وحده

اتمنى وصلت الفكره التي احتاجها والملف المرفق في الاعلى

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

الله يسعدكم اتمنى المساعده وهناك ملف يوضح ما اريد

Book1.xlsx

السلام عليكم 

أخوتي في منتدى أوفيسنا .

لم أعهد هذا التجاهل منكم أيها الخبراء .

لا ننسى اننا يجب ان نقف مع بعضنا البعض ومن يستطيع المساعده فيساعد .

أريد أحد الخبراء أو مشرف القسم أو مدير المنتدى أن يساعدني أو يجيبني بلا نستطيع او لا نريد مساعدتك...؟؟؟؟ .

شاكر كل من مر وأجابني بمساعده أو أخبرني بعدم أستطاعته .

سأنتظر وأتمنى أن لا يخيب ظني بكم 

للرفع

من خلال بحثي بالمنتدى توصلت للكود هذا وجربته وعجبني ولكن في الخلايا A3 :A20 لا استطيع الاختيار أرجو منكم تعديل عليه لكي استطيع اختار من الخلايا التي يوجد بها قائمه منسدله وتحفظ ولا يستطيع التعديل عليها 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("A1:A22")) Is Nothing Then

        Application.EnableEvents = False

        Application.Undo

        Application.EnableEvents = True

        MsgBox "Don't Change"

    End If

 

الرجاء من الاخوه النظر في طلبي والمساعده 

ضروري 

للرفع

الرجاء من الاخوه النظر في طلبي والمساعده 

ضروري 

للرفع

للرفع

الرجاء من الخبراء الله يوفقكم عدلولي بالكود على حسب الطلب .

سأجد في جعبتهم الكثير.

من خلال بحثي بالمنتدى توصلت للكود هذا وجربته وعجبني ولكن في الخلايا A3 :A20 لا استطيع الاختيار أرجو منكم تعديل عليه لكي استطيع اختار من الخلايا التي يوجد بها قائمه منسدله وتحفظ ولا يستطيع التعديل عليها 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("A1:A22")) Is Nothing Then

        Application.EnableEvents = False

        Application.Undo

        Application.EnableEvents = True

        MsgBox "Don't Change"

    End If

End Sub

للرفع

هل نستطيع ايقاف خدمات Ctrl مع التظليل 

للرفع

شاكر مجهودك أخي العزيز 

أستطيع التعديل على الملف بالضغط على Ctrl في مساحه فاضيه وأختار ما اريد تغيير ويتم تغييره 

أريد حمايه أقوى .

أرجوكم مساعدتي للضروره .

عندي ملف أكسل احتاج مساعدتكم فيه يوجد فيه كود يحمي الصفحه من التعديل الرقم السري للتعديل 1400

المطلوب شرحته بداخل الملف 

وهو كالأتي 

احتاج المساعده في حفظ الصفحه ولكن احتاج الكتابه فيها والاستطاعه الاختيار من القوائم المنسدله فيها مع حماية البيانات السابقه 

ارجو من الله ثم منك مساعدتي

Book1.xlsm

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

الملف مو ظاهر عندي او البرنامج ..

الله يبارك فيك ويحفظك ويجزاك خير 

شاكر لك أخي مساعدتك .

الله يجزاك خير ويحفظك ويوفقك .

شاكر لك جهودك

أحتاج  الى كود يعطل أو يمنع استخدام زر Ctrl

أتمنى المساعده 

أحسنت والله يوفقك ويجزاك خير

شكراَ جزيلا بارك الله فيك

عندي ملف اكسل واحتاج معادله او كود يظهر لي اليوم الاقرب لتاريخ اليوم 

Book6.xlsx

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

أنا أيضا احتاج تلك المساعده ارجو من اهل الخبره المساعده

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

عاوز مساعدتكم يا شباب هل استطيع اخفاء كذا صف في وقت معين ...

مثال 

من الساعه10:00 الصباح الى الساعه 13:00 الظهر يخفي لي الصفوف A1:A12 

ومن الساعه 14:00 ظهرا الى الساعه 18:00 مساءا يخفي لي الصفوف A13:A22 

وهكذا اتمنى المساعده منكم 

وارجو عدم تجاهلي 

مشكور على تعاونك . جربت الملف بيفتح على اكثر من جهاز 

علما بان الملف بكون حاطه على شبكه مرتبطه باكثر من جهاز على network

ياليت الجميع يحاول يساعدني