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

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

و هذه المصفوفة من ملفات المساعدة لبرنامج 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/ و يسعدني وجود أي اضافة أو تضحيح من المختصين الجدول باللغة العربية و عذرا اذا كان هناك خطأ فى الترجمة

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

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

عادة ما تتضمن نتائج التحاليل الاحصائية مصفوفة الارتباط التي تبين درجة الارتباط بين المتغيرات التي نجدها ممثلة فى رؤوس الأعمدة و الصفوف و تكون هذه المصفوفة صعبة القراءة اذا تركت دون تنقيح ، و أحد خطوات التنقيح المتعارف عليها هو مسح محتوى احد شطري المصفوفة لتكون اكثر وضوحا حيث ان الشطران يقدمات نفس المعلومة نماما فمعامل الارتباط بين س و ص = 0.5 يعني تماما ان معامل الارتباط بين ص و س = 0.5 و بالتالي وجود شطران للمصفوفة لا يضيف معلومة و بالطبع هناك من يحبذ ترك الشطرين ، و انا مع الرأي الأول لذا أعددت هذا الكود و للتوضيح هذا هو الوضع قبل حذف احد الشطرين و هذا بعد الحذف و للحصول على ذلك قم باختيار مساحة البيانات كاملة دون رؤوس الصفوف و الاعمدة و شغل الكود التالي Sub Correlation_Clear() ' ' delelte matrix upper half & also diagonal Application.ScreenUpdating = False Dim myrow As Long, origraw As Long Dim mycol As Long, oricol As Long myrow = Selection.Rows.Count origraw = myrow mycol = Selection.Columns.Count oricol = myrow ActiveCell.Select 'MsgBox MyRow For i = 0 To myrow For j = i + 1 To mycol ActiveCell.Offset(i, j) = "" Application.StatusBar = "Clearing ...." & _ Format(i / origraw, "0.0%") & " Please Wait......." Next j Next i For i = 0 To myrow - 1 With ActiveCell.Offset(i, i).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -4.99893185216834E-02 End With With ActiveCell.Offset(i, i) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Next i Application.ScreenUpdating = True Application.StatusBar = False End Sub مرقق الملف للتجربة Clear-correlation.xlsm موضوع مرتبط يمكن الاستفادة منه فى الخطوة التالية للتجهيز و هي تحويل المصفوفة لجدول مقارن ، لمن أراد كود لتحويل مصفوفة إلى عمود واحد رأسي

السلام عليكم الطريقة لعمل ذلك هي كتابة او تسجيل ماكرو و الاسهل طبعا التسجيل ، فقط بتسجيل ماكرو و قم بتنفيذ اوامر الطباعة كما تريدها، ثم اوقف التسجيل و بعد ذلك يمكنك تشغيل الماكرو لاعاد تنفيذ الأمر و للتسجيل اذهب الي قائمة المطور Developer

و اذا تقصد اسم الدخول user name راجع هذا الرابط ، به شرح لتغيير اسم الدخول و الاسم الحقيقي أسماء الدخول ، و الأسماء الحقيقة للأعضاء

السلام عليكم هذا الموضوع يختص بالتصنيف CLASSIFICATION و المطلوب تحديد مجموعات التصنيف اما ما تشير اليه فهو يسمي تجميع CLUSTERING و لا يأتي بالبساطة السابقة ـ و انما يتطلب تطبيقات احصائية او تحليل رسومي للارقام و الله اعلم ما سبق مجرد طريقة للتصنيف يرجي مراجعة هذا الموضوع لتوضيح الفرق

اذا لدينا مجموعة من البيانات و ليكن عددها 394 قراءة مثلا و نود تصنيفها الي مجموعات و مطلوب استنتاج عدد المجموعات و مجال كل منها فان احدى الطرق المفيدة هي طريقة two to the k rule طريقة 2 أس K وفيها نبحث عن أكبر K ممكنة بحيث تكون 2 أس K أقل من عدد القراءات ففي حالة مثالنا هنا 2 أس 8 = 256 (أقل من عدد السجلات الذي هو 394) مقبول و 2 أس 9 = 512 (أكبر من عدد السجلات الذي هو 394) يرفض اذا تكون K = 8 أي أن لدينا 8 مجموعات و الان نريد معرفة نطاق هذه المجموعات الثمانية Interval = (H-L)/ K أي محسب الفرق بين أكبر قراءة و أضغر قراءة ثم نقسمه علي K مثلا لو كانت اكبر قراءة = 900 و اضغر قراءة = 50 فيكون سعة المجموعة = 106.25 على الاقل ، فيتم التقريب الي 110 و بذلك تكون المجموعات الثمانية كما يلي: From To 1 50 160 2 160 270 3 270 380 4 380 490 5 490 600 6 600 710 7 710 820 8 820 930 Clustering-Intervals rule.xlsx

اذا اردت اعدناه للقسم المفتوح و لكن علي ما اعلم القسم المفتوح لا يتابعه الكثيرين بعكس القسم هنا

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

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

السلام عليكم أهلا بك أخي الكريم يمكنك ايضا نشر الفيديوهات التعليمية فى جروب الفيس بوك https://www.facebook.com/groups/officena/

السلام عليكم في الغالب جهازك قد اصيب بفيروس الفدية ابحث عن حل له في الانترنت او مع متخصصين في الحماية مثال https://sensorstechforum.com/pezi-virus-file/ هذا مجرد مثال ولا أعرف مصداقية الموقع فلست متخصصا في الحماية ملاحظة : تم حذف الملف المرفق مع الطلب بصورة احترازية، واقترح عدم مشاركة ملفات من جهازك مع احد حاليا

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

السلام عليكم هو فقط لونه رصاصي و لكنه نشط ـ جرب الضغط عليه و يمكنك ايضا اضافة الاسم الحقيقي

الملف له استخدمات طريفة ـ مثلا أن ترسل الكلام مقلوب لاختبار من يستطيع قراءته فى جروب او شات مثلا انأ ةملك ةباتكب هروضح لجسي بوتكملا مالكلا ارقي فراع يللا هي معكوس اللي عارف يقرا الكلام المكتوب يسجل حضوره بكتابة كلمة أنا لتشغيل الماكرو فى الملف اكتب اي عبارة ثم قم باختيارها بالماوس ثم اضغط ALT+ F8 و شغل الماكرو ستظهر العبارة معكوسة الحروف كما يلي

السلام عليكم بمراجعة ملف الاكسيل المشار اليه، وجدت به دالة جاهزة اسمها StrReverse تقوم بعكس النص باستخدام VBA ، وهي كافية لاداء المطلوب و تعمل ايضا فى الوورد الدالة من موقع ميكروسوفت و عليه قمت بتطبيقها فى الوورد ، و عملت معي جداً فقط قبل تشغيل الكود قم باختيار النص المطلوب عكسه، حيث يعمل الكود الذى أعددته على النص المختار فقط Sub reversit() Selection.Text = StrReverse(Selection.Text) End Sub مرفق الملف Word-Reverse.docm

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

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