ياسر خليل أبو البراء

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

الكود لا يعطي خطأ ولا يعطي ملفات فقط ينشئ مجلد جديد على الـ D باسم PDF ..جربته أكثر من مرة ولم ينتج عنه شيء.. يا ترى ايه المشكلة؟

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

أخي الحبيب ابن مصر أنا لم أجرب هذه الأكواد من قبل جربت المرفق وأعطاني خطأ في هذا السطر ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=strFileName, _ IgnorePrintAreas:=False ترى ما السبب؟ هل نسخة الأوفيس لها علاقة ؟؟أنا أعمل على أوفيس 2007 ؟ أم أن هناك مكتبة يجب تفعيلها؟

أخي أبو تراب ..الدالة غير منطقية .حيث توجد الدالة Sum أصلا بالإكسيل ولا أجد ميزة لهذه الدالة .. لو أمكن مثال توضيحي لمعرفة مزايا الدالة .. التي تجعلها متميزة عن الدالة المدمجة بالإكسيل قمت بعمل مقارنة بسيطة بين الدالتين أولاً الدالة المدمجة في هذه المعادلة =SUM(1,,,,,1) تعطي ناتج أما عند استخدام نفس المعادلة مع الدالة المستحدثة فتعطي خطأ Value =SumNew(1,,,,,1) بالنسبة لعدد الوسائط الدالة المدمجة Sum تقبل 255 وسيط أما الدالة المستحدثة فتقبل 254 فقط ..إذاً ما المميز في الدالة؟

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

رفعت الراية البيضاء ألا تقرأ المشاركات أخي ياسر ؟؟؟؟؟!!

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

لو كانت مشكلتك في الأسماء ........ وعايز تتعامل مع الأرقام فقط قم بتطبيق المعادلة =AND(ISNUMBER(C2),COUNTIF($B2:$M2,C2)>1) على النطاق بالكامل =$C$2:$M$19

في الخلية L2 ضع المعادلة =SUM(C6:C129)

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

إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح الزاخرة بالشرح تمت إضافة حوالي 20 كود جديد .. Codes Library v1.8.rar

السؤال هل أدت المعادلة في التنسيق الشرطي في الملف المرفق في المشاركة السابقة المطلوب أم لا؟

أخي الحبيب أبو سليمان جرب الملف المرفق تنسيق شرطي.rar

أخي الفاضل في الخلية Z3 اكتب المعادلة بالشكل التالي : =IF($M3=$AL$2,MAX($Z$2:$Z2)+1,"") ثم اسحبها للأسفل وجرب ..

هل اطلعت على كود ابن مصر ؟؟ أعتقد فيه المطلوب

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

الأخ الفاضل شكيب (بالمناسبة يعني ايه شكيب) تسهيلاً عليك قمت بتجميع حلول الأخ الحبيب والأستاذ الكبير بن عليه في المرفق 4 أوراق عمل الورقة الأولى والثانية بالأكواد ، والثالثة بمعادلات الصفيف (حل الكبير بن عليه) ، والورقة الرابعة (الرابحة) بالمعادلات لابن عليه حاجي أيضاً .. تفضل المرفق ومتنساش الدعوة تشملنا إحنا الاتنين Populate According To Number.rar

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

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

أخي الفاضل أبو سليمان يرجى بعد ذلك وضع الكود بين علامتي الكود عند وضع مشاركة من هذه العلامة <> تفضل شرح مبسط للكود / Private Sub Worksheet_Change(ByVal Target As Range) 'يوضع الكود في حدث ورقة العمل ، كليك يمين على اسم الورقة ثم الأمر View Code. 'تعريف المتغير Dim I As Integer 'النطاق الذي سيتم فيه تنفيذ الكود في حالة التعديل في أي خلية من خلاياه If Not Intersect(Target, Range("B2:D27")) Is Nothing Then 'المتغير الذي تم الإعلان عنه يساوي رقم صف الخلية الهدف أي الخلية التي يت التعديل فيها I = Target.Row 'الخلية في العمود الخامس تساوي حاصل ضرب الخلية في العمود الثالث في الخلية في العمود الرابع Range("E" & I).Value = Range("C" & I).Value * Range("D" & I).Value 'إذا كانت الخلية في العمود الثاني ليست فارغة If Range("B" & I).Value <> "" Then 'فإن قيمة الخلية في العمودالثامن تساوي قيمة الخلية في العمود الخامس Range("H" & I).Value = Range("E" & I).Value 'أما إذا كانت فارغة Else 'فإن قيمة الخلية في العمود الثامن تساوي فراغ أي تترك فارغة Range("H" & I).Value = "" End If End If End Sub

بارك الله فيك أخي محمد الريفي تفضل المعادلة التالية لإضافتها في مكتبة المعادلات معادلة لاستخراج عنوان آخر خليه رقمية (أي آخر خلية بها أرقام) في العمود A : =ADDRESS(MATCH(9.99999999999999E+307,A:A),COLUMN(A1)) حيث يمثل الرقم 9.99999999999999E+307 أكبر رقم موجب في الإكسيل ويمثل الجزء التالي رقم آخر صف يحتوي على رقم MATCH(9.99999999999999E+307,A:A) ملحوظة : يمكن للنطاق ألا يكون العمود بالكامل ، يمكن تحديد نطاق محدد مثلاً A1:A100. * تقوم الدالة Match بالبحث عن القيمة الرقمية في آخر العمود مفترضاً أن العمود تم فرزه تصاعدياً ، ولا يقوم بالبحث عن القيم النصية أو القيم الغير رقمية. وللعلم الدالة Match لها بارامتر ثالث وهو اختياري ويخص بطابقة عملية البحث إذا كانت القيمة 0 أما إذا ترك فارغاً كما بالمعادلة فتتم عملية البحث عن الرقم 9.99999999999999E+307 أو أقرب رقم له (أكبر رقم يكون أقل من الرقم في المعادلة) * ملحوظة : المعادلة تعمل بشكل جيد حتى في وجود فراغات (خلايا فارغة) أو وجود أخطاء * إذا لم يكن بالنطاق قيم رقمية فإن الدالة ينتج عنها الخطأ #N/A إذاً المعادلة التالية تقوم بإرجاع آخر صف به قيمة رقمية =MATCH(9.99999999999999E+307,A:A)

جرب الملف المرفق Move Using Enter Till Column F.rar

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

جزيت خيراً أخي الحبيب على كلماتك الرقيقة بارك الله فيك تقبل تحياتي