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

محمد طاهر عرفه

إدارة الموقع
  • Posts

    8,498
  • تاريخ الانضمام

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

  • Days Won

    36

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

  1. وجدت هذا الملف منشور على النت

     

    يبدو لي من النظرة المبدئية أن الملف سهل ممتنع ، يقوم بحساب و رسم الشبكة بطريقة المسار الحرج بناء على التقدير ثلاثي النطاق

    و يمكن عدم تطبيق التقدير ثلاثي النقاط بوضح الزمن مباشرة فى عمود زمن النشاط   (L)   بدلا من المعادلة التي تحسبه يناء على التقدير المتشاءم و المتفائل و الاكثر توقعها

    critical-path-method.xlsx

    المصدر

    • Like 3
    • Thanks 1
  2. السلام عليكم

    استشارني صديق بشأن معادلة لبيان حالة سجل المتابعة لتبيان اذا ما كان تم انجازه قبل أو في أو بعد الوقت أو ما زال قيد الانجاز

    كما هو موضح فى الشكل و الملف المرفق، فاعددت له المثال المرفق عن طريق المعادلات

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

    
    =IF(D3=E3,"بحسب المخطط",IF(E3>D3,"متأخر",IF(E3="",IF(D3<TODAY(),"فات الوقت","قيد الإنجاز"),"متقدم")))
    =IF(D13=E13,"On Time",IF(E13>D13,"Delayed",IF(E13="",IF(D13<TODAY(),"Overdue","In Process"),"Ahead")))

    مرفق الملف LogTracking.xlsx

    image.png.497affe503348ae651236d984462e5ce.png

     

     

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

    أشكرك على مشاركتك أخي الكريم، و هي فرصة لكي أوضح ما يلي و هو ليس تحديدا ردا على مشاركتك ولكن الشيء بالشيء يذكر:

    إن نسبة المشاركين الفاعلين فى المنتدى قليلة جدا بالفعل ، و لكن من ناحية أخرى فبدون اسئلة لا توجد اجابات و بالتالي من الجيد تمييز من يتواجدون و ينعشون المنتدى بأسئلتهم هذا من ناحية ، و من ناحية أخرى فهذه الطريقة من الترقيات هي الأسهل بالنسبة لفريق الموقع ، فهنا لا يوجد حكم شخصي و انما هي قاعدة متفق عليها ، من حيث عدد المشاركات، و قد تم اضافة معيار اخر لتكون الترقية اكثر موضوعية و هو نقاط الاعجاب ، و لكن لم يتم تفعليه بالكامل بعد.كما انه لن ينطبق على ما سبق منحه من درجات و انما على الترقيات الجديدة فقط. و يتبقي فقط الترقية لمجموعة الخبراء و فريق الموقع هي التي ليست آلية.

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

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

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

    اما بالنسبة لمشاركاتك فاعتقد اضافة نقاط الاعجاب الي الترقيات الالية قد حلت جزء من المشكلة، و لكنها لن تطبق بأثر رجعي

     

     

    • Like 2
  4. كما انه من فترة تم افتتاح اقسام تحص ما يتعلق بالبحث العلمي بالذكاء الاصطناعي و برمجته و البيانات الضخمة ، و منها قسم للبايثون و لكن للاسف لم يحدث فيها تفاعل ملحوظ حتى الان

     

    https://www.officena.net/ib/forum/174-البحث-العلمي-و-علوم-البيانات/

     

     

     

    • Like 1
    • Thanks 1
  5. السلام عليكم

     

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

    https://ar.wikipedia.org/wiki/بايثون_(لغة_برمجة)

     

    اما الاكسيس فهو احد اشهر تطبيقات قواعد البيانات ـ و و هو ليس تطبيق مجاني و جزء من حزمة الاوفس لشركة مايكروسوفت ، و يقبل ايضا البرمجة بلغة فيجوال بيزيك التطبيقات

    https://ar.wikipedia.org/wiki/مايكروسوفت_أكسس

     

    لذا فلبس هناك مقارنة بالمعنى المفهوم ، و انما كل منها ميسر لما أنشء من اجله

     

    • Like 2
  6. السلام عليكم

    واجهتني مشكلة اخري فى الملفات الكبيرة ، و هى أنه عند التبديل بين الثلاثة وضعيات ، يتغير موقع المؤشر ، خاصة عندما تكون البيانات ضمن جداول

    فمثلا و انت تراجع البند رقم 200 ، عند اختيار اظهار النسخة الاصلية ينتقل المؤشر للبند 140 مثلا ، حيث أنه يبدو ان ذلك يعتمد على عدد الاسطر او موقع المؤشر ، دون مراعاة النص الظاهر ، ففي حالة الوضع الاصلي يكون عدد الاسطر اقل بالطبع و بالتالي تجد المؤشر فى مكان مختلف

     

     و الحل هو حفظ مكان المؤشر قبل تبديل طريقة الاظهار

    Dim currentPosition As Range
    Set currentPosition = Selection.Range 

    و العودة له فى نهاية كل كود

    currentPosition.Select

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

    Application.ScreenUpdating = False
    Application.ScreenUpdating = True

    و عليه تكون الاكواد النهائية

    Sub Markup_No()
    ' Hide all Markups
    
    Application.ScreenUpdating = False 
    Dim currentPosition As Range
    Set currentPosition = Selection.Range 
    
        With ActiveWindow.View.RevisionsFilter
            .Markup = wdRevisionsMarkupNone
            .View = wdRevisionsViewFinal
        End With
        
    currentPosition.Select
    Application.ScreenUpdating = True
    
    End Sub
    
    
    Sub Markup_All()
    ' Show All Markup
    
    Application.ScreenUpdating = False 
    Dim currentPosition As Range
    Set currentPosition = Selection.Range 
        
        With ActiveWindow.View.RevisionsFilter
            .Markup = wdRevisionsMarkupAll
            .View = wdRevisionsViewFinal
        End With
        
    currentPosition.Select
    Application.ScreenUpdating = True
        
    End Sub
    
    
    Sub Markup_Original()
    ' Markup_Original Macro
    
    Application.ScreenUpdating = False 
    Dim currentPosition As Range
    Set currentPosition = Selection.Range 
       
       With ActiveWindow.View.RevisionsFilter
            .Markup = wdRevisionsMarkupNone
            .View = wdRevisionsViewOriginal
        End With
        
    currentPosition.Select
    Application.ScreenUpdating = True
        
    End Sub

     

    • Like 1
  7.  الخيار الخاص باشعار القراءة متروك للمستقبل،  اما ان يسمح باخبارك و اما لا

    اما خيار الاشعار بالوصول فيعتمد على اعدادات السيرفر الذي يستقبل الرسالة ، و فى أغلب الاحيان يصل الاشعار بالوصول ،

    وفى كثير من الاحيان  اذا لم تصل الرسالة لوجود خطأ فى العنوان مثلا ، ففي غالب الامر سيصلك رسالة اشعار بذلك

  8. 6 ساعات مضت, محمد أبوعبدالله said:

    اختيار افضل اجابة يجب ان يختار كاتب الموضوع مشاركة غيره كافضل اجابة وليس رده هو نفسه

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

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

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

  9. في ٢٨‏/٨‏/٢٠٢٠ at 03:43, محمد سلامة said:

    والموقع يعمل المشكلة فقط يظهر تحذير بجوار رابط الموقع

    السلام عليكم

    يرجى ضغط CTR+F5  لتحديث الصفحات المخزنة و ان لم يكن افراغ الكاش من المتصفح

    • Like 1
  10. السلام عليكم

    المشكلة كانت فقط فى شهادة الحماية ، و تم حلها بفضل الله

    14 ساعات مضت, محمد أبوعبدالله said:

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

    اعتقد هذا صعب تحقيقه لان تنزيل النسخة الواحدة يستغرق وقت طويل بسبب حجم الموقع 🙂

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

    • Like 2
    • Thanks 3
  11. السلام عليكم

    احتجت مؤخرا لمراجعة مستندات كثيرة مع فريق عمل اون لاين

    و اثناء المراجعة الفردية قبل المناقشة، و ايضا أثناء المناقشة أون لاين،  كثيرا ما اجتجت للتبديل بين وضعية اظهار و اخفاء التعديلات واظهار المستند النهائي بعد التعديل و اظهار المستند الأصلي و كل منها تتطلب ثلاثة خطوات

    1-  الذهاب الي قاءمة المراجعة إذا لم تكن هي المفعلة

    2-  ثم اختيار مربع السرد الخاص باظهار خيارات التعديلات Markup 

    3-  ثم اختيار أحد الخيارات الفرعية،

     

    image.png.ed7ecc4b78678d68065f192780887780.png

     

    و عليه و نظرا لحاجتي لتكرار استخدام هذه الأوامر كثيرا اثناء المناقشة و اثناء مراجعتي للمستند قبل المناقشة، قمت بتسجيل تلك الاوامر كماكروهات ثم اضافتها فى ايقونات بجانب اوامر المراجعة كما تظهر الصورة ضمن المحموعة المسماة Arafa كما هو موضح بالصورة ، و ذلك لاستخدامها بسهولة و سرعة أكبر بدل عن اختيار قائمة المراجعة ثم مربع السرد ثم احد الخيارات

    أي ستبدال ثلاثة خطوات بخطوة واحدة

     

    image.png.4dfcb813b7219266be33c87a326c4ada.png

    و قد وجدت في ذلك توفيرا ملحوظا على الرغم من بساطة الامر ، لذا احببت مشاركة ذلك معكم

    و الأكواد هي

    Sub Markup_No()
    ' Hide all Markups
        With ActiveWindow.View.RevisionsFilter
            .Markup = wdRevisionsMarkupNone
            .View = wdRevisionsViewFinal
        End With
    End Sub
    Sub Markup_All()
    ' Show All Markup
        With ActiveWindow.View.RevisionsFilter
            .Markup = wdRevisionsMarkupAll
            .View = wdRevisionsViewFinal
        End With
    End Sub
    Sub Markup_Original()
    ' Markup_Original Macro
        With ActiveWindow.View.RevisionsFilter
            .Markup = wdRevisionsMarkupNone
            .View = wdRevisionsViewOriginal
        End With
    End Sub

    و يمكن أيضا اضافة تلك الاوامر الي قائمة الوصول السريع لكي تكون متاحة عند تفعيل اي قائمة

    و ذلك عن طريق اختيار الايقون ثم الضغط بالزر الايمن للفأرة و اختيار الاضافة لقائمة الوصول السريع

    image.png.aff87b228236bd6a4a461a50cb4410bf.png

     

    image.png.d5663ce3993fa98bbfa220d5a7b509ce.png

     

    و لمن لا يريد استخدام الاكواد هناك حل وسط بكفاءة أقل قليلاً ، حيث مازلت ستحتاج للضغط مرتين بدل من ثلاثة و لكن بطريقة اسهل

    و هو عن طريق اصافة الخيار الي قائمة الوصول السريع Quick Access Bar كما هو موضح فى الصورة التالية

    1- اختار قائمة المراجعة و ثم مريع السرد الخاص باظهار التعديلات

    2- اضغط على الزر الايمن للفأرة

    3- اختيار الاضافة علي قائمة الخيارات السريعة Quick Access Toolbar

    4- ستتم الاضافة كما هو مبين

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

    image.png.0333b642fc919efa45f9683b26a6f750.png

     

     

    • Like 3
  12. في ٥‏/٧‏/٢٠٢٠ at 20:09, محمد سلامة said:

    لقد لاحظت أن الاعضاء علي درجة خبير ممن تعدوا ١٠٠٠ نقاطه اعجاب تحولوا الي العضوية الشرفية وحضرتم قولت أن مفيش تعديل لفريق الموقع والخبراء 

    تحياتي

    السلام عليكم

    بالفعل هناك خلل فى نظام الترقيات بالنقاط فى نسخة المنتدى

    و افاد الدعم الفني بانه سيتم تداركه فى الاصدار القادم ،و عليه فقد تم ايقاف نظام الترقية بالنقاط بصورة مؤقتة لحين صدور التحديث القادم لنسخة المنتدى

    و باذن الله نخاول يدويا تعديل  درجات من تأثروا بهذا الخطأ

    • Like 2
×
×
  • اضف...

Important Information