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

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

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

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

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

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

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

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

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

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

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

أخي الكريم أحمد ديدو بارك الله فيك واعلم أنني مثلي مثل غيري مجرد متعلم مجتهد ولست بعلامة كما يعتقد البعض ، وأنا أتعلم الجديد كل يوم وما زلت أتعلم وصدقني مرحلة التعلم لمن يعرف هي مرحلة غير منتهية على الإطلاق لابد أن تتحلى بالصبر .. لقد مكثت بالأمس في كتابة كود واستغرق مني أكثر من 10 ساعات (في المحاولات المستميتة للوصول لحل) .. هكذا يجب أن تتعلم إذا كنت تريد أن تتعلم في هذا المجال ، ولكل مجتهد نصيب .. أحب في ردودي دائماً أن أفصل الأمور وأوضحها تمام التوضيح ، وذلك ليستفيد الجميع ونرتقي ..كفانا الوقوف عند البدايات (الكثير يبدأ ولا يكمل المسيرة) إذ أن التعلم يحتاج إلى مثابرة وصبر وإرادة ومحاولات مستمرة حتى لو باءت تلك المحاولات بالفشل آلاف المرات أعتذر في الإسهاب في حديثى .. عندما قدمت لك رد توقعت أنك لا تعرف كيفية التعامل مع محرر الأكواد فأرشدتك إلى موضوع هااااااام جداً والكل يعلم بأهميته إذ لابدمن معرفة الأمور الأساسية للتعامل مع محرر الأكواد ومع الحلول التي تقدم لك في الموضوع قام أخونا الحبيب أبو حنين بوضع كود منذ قليل .. قم بنسخ الكود واذهب لمحرر الأكواد وأدرج موديول جديد وضع الكود به ، ثم ارجع لورقة العمل واضغط Alt + F8 ليظهر لك قائمة بأسماء الإجراءات الفرعية لديك .. ابحث عن اسم الإجراء الفرعي (الذي يأتي بعد كلمة Sub) .. ابحث عن الاسم ثم انقر Run .... أو كما تعلمت قم برسم زر ليرتبط تنفيذ الكود بالنقر عليه ...(أمور قد تعرفها وأوضحها لمن لا يعرفها) .. وكل ذلك من أجل نرتقي ونسمو ونصل لدرجة الاحتراف سوياً وللعلم أنا لا أحب أن أرفق ملف وحسب ، فهذا أيسر وأسهل وأقل في الوقت والجهد ، ولكنه لن يفيد الكثيرين ... لابد من أن يتعلم الجميع تطبيق الحلول بأنفسهم أنا أقدم الكود والخطوات اللازمة لتنفيذه إذا لزم الأمر ، وأوضح كافة الجوانب المرتبطة وأحياناً كثيرة أقدم شرح تفصيلي للكود ************************* بالنسبة للكود الذي قدمته إليك شرح سريع له لكي تعرف ماذا يفعل الكود بالضبط .. وليس مجرد Done فقط (وللعلم أنا أحب استخدام سطر يظهر رسالة للمستخدم ليعرف المستخدم أن الكود قد انتهى من تنفيذ السطور الموجودة فيه .. فهذا أمر مألوف بالنسبة لي وليست مجرد رسالة إنما لها غرض وهدف .. كما أوضحت ) ** نأتي للكود : قمت بتعيين ورقة عمل وأسندته لمتغير اسمه Ws وعينت قيمة له ليحمل اسم ورقة العمل الرئيسية التي تحتوي على البيانات وهي ورقة عمل "اليومية" ** ومتغير آخر باسم Lr لمعرفة رقم آخر صف يحتوي على بيانات ووجدت أن العمود الأول يحتوي على تواريخ كثيرة جداً وليس هناك بيانات مقابلة فخمنت على عمود آخر وهو العمود رقم 9 أي العمود I لمعرفة رقم آخر صف من خلاله (من هنا يمكنك إذا فهمت تلك النقطة أن تغير الرقم 9 إلى رقم العمود المطلوب التعامل معه لمعرفة آخر صف فإذا كنت تنوي معرفة رقم آخر صف من خلال العمود الأول فقم بتغيير الرقم 9 إلى 1 والذي يمثل العمود الأول ، وذلك التعديل يكون في السطر الذي يقوم بتعيين قيمة للمتغير Lr ** وضعت شرط بأن تكون الخلية B1 في ورقة اليومية لا تساوي فراغ (أي ليست فارغة) ، وشرط آخر أن تكون تاريخ .. وإلا فلن ينفذ الكود وسيتم الخروج من الإجراء بدون تنفيذ بقية الأسطر ... ** ثم وضعت قيمة للمتغير X بحيث يساوي رقم الشهر في الخلية مضافاً إليه 2 للوصول لورقة العمل المناسبة ، فإذا كان الشهر سبتمبر فإن قيمة المتغير X تساوي 9 + 2 أي تساوي رقم 11 (وذلك للوصول للورقة التي سيتم الترحيل إليها .. وستكون في هذه الحالة هي الورقة رقم 11 ألا وهي ورقة سبتمبر) ** مسح النطاق الذي ستوضع فيه البيانات في ورقة العمل الهدف (ورقة سبتمبر على سبيل المثال) ** ثم سطر النسخ للبيانات من ورقة اليومية إلى ورقة العمل الهدف ، وأخيراً مسح البيانات من ورقة اليومية .. إذاً كل ما عليك أن تقوم بوضع تاريخ في الخلية B1 ليتم تنفيذ الكود ثم تنفذ الكود وترى ورقة العمل الهدف (ويستحب أن تنظر لورقة العمل الهدف قبل تنفيذ الكود وبعد تنفيذ الكود لتعرف ما إذا كان الكود يقوم بعمله أم أنه يعطي رسالة Done فقط )) والسلام عليكم ورحمة الله وبركاته

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

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

