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

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

مشكور أخي الغالي أبو تراب على مرورك العطر .. بس دخلت بايدك فاضية ..دا كلام يعني !! المرة الجاية تجيب معاك كيلو برتقال وكيلو مانجا ..مش هنتقل عليك كفاية من حضرتك 50 أو 60 كود بس :yes: بارك الله فيك أخي الحبيب ..تقبل تحياتي :fff:

أخي الحبيب جرب الملف التالي .. تم عمل نطاق ديناميكي بالنطاق المراد عمل قائمة منسدلة له باستخدام المعادلة =OFFSET(Data!$A$1,0,0,COUNTA(Data!$A:$A),1) ثم في الشيت Result تم عمل قائمة منسدلة بناءً على النطاق الديناميكي المسمى MyList Test.rar

أخي الحبيب أبو بلقيس أنا مش مدرس رياضيات ، لكن تعال ناخد الموضوع ببساطة كدا وبالبلدي ... الدالة MOD تأتي بباقي القسمة بعد الحصول على رقم صحيح يعني لو قلنا : =MOD(14,3) الناتج هيكون 2 ..إزاي؟ الرقم 3 دا الرقم المقسوم عليه .. لو جبنا مضاعفات الرقم وقلنا : 3 - 6 - 9 - 12 - 15 - 18وهكذا ، ونشوف الرقم بتاعنا بيقع فين ؟ بيقع بعد الـ 12 وقبل الـ 15 .. نشوف أصغر رقم في المضاعفات اللي هو رقم 12 ونجري عملية حسابية بسيطة جداً (الرقم الهدف - أصغر رقم من المضاعفات) يبقا الناتج هيكون (14 - 12 ) = 2 إذاً الناتج هو 2 ****** نيجي بقا للسالب يا كبير نشوف مضاعفات الرقم المقسوم عليه اللي هو 3 .. هنلاقي : 3 - 6 - 9 - 12 - 15 - 18 وهكذا ، ولأن الرقم الهدف بالسالب يبقا هنخلي المضاعفات بالسالب يعني -3 ، -6 ، -9 ، -12 ، -15 طيب نرجع للمعادلة الخاصة بك ونشوف مع بعض : =MOD(-4,3) الرقم الهدف -4 طيب الرقم الهدف بيقع بين -3 ، -6 صح كدا ..نشوف أصغرهم ..أصغرهم رقم -6 وليس -3 خلي بالك لأن السالب في خط الأعداد بيتجه ناحية الشمال فالصفر أكبر من -1 ، والـ -1 أكبر من -2 وهكذا ..بكدا يكون -6 أكبر من -3 .. نأتي لأهم خطوة (الرقم الهدف - أصغر رقم من المضاعفات) دي المعادلة اللي اتفقنا عليها =-4-(-6) فالناتج يكون 2 أرجو أن أكون وفقت في توصيل المعلومة .. وأعتذر لمدرسي الرياضيات إن كنت أخطأ في فهمي

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

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

يرجى إرفاق ملف

الأخ الحبيب والأستاذ القدير أحمد عبد الناصر يشرفني مرورك الكريم بالموضوع بارك الله فيك وجزاك الله خير الجزاء ... النسخة الأولى من المكتبة بعد إضافة أكواد الأخ الجموعي والأخ مختار والأخ أحمد عبد الناصر ... أضفت مجلد باسم Files ليحتوي على المرفقات مع الأكواد التي يلزمها مرفقات فقط .. وسنحاول جاهدين ألا نكثر من المرفقات (للضرورة فقط) ... إليكم الإصدار الأول من المكتبة بعد التنقيح والتصحيح ... Codes Library v1.0.rar

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

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

بارك الله فيك أخي الحبيب الجموعي هكذا يكون العمل ويكون النشاط .. بالإضافة إلى وضع الكود في المشاركة يرجى تحميل المرفق من أول مشاركة ووضع الأكواد بعنوان مناسب ، وليكن العنوان مثلاً (تغيير عنوان الفورم) وعمل شرح لها بشكل مبسط . كما يرجى وضع الكود في الحدث المناسب حتى لا يختلط الأمر على الباحث فيما بعد بهذا الشكل مثلاً Private Sub UserForm_Initialize() UserForm1.Caption = ThisWorkbook.ActiveSheet.Name End Sub

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

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

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

السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar

جرب الكود التالي ليعمل مع أي خلية نشطة Sheets("Sheet1").Range("" & Mid(ActiveCell.Address, 2, 1) & "" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

أخي الحبيب جرب الكود التالي هذا للعمود A يمكنك تغيير العمود كما تريد Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

ارفق ملفك أخي الجموعي حتى يسهل النظر في الحل

بارك الله فيك أخي الغالي أبو تراب وجزيت خيراً على الروائع التي تقدمها كل يوم صراحة أعمال في منتهى الجمال والروعة .. اسمح لي أن أطرح سؤالاً ..ما الداعي لاستحداث الدالة DateGap مع أنها نفس وظيفة الدالة DateDif ؟؟ ونفس النتائج واحدة ونفس الهيكلة في الاستخدام واحدة ؟؟ سؤال محيرني

أخي الكريم جرب في الخلية AC15 المعادلة بالشكل التالي : =IFERROR((U15-T15)/T15*100,"")

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

السلام عليكم أثناء تصفحي بالمنتدى وجدت موضوع مميز جدا والغريب أنني قمت بإضافة مشاركة للموضوع حتى يظهر الموضوع بالصفحة الأولى ، ولكنه لم يظهر ..ثم قمت بعمل مشاركة ثانية وعملت ريفرش للصفحة الرئيسية ولم يظهر أيضاً ... لا أدري ما السبب عموما هذا هو رابط الموضوع ... للاستفادة منه http://www.officena.net/ib/index.php?showtopic=36867&st=0

ارفق ملف بالمعادلة ليتم الشرح لك بكيفية التعديل عليها

موضوع في غاية الروعة ..من الدرر

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