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

احمد 505

03 عضو مميز
  • Posts

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

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

مشاركات المكتوبه بواسطه احمد 505

  1. الاستاذ علي

    ما شاء الله تبارك الله عليك

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

    فقط تعديل بسيط

    والمطلوب

    اذا لم يكن هناك تاريخ تخزين في العمود C

    يكون العمود D فارغ تماما

    لان المعادلة تعطيني تاريخ وهمي بالعمود  D

    انظر المرفق

    اشكرك

    3.rar

  2. اخي علي

    تعديل بسيط اخي الكريم اذا كان بالامكان

    اريد التحديد بالمعادلة بحيث اذا كان نوع الصنف مثلا 1

    يكون مدة الخزن 100 يطلع تلقائي

    ولو غيرت الصنف مثلا الى 2 في نفس السطر

    تعطيني المعادلة على طول مدة الخزن 55 تلقائيا وهكذا

     

    الزبدة ربط الصنف بمدة الخزن تلقائيا

     

    وفقك الله لما يحب ويرضى.

  3. 4 ساعات مضت, سليم حاصبيا said:

    الاستاذ سليم

    الله يعطيك العافية

    فعلا الملف الي عملته لي هوه المطلوب وشغال تمام 100% مع التاريخ الميلادي

    بس انا حاط التاريخ الضاهر بالجدول هوه الهجري (و بيسحب من الميلادي)

    1- هل من الممكن ان يكون التضليل حسب التاريخ الهجري الضاهر بالجدول.

    2- انا اريد ان اسحب المعادلة الى اكثر من صف.

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

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

    في المرفق
     الشيت (رسم 1)
    العمود (G) فيه تاريخ البداية
    طبعا العمود (F) فيه عدد الأيام رقماً
    أنا عامل معادلة جاهزة (تاريخ البداية + عدد الأيام)
    النتيجة العمود (H) فيه تاريخ النهاية

    المطلوب

    عمل معادلة وليس كود


    مثلا عدد الأيام 21 يوم
    أريد يتضلل 21 خانة من العمود  (I)  الى العمود  (AL) فيه

    مثال
    عدد الايام 5
    والتاريخ يبدا من 11/08/39

    النهاية حتكون حسب المعطيات 15/08/39

    اريد التضليل باللون الأسود يكون من يوم 11  حتى يوم  15 
    في الخانات الي بجنب تاريخ النهاية
    اتمنى يكون الطلب واضح
    ولكم جزيل الشكر                               

     

    تضليل عدد ايام.rar

  5. السلام عليكم ورحمة الله وبركاته
    اخواني الأعزاء

    بالمرفق كود طويل شوية وشغال تمام 100%  يعمل عند استخدام (ايقونة اختبار)


    بس بيحدث فقط الى الصف 460

    طبعا الكود في الموديول رقم 5

    المطلوب

    1- يكون التحديث على كامل الشيته
    بحيث لو اضفت ناس جدد يكون الكود يحدث بالطريقة الصحيحة وعلى أي صف لو كان في الصف (5000)

    2- اذا بالإمكان تسريع عملية التحديث ( بيستغرق حوالي 15 ثانية )
    ومؤشر الماوس بيرهتز بطريقة ملفته للإنتباه

    انا جهزت الصف 465 بحيث بعد الضغط على ايقونة اختبار يظهر التحديث في المنطقة الخضراء
    وكذلك جهزت الصف 470 بحيث بعد الضغط على ايقونة اختبار يظهر التحديث في المنطقة الخضراء


    اشكركم جميعا                                    

     

    فحص1.rar

  6. استاذ بن علية

    ما شاء الله تبارك الله

    الله يعطيك العافية

    فعلا الملف بدا يعمل بطريقة صحيحة

    بس عندي كم سؤال بارك الله فيك

    1- هل التعديل الي عملته فقط في الموديول رقم 5 فقط

    2- لماذا مؤشر الماوس يهتز اثناء التحديث بشكل ملفت للانتباه

    3- فترة التحديث تأخذ تقريبا حوالي 15 ثانية

    ملاحظة

    لاحظت استاذي الكريم ان الاكواد لا تعمل بعد الصف 460

    اريد ان بكون العمل غير محدد (على كامل الشيته)

    بارك الله فيك استاذي الكريم

    الاخ ناصر

    اتوقع اني شرحت بأبسط صورة استطعتها

    اشكر لك مرورك اخي الحبيب

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

    اساتذتي الكرام

    ارجوا النظر في المرفق

    حيث اني اذا ضغطت على ايقونة اختبار

    تظهر لي رسالة (Run-time'13' Type mismach)

    وحينما اضغط على Debug يظهر لون اصفر على الكود الموجود في (الموديول 5)

    والا ادري ماذا افعل

    ملاحظة

    بدايت العمل كان فقط من السطر 5 الى 8 فقط

    والبرنامج يشتغل تمام

    والان

    اخذت نسخه من المعلومات التي عندي والصقتها

    وهنا صارت المشكلة ( بدأت تظهر الرسالة )

    لان الصفوف اكثر من 8 قد تصل الى 2000 اواكثر.

    ( وجربت الصق فقط من السطر 5 الى 8 فقط من معلوماتي وهنا يطلب امسح الاماكن الفارغة وهيه اساسا فارغة )

    معليش دوشتكم معايه ولكن ليه اكثر من اسبوع وانا احاول والا فائدة.

    اشكركم جميعا.

    فحص.rar

  8. في ‏١٤‏/‏٠٥‏/‏١٤٣٨ at 02:12, احمد 505 said:

     

    الاستاذ ابو البراء

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

    في ‏١٤‏/‏٠٥‏/‏١٤٣٨ at 02:41, ياسر خليل أبو البراء said:

     

    
    Sub Test()
        With ActiveSheet
            .Range("BN4:BN8").Formula = "=IFERROR(IF(OR(BM4="""",L4="""",L4=""1"",L4=""OFF""),"""",CHOOSE(L4,"""",""خطأ"",BM4+366,""خطأ"",BM4+545,""خطأ"",BM4+730)),"""")"
            .Range("BO4:BO8").Formula = "=IFERROR(IF(OR(BM4="""",L4="""",L4=""1"",L4=""OFF""),"""",CHOOSE(L4,"""",""خطأ"",BM4+545,""خطأ"",BM4+730,""خطأ"",BM4+910)),"""")"
            .Range("BN4:BO8").Value = .Range("BN4:BO8").Value
        End With
    End Sub

     

    اواعدلها على العدد الى انا احتاجه

    اقصد (BN4:BN8) هل اتركها الى 8

    او اعدلها مثلا الى 600

    لاني احتاج الى اكثر من العدد 8

    هل اعدلها مثلا الى (BN4:BN1000)

  9. اقتباس

     

    استاذ  أبو عيد

    الله يعطيك العافية

    شرحك ممتاز وواضح والمعادلة شغالة تمام

    انا اقصد

    كيف اعرف ان الرقم

    3   اخذ المدة الدنيا 365   والمدة القصوى 454

    الرقم 3 غير موجود في المعادلة او الكود وكذلك 5  و  7  و  9  و  OFF

    هل المقصود ان الارقام لابد ان تكون في الجدول مرتبه

    هكذا

    المستوى                                                      الدنبا                    القصوى

    3              يكونوا كلهم ورا بعض                       365                       545

    5           ثم                                                 545                       730

    7          ثم                                                  730                       910

    1         ثم                                                    ..                         ..

    OFF    ثم                                                    ..                         ..

     

    من الممكن ان يكون الصف الاول والثاني والثالث مثلا

    تحتوي على الرقم 3

    والصف الرابع يحتوي على OFF

    والصف الخامس يحتوي على الرقم 3

    وهكذا

    وعندي حوالي 600 صف

    معليش تحملني شويه اخي الكريم

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

    اساتذتي الكرام

    ارجوا النظر في المرفق

    حيث اني اذا ضغطت على ايقونة اختبار

    تظهر لي رسالة (Run-time'13' Type mismach)

    وحينما اضغط على Debug يظهر لون اصفر على الكود

    والا ادري ماذا افعل

    اشكركم جميعا.

    فحص.rar

×
×
  • اضف...

Important Information