المشاركة الأخيرة أعطيتك رابط فيه شرح لأساسيات التعامل مع محرر الأكواد (أعتذر عن الإضافة الزائدة عن حاجتك والتي تراها ليس لها علاقة بالموضوع) المشاركة القبل الأخيرة فيها رابط والرابط سيوصلك إلى كود ، قم بنسخ الكود إلى ملفك وجربه ... أي أن الكود تم إدراجه ، ولكن يبدو أنك لا تستطيع الوصول إليه ودا ملف شرح فيديو إزاي تتعامل مع الروابط .. شوف الفيديو لتعرف الطريقة 2016-09-07_13-49-29.rar

عمل رائع أبو حنين .. بصراحة ممتاز ممتاز ممتاز ( 3 ممتاز = 1 روعة) يا ريت بقا تعمل لنا على نفس الملف إمكانية الاختيار من أكثر من عنصر للبحث ..مثال : نختار اسم الحساب الرئيسي العمليات ، ثم نحتفظ بالنتائج ونختار اسم العميل ونكتب اسم معين أقصد أن يكون مرن في البحث بأكثر من معيار تقبل وافر تقديري واحترامي

بسم الله ما شاء الله عليك أخي الكريم عمرو شرح ولا أروع من كدا بجد استفدت منه لأني محتاج شوية في التعامل مع الفورم .. صراحة شرح ممتاز تسلم ايديك ممكن بس أعترض على نقطة واحدة وهو الجزء الأخير في الكود ' If Me.ListBox1.ListCount = 0 Then ' Me.ListBox1.Clear ' End If ' Else ' Me.ListBox1.Clear دا بيمسح الليست بوكس ودا تم بالفعل في بداية الكود وهيتم دايماً في بداية الكود يعني ممكن نقول الجزء دا يعتبر زائد ولا حاجة لنا به .. ما رأيك فيما هو منسوب إلى الكود؟

أخي الكريم أبو يحيى حاول أن تبتعد عن استخدام الخلايا المدمجة فهي عدوة المعادلات والأكواد .. والتعامل معها يشكل صعوبة بالغة .. عموماً جرب المعادلة التالية بفرض أن عدد الخلايا 4 خلايا مدمجة .. =INDIRECT("C"&IF(MOD(ROWS($A$1:A1),2)=0,(ROWS($A$1:A1)*4)-2,(4*ROWS($A$1:A1))-2)) لنحصل على النتائج لأول خلية بها بيانات وهي الخلية C2 لاحظ في المعادلة الرقم 4 يشير إلى عدد الخلايا المدمجة .. والرقم 4 موجود مرتين بما أننا نريد الحصول على المطلوب في الخلية C2 أي الصف الثاتي فقمنا بطرح 4 - 2 مرتين ... أي -2 موجودة مرتين (لاحظ الجزء الأخير) ********* ماذا لو كانت عدد الخلايا المدمجة 3 خلايا .. استبدل الرقم 4 في المعادلة بالرقم 3 ، والرقم -2 بالرقم -1 لاحظ أنه سيتم عمل تغيران لكل رقم (الرقم 4 مرتين ، والرقم -2 مرتين) **************

وعليكم السلام أخي الكريم محمد أبو عبد الله 1 - قم بالدخول للرابط التالي لنسخ الكود بالكامل 2- افتح المصنف الخاص بك واضغط Alt + F11 للدخول لمحرر الأكواد 3- من قائمة Insert أدرج موديول جديد والصق فيه ما قمت بنسخه من أكواد 4- آخر جزء في الكود سيتم نقله إلى حدث ورقة العمل "ورقة2" .. لذا قم بتحديد آخر جزء في الكود ثم اضغط Ctrl + X لقص هذا الجزء ووضعه في مكان آخر 5- من نافذة المشروع انقر دبل كليك على ورقة العمل "ورقة2" لتضع الكود الذي تم قصه إلى هذا الموديول 6- اذهب لورقة العمل المسماة "ورقة2" واختر الفصل المطلوب إعداد قائمة له .. من الخلية J1 رابط الكود من هنا

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

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

أخي الكريم أحمد الرابط يعمل وجربته الآن مرة أخرى اعمل كليك يمين على الرابط ثم اختر فتح في تبويب جديد Open In New Tab ..سيفتح معك صفحة بعد 5 ثواني ستظهر في أعلى يمين الصفحة عبارة Skip Ad انقر عليها سيظهر معك الصفحة التي بها الكود انسخ الكود وضع الكود في موديول جديد .. لو تريد معرفة تفاصيل أكثر عن الأساسيات يوجد موضوع كامل على الرابط التالي من هنا

الحمد لله الذي بنعمته تتم الصالحات وجزيت خيراً بمثل ما دعوت لي أخي الكريم

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

مصادر الجهاز غير كافية ؟؟!! احتمالات كثيرة بهذا الصدد لا يمكن التخمين بها ولكن أضع لك بعض الاحتمالات أخي الكريم أبا سلمان قد تكون امكانيات الجهاز بالفعل ضعيفة .. فما هي إمكانيات الجهاز لديك؟ احتمال أن يكون هناك مشكلة بالهارد كأن يكون مصاب بالباد سيكتور أي القطاعات التالفة احتمال آخر أن يكون جهازك مصاب بفيروس يشغل تطبيقات في الخلفية مما يستهلك من الذاكرة والبروسيسور بشكل كبير احتمال آخر وجود خلل في نظام التشغيل الذي يعمل على الجهاز .. >> إذا كانت إمكانيات الجهاز جيدة وأنت متأكد من ذلك وأن الهارد سليم ، أنضحك بتغيير نسخة الويندوز وأن تقوم فور تحميل الويندوز يتحميل أنتي فيروس 360 إنترنت سيكورتي فهو خفيف على الأجهزة وفعال بشكل كبير أما بخصوص ملف الإكسيل نفسه فيجب مراجعة المصنف بشكل جيد .. لابد من إعادة هيكلته إذا تطلب الأمر فقد يكون المصنف في حالة يرثى لها ، ويحتاج لصيانة حتى لا تتعرض لنفس مشكلة أخونا أسامة عطا الله ..إذ أنه كيف لملف أن يصل حجمه لـ 300 ميجا (في وجهة نظري إذا تعدى ملف الإكسيل 5 ميجا فهذا حجم كبير جداً ، وكم قمت ببناء برامج ضخمة جداً ولا يتعدى حجمها 3 ميجا) نصيحتي في بناء أي برنامج ألا تكثر من التنسيق الشرطي والتلوين بدون داعي ، حيث أنني أرى أناس قد جعلوا من الإكسيل مرسم ولوخة فنية هائلة ، أنا لست ضد الشكل ولكن كما يقول المثل : الشياكة في البساطة ..لأن التنسيقات الكثيرة جداً تؤثر على حجم الملف البعض يقوم بتنسيق ورقة العمل بالكامل (وكم رأيت من يقوم بوضع حدود لورقة العمل بالكامل .. ولما الإسراف في التنسيق .. حاول أن تنسق الجزء الذي يحتوي البيانات فقط وكما أخبرت عدم الإسراف في التنسيقات الغير ضرورية نصيحة أخرى حاول قدر الإمكان عدم الإكثار على المعادلات وخصوصاً وخصوصاُ معادلات الصفيف فهي بالتأكيد تثقل الملف وتجعل التعامل مع الملف مع كبر حجمه أمر مرعب حاول أن تحول عملك للأكواد فالأكواد تتميز أنه يمكنك حذف أوراق عمل بالكامل وإنشاء أوراق عمل منسقة وبها كل ما تريده من مخرجات وبعد تنفيذ الكود والحصول على المطلوب أن تقوم بحذف تلك الأوراق فيظل المصنف خفيف الحجم وسهل ويسير في التعامل .. ويمكن بالأكواد أن تقوم بتصدير المخرجات والتقارير لمصنفات جديدة بعيداً عن المصنف الأصلي ، فتحافظ عليه بشكل كبير ..هذا بخلاف السرعة في الأداء والدقة في المخرجات أعتذر إن كنت قد أطلت عليكم ...