أ / محمد صالح

شكرا لمرورك الكريم أستاذ ناصر ولا تنس مشاركة الموضوع في كل مكان

شكرا لمرورك الكريم التفعيل يتم ببرامج مثل KMS pico لكن قوانين المنتدى تمنع وضع روابط لها

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم أحبتي في الله اليوم هديتي لإدارة ومشرفي وأعضاء وزوار منتدانا الرائع هدية كبيرة الحجم قليلا (فأنا معروف بسلسلة ما خف وزنه وغلا ثمنه "الماس" ) برنامج أوفيس 365 وهو تحديث أوفيس 2016 بأحدث إصدار 16.0.8431.2110 بصيغة img وهي مثل iso تحميل مباشر من موقع ميكروسوفت (يعني أصلية ومش ملعوب فيها) ويوجد روابط اللغتين اللغة العربية O365ProPlusRetail_ar.img واللغة الإنجليزية O365ProPlusRetail_en.img حجم الاسطوانة الوهمية img حوالي 2.5 جيجابايت والآن مع روابط التحميل اللغة الإنجليزية http://swiftation.com/9612849/mso365en2018 اللغة العربية http://swiftation.com/9612849/mso365ar2018 وفي الأخير لو بخل بهذه المعلومة غيرك ما وصلت إليك فلا تبخل على غيرك بما عرفت وشارك هذه الصفحة قدر استطاعتك فلا خير في كاتم علم ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة

لا يوجد أي تعارض بين إكسل 2016 وأي كود قديم بالعكس الجديد يدعم القديم ويضيف عليه تحسينات إذا لم يتم الإصلاح بعد هذه المحاولات يلزمك إلغاء تثبيت الأوفيس وتثبيت نسخة كاملة

عندي هذا الكود لا يضيف ظلا للدوائر لكن يبدو أنه يوجد شيء غريب في إعدادات الشيت الخاص بك والحل بسيط جدا أضف هذا السطر لوقف الظل V.Shadow.Visible = msoFalse بعد السطر V.Line.Weight = 1.9 ليصبح الكود كاملا بهذه الصورة Sub Circles1() Dim C As Range, MyRng As Range, V As Shape Dim x As Integer, R As Integer R = 5 ' صف النهاية الصغرى Set MyRng = Range("c6:x130") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها Application.ScreenUpdating = False Call DeletingShp On Error Resume Next For Each C In MyRng If C.Value = "" Then GoTo 2 If C.Value < Cells(R, C.Column).Value Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 2, C.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.9 V.Shadow.Visible = msoFalse ElseIf C.Offset(0, 1).Value = "دون المستوى" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeRectangle, C.Left + 1, C.Top + 1, C.Width - 2, C.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 4 V.Line.Weight = 1.9 V.Shadow.Visible = msoFalse End If 2 Next Application.ScreenUpdating = True MsgBox "تم إضافة الدوائر بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub بالتوفيق

تفضل أخي الكريم تم اختصار الكود وتسهيله ليقوم بالمهمة المطلوبة Sub Circles1() Dim C As Range, MyRng As Range, V As Shape Dim x As Integer, R As Integer R = 5 ' صف النهاية الصغرى Set MyRng = Range("c6:x130") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها Application.ScreenUpdating = False Call DeletingShp On Error Resume Next For Each C In MyRng If C.Value = "" Then GoTo 2 If C.Value < Cells(R, C.Column).Value Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 2, C.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.9 ElseIf C.Offset(0, 1).Value = "دون المستوى" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeRectangle, C.Left + 1, C.Top + 1, C.Width - 2, C.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 4 V.Line.Weight = 1.9 End If 2 Next Application.ScreenUpdating = True MsgBox "تم إضافة الدوائر بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub وفقنا الله وإياكم لكل خير

بعد تجربة ملف آخر ويعمل على 2016 تكون المشكلة في الملف لكن إذا لم يعمل أي ملف به أكواد تكون المشكلة في نسخة الأوفيس وتحتاج لإلغاء تثبيتها وتثبيت نسخة كاملة

هل يعمل ملف آخر به أكواد على نفس الجهاز الذي لا يعمل عليه ملفك؟

تم تعديل مرفقات المشاركة الأولى وإضافة ساعة عقارب وتعديل الكود وتطويره بصورة أكثر احترافية أخي الكريم عبده أحمد الكود يوضع في موديول جديد ويوجد في الكود الخلية التي تظهر فيها الساعة range("d1") غيرها إلى range("a1")

حتى الآن لم يتضح سؤالك لي هل ما زال الكود لا يعمل حتى بعد ضبط خيارات الماكرو كما تم التوضيح سابقا؟! ربما تحتاج لأن تحكي بالتفصيل الممل ما يحدث معك في فتح نفس الملف على أكثر من إصدار حتى نتوصل لسبب المشكلة

هل تقصد أن الملف يحتوي على أكواد ولا يتم تنفيذها عند فتح الملف؟ إذا كان الأمر كذلك فيجب الضغط على زر enable content أو تمكين المحتوى ليتم تفعيل الماكرو وربما يحتاج لضبط الخيارات الخاصة بالماكرو File ---> options ---> trust center ---> trust center settings ---> macro settings إلى الخيار الثاني

اعرض الملف بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته موعدنا اليوم مع معلومة مفيدة جدا وخفيفة جدا ومهمة جدا في نفس الوقت وهي تصميم بدائل دالة TEXTJOIN الموجودة في اكسل 2016 وما بعده لجميع إصدارات إكسل لأنها دالة معرفة UDF . لمن يريد استخدام مزايا إكسل 2016 في جميع إصدارات إكسل بداية من 2003 و 2007 و 2010 و 2016 و 2019 دالة احترافية لدمج النصوص مع وضع فاصل بين قيم الخلايا وتجاهل الخلايا الفارغة mastextjoin بدائل textjoin الموجودة في إكسل 2016 وما بعده اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا #a1mas #ostazmas #textjoin لماذا نستعمل دالة textjoin ؟ نبدأ أولا بمعرفة أن هذه الدالة توجد في أوفيس 2016 وما بعده ( أوفيس 365) وهي دالة لدمج النصوص مع تجاهل الخلايا الفارغة وعدم تكرار الفاصل في حالة إذا كانت الخلية فارغة. ولها 4 وسيطات: والصورة العامة لها هي: TEXTJOIN(delimiter, ignore_empty, text1, [text2], …) delemiter محدِد (مطلوبة) عبارة عن سلسلة نصية، إما أن تكون فارغة أو تكون حرفاً واحداً أو أكثر محاطاً بعلامات الاقتباس المزدوجة أو مرجعاً إلى سلسلة نصية صالحة. إذا تم إدخال رقم، فسيُعامل كنص. ignore_empty (مطلوبة) إذا كانت TRUE، فسيتم تجاهل الخلايا الفارغة. text1 (مطلوبة) هي العنصر النصي المطلوب دمجه. عبارة عن سلسلة نصية أو صفيف من السلاسل مثل نطاق من الخلايا. [text2, ...] (اختيارية) هي العناصر النصية الإضافية المطلوب دمجها. قد يكون هناك حد أقصى يبلغ 252 من الوسيطات النصية للعناصر النصية بما في ذلك text1. يمكن أن يكون كل عنصر منها عبارة عن سلسلة أو صفيف من السلاسل مثل نطاق من الخلايا. وإليكم هذا الفيديو لشرح الدالة وتوضيح كيفية استخدامها في إكسل 2016 وما البدائل لدالة textjoin في إكسل 2013 و 2010 و 2007 و 2003 وهي دالة mastextjoin ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك صاحب الملف أ / محمد صالح تمت الاضافه 26 ينا, 2018 الاقسام قسم الإكسيل  

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

معلومة جميلة يا بشمهندس أستخدمها في فصل النصوص إلى أعمدة لكن تجربتها مع المعادلة جديدة لعل يكون هذا هو المطلوب

رجاء التوضيح أكثر ما استعمالها؟ بالتفصيل حتى نتمكن من الوصول لفكرة تؤدي الغرض

شكرا لمروركم الكريم أحبابي نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

جرب تغيير اتجاه الكتابة في الخلايا إلى من اليسار لليمين

بعد إذن الأساتذة ولإثراء الموضوع إذا كان فهمي للمطلوب صحيحا فيكفي تغيير تنسيق الخلية إلى dddd ليظهر التاريخ باسم اليوم

أخي الكريم بقليل من البحث كنت ستصل إلى هذا الموضوع

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

أخي الكريم مراد المثل يقول: لا تعطني سمكة ولكن علمني كيف أصطاد وبالفعل قدم لك الأساتذة السمكة وفن الصيد لكن اعذرني لم تحاول أن تجهد نفسك فيما قدموه ******** فشرح الدالة الأولى من الأستاذ سليم (سلمه الله من كل سوء) =SUMPRODUCT(--($B$7:$B$21=$B$4),--($C$7:$C$21>0),$C$7:$C$21) تعني جمع المدى الأخير c1:c21 إذا تحقق شرط تساوي النطاق من b7:b21 بقيمة الخلية b4 وكذلك بشرط أن تكون قيمة النطاق c7:c21 أكبر من صفر ويمكنك أيضا إضافة الشرط الثالث بنفس الطريقة بإضافة فاصلة ثم -- ثم المدى الذي به أسماء العملاء ثم = ثم الخلية التي بها العميل المطلوب ************** وشرح دالة البشمهندس محمد (أعانه الله على فعل الخير) =SUMIFS($C$7:$C$21,$B$7:$B$21,B24,$C$7:$C$21,">0") تعني جمع المدى الأول ثم فاصلة ثم المدى الخاص بالتاريخ ثم فاصلة ثم شرط التاريخ وهكذا المدى ثم الشرط وإن تعددت الشروط ===== جرب وأخبرنا بالنتيجة

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

شكرا لتواصلك أخي الكريم إن شاء الله سيتم فتح موضوع جديد بهذا الخصوص ولكن لم تخبرنا برأيك في الموضوع المنشور

بسم الله الرحمن الرحيم كيف الحال أحبابي في الله إن شاء الله بخير وسعادة ورضا كل عام أنتم جميعا بخير نلتقي من جديد في شهر ميلاد سيد الخلق وهديتي لكم بمناسبة المولد النبوي الشريف هي ********** بناء على طلب الأخ الفاضل @عبدالرحمن وسلمى قمت بعمل دالة معرفة لجلب ناتج التفقيط الموجود في صقحتي الشخصية فس موقع أوفيسنا https://officena.net/team/mas/tafkeet/ إلى ملف إكسل أو أكسس بشرط الاتصال بالانترنت ============== الجميل في الصفحة أنها تراعي بإذن الله كل قواعد صياغة العدد في اللغة العربية ولا تحتوي على أخطاء إملائية ولا نحوية وتمت برمجتها بلغة php لأني لم أجد من المرونة في لغة فيجوال بيسك للتطبيقات vba ما يسمح بنفس البرمجة المستخدمة في لغة الويب php لذا تم التحايل على الأمر بكود يقوم بطلب الصفحة الخاصة بالتفقيط وتمرير البيانات الخاصة بنا من صفحة الإكسل إلى الموقع ثم يسجل ما يعود به الموقع في الخلية ============ ويمكن الاستفادة من الكود في جلب بيانات أي صفحة من الانترنت عن طريقة vba والآن أترككم مع الملف التفقيط من الانترنت.rar