محمد طاهر

تم تعديل الموضوع باضافة خيار اضافي كحل وسط لمن لا يريد استخدام الاكواد

السلام عليكم احتجت مؤخرا لمراجعة مستندات كثيرة مع فريق عمل اون لاين و اثناء المراجعة الفردية قبل المناقشة، و ايضا أثناء المناقشة أون لاين، كثيرا ما اجتجت للتبديل بين وضعية اظهار و اخفاء التعديلات واظهار المستند النهائي بعد التعديل و اظهار المستند الأصلي و كل منها تتطلب ثلاثة خطوات 1- الذهاب الي قاءمة المراجعة إذا لم تكن هي المفعلة 2- ثم اختيار مربع السرد الخاص باظهار خيارات التعديلات Markup 3- ثم اختيار أحد الخيارات الفرعية، و عليه و نظرا لحاجتي لتكرار استخدام هذه الأوامر كثيرا اثناء المناقشة و اثناء مراجعتي للمستند قبل المناقشة، قمت بتسجيل تلك الاوامر كماكروهات ثم اضافتها فى ايقونات بجانب اوامر المراجعة كما تظهر الصورة ضمن المحموعة المسماة Arafa كما هو موضح بالصورة ، و ذلك لاستخدامها بسهولة و سرعة أكبر بدل عن اختيار قائمة المراجعة ثم مربع السرد ثم احد الخيارات أي ستبدال ثلاثة خطوات بخطوة واحدة و قد وجدت في ذلك توفيرا ملحوظا على الرغم من بساطة الامر ، لذا احببت مشاركة ذلك معكم و الأكواد هي 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 و يمكن أيضا اضافة تلك الاوامر الي قائمة الوصول السريع لكي تكون متاحة عند تفعيل اي قائمة و ذلك عن طريق اختيار الايقون ثم الضغط بالزر الايمن للفأرة و اختيار الاضافة لقائمة الوصول السريع و لمن لا يريد استخدام الاكواد هناك حل وسط بكفاءة أقل قليلاً ، حيث مازلت ستحتاج للضغط مرتين بدل من ثلاثة و لكن بطريقة اسهل و هو عن طريق اصافة الخيار الي قائمة الوصول السريع Quick Access Bar كما هو موضح فى الصورة التالية 1- اختار قائمة المراجعة و ثم مريع السرد الخاص باظهار التعديلات 2- اضغط على الزر الايمن للفأرة 3- اختيار الاضافة علي قائمة الخيارات السريعة Quick Access Toolbar 4- ستتم الاضافة كما هو مبين و لكن كما ذكرت فى هذا الحل ستحتاج عند الاستخدام للنقر مرتين و لكن بطريقة اسهل ودون الحاجة لاختيار القائمة الخاصة بالمراجعة

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

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

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

اللهم اغفر له وارحمه وادخله فسيح جناتك

شكرا علي كلماتكم الطيبة 🌷

يتقدم فريق الموقع و أعضاؤه بخالض العزاء للأخ @مجدى يونس لوفاة والدته اللهم اغفر لها و ارحمها و أدخلها فسيح جناتك إنا لله و إنا إليه راجعون عظم الله أجركم

و هذه المصفوفة من ملفات المساعدة لبرنامج SPSS تساعد فى تعريف انواع المتغيرات فى البرنامج بسهولة

اعرض الملف كود لقلب وضعية بلوكات كاملة طلب مني زميل حل لعكس ترتيب مجموعة من بلوكات البيانات من الوضعية الافقية الي الوضع الرأسي و ذلك دون تغيير وضعية البيانات داخل البلوك الواحد ، كما هو مبين فى الضورة يمتاز الكود بعدم مجدودية عدد البلوكات (يتم الاختيار طبقا للتظليل) و يمكن تعديله بسهولة ليناسب اعداد الاعمدة المختلفة داخل البلوك و ذلك يتعديل قيمة متغير واحد فى الكود. و لكي تستخدم هذا الكود قم اولا بتحديد عدد الأعمدة داخل كل بلوك عن طريق المتغير CC فى الكود و فى المثال هنا عدد أعمدة كل بلوك هو 3 ـ و يمكنك تغييره كما تشاء ثم قم بتظليل كافة البيانات المراد تغيير وضعها على أن تكون عدد الاعمدة المختارة من مضاعفات الرقم المختار لأعمدة كل بلوك ثم شغل الكود Sub PivotBlocks_arafa() Dim r, c, b As Integer Dim g As String cc = 3 ' قم بتعديل هذا الرقم لتغيير عدد الاعمدة الافتراضي فى البلوك الوحد r = Selection.Rows.Count c = Selection.Columns.Count b = c / cc g = ActiveCell.Address For x = 1 To b - 1 Range(ActiveCell.Offset(0, cc * x), ActiveCell.Offset(r - 1, cc * x + cc - 1)).Cut ActiveCell.Offset(r * x - 1 + 1, 0).Activate ActiveSheet.Paste Range(g).Activate Next x End Sub صاحب الملف محمد طاهر تمت الاضافه 07 يول, 2020 الاقسام قسم الإكسيل  

أهلا بك أخي الكريم

شكرا لك اخي الكريم ، و الف مبروك 🌼

السلام عليكم تم تعديل آلية الترقيات السابقة ، حيث تم اضافة شرط لعدد نقاط الاعجاب لتنفيذ الترقية الالية ، كما هو مبين أدناه الدرجة الحالية المشاركات نقاط االاعجاب عضو جديد 01 50 - 02 الأعضاء 100 10 03 عضو مميز 500 50 04 عضو فضي 1000 100 05 عضو ذهبي 1000 500 06عضو ماسي 1000 1000 عند وصول نقاط الاعجاب الي 1000 للعضو الماسي سيتم الترقية الي مجموعة أعضاء الشرف و التي تضم أيضا المكرمين من ممن لهم مساهمات خارج الموقع و ستتغير الدرجة بالترقية للأعلى بعد اول مشاركة للعضو ، و لن يتم تخفيض أي درجات حالية. و تبقي مجموعات الخبراء و فريق الموقع و فريق الموقع السابق و أعضاء الشرف دون تعديل كما سيتم قريباً بإذن الله استحداث درجة خبير مخضرم لتكون الترقية التالية لدرجة خبير و سيتم الاعلان قريبا عن موعد تطبيقها و آلية التطبيق

يتطلب تحليل الانحدار فى برنامج SPSS تحقيق افتراضات متعددة تتنوع بحسب نوع الاختبار و دائما ما يكون أول شرطان يتعلقان بأنواع المتغيرات التابعةو المسنقلة و قد قمت بتلخيص مختصر لانواع المتغيرات الممكن استخدامها فى الجدول التالي باللغتين العربية و الانجليزية المصدر الأساسي : https://statistics.laerd.com/ و يسعدني وجود أي اضافة أو تضحيح من المختصين الجدول باللغة العربية و عذرا اذا كان هناك خطأ فى الترجمة

السلام عليكم مرحبا بك أخت ساجدة فى أوفيسنا و في انتظار الجديد دائما باذن الله 🌼