عبد المنعم

السلام عليكم و رحمة الله و بركاته اخواني الكرام ,, لدي كود يقوم باضافة اعمدة جديدة بعدها بقوم بنسخ و لصق ما قبلها من بيانات و نظرا لكثرة عدد المرات التي يقوم بذلك , تظهر لي هذه الاشارة بحثت ووجدت اني يجب ان اقوم بحفظ و اغلاق الملف في كل مرة مرة تظهر لي و يقوم الاكسل عندها بالقيام ب Refresh او ما شابه لهذا هل من طريقة تغنيني عن الاغلاق ( الكود مرتبط ببعضه و لا يمكنني اغلاقه حتى ينتهي عمل الماكرو )

اخي و صديقي الاستاذ ياسر ,, لم اخيب طلبك و لكن الملف لم يكتمل بشكل كامل و مازلت اعمل عليه و هذا الطلب متمم له اخي العزيز هذه محاولتي لحذف الاعمدة المتشابهة , بعد طرحي للسؤال جلست افكر بطريقة لاصل للحل و بفضل من الله تم الامر و لكن الطريقة كما ستشاهد تدل على عدم خبرتي على الاطلاق , وما هي الا محاولة لامر لم اقم بتعلمه من قبل تفضل المرفق و اعطني رأيك همسة : على فكرة هذا الكود اسرع من الكود الذي ارفقته حضرتك في حال كانت البيانات كبيرة ( يعني كده سبقناك يا معلم ) Delete Dublicate.rar

اخي الفاضل الاستاذ ياسر بالفعل الملف الذي ارفقته حضرتك يعمل بكفائة تامة و لكن عندما حاولت التعديل على كود الاستاذ سليم لم استطع و احببت ان اتعلم كيف يصبح بعد التعديل اضافة الى اني احببت سهولة قراءة الكود ( مش زيك يا ابو المتاهات :D ) ههههههه , هذا مافي الامر

اين انت يا استاذ سليم نحتاج الى البساطة في الحل :)

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

السلام عليكم احتاج الى كود في حال وجدنا عمود يشابه الاخر نحذفه بالكامل if column A = column B Then Delete column B if column A = column C then delete column C if column A = column D Then Delte Column D . . ثم نعيدها مع B if column B = column C Then Delete column C if column B = column D Then Delete column D . . و هكذا حتى اخر عمود

طيب نخليها كده على شانك Range("A1", ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)).Select

ما رأيك ؟ initialRw = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row initialClm = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Range(Cells(1, 1), Cells(initialRw, initialClm))

اخي العزيز احاول التخفيف من الشرح ليسهل الامر و لا ندخل بمتاهات الشرط الثاني يقول : IF A1 = X & A2 = Y & B1 = X & B2 = Y & C1 = X & C2 = Y THEN IF A3 = B3 = C3 WE HAVE F3 = A3 ( حسب الشرط الاول ) IF A3 <> B3 OR A3 <> C3 OR B3 <>C3 THEN F3 = Two Answer ------------------------------- الى هنا الشرط الثاني -------------------------------- اما سؤالك فهو التعديل للشرط : ( اقرأه فقط و بعد الانتهاء من الشرط الثاني نقم به ) الان ان كان لدينا Two Answer اذا نقوم بعد الازواج كالسابق ان كان هناك 4 ازواج او اكثر متساوية if A1 = X & A2 = Y & B1 = X & B2 = Y & C1 = X & C2 = Y & D1 = X & D2 = Y THEN IF A3 = B3 = C3 = D3 THEN F3 = A3 ( حسب الشرط الاول في الملف القديم ) في اختلاف A3 B3 C3 D3 : - في حال الاختلاف لمرة واحد عندها يكون لدينا Two Answer ( حسب الشرط الثاني ) مثلا : IF A3 = B3 = C3 = 1 & D3 = 2 THEN F3 = Two Answer - في حال الاختلاف لاكثر من مرة عندها يكون لدينا Fail ( حسب التعديل الجاري ) مثلا : IF A3 = B3 = 1 & C3 = D3 =2 THEN F3 = Fail ---------------------------------------------------------------

عذرا على التأخير تفضل الشرط الثاني : في حال وجدنا اكثر من زوج مساو للزوج المطلوب عندها يجب ان يكون الناتج ايضا متساو مثال الزوج (F2 = 1 , F3 = 1 ) , المطلوب البحث عن زوج مساو له في السطرين الثاني و الثالث : فوجدنا الزوج ( A2 = 1 , A3 = 1 ) و ايضا الزوج ( B2 = 1 , B3 = 1 ) اذا تكون النتيجة F4 = A4 بشرط ان يكون A4 = B4 في حال كان A4 لا يساوي B4 عندها نضع Two Answer Conditions Tree v1.3.rar

ملف رائع من استاذ اروع بارك الله بك ,, هل نكمل للشرط الثاني ؟

تحقق الشرط الاول ,, على ما يبدو سأتعلم البرمجة قريبا ما رأيك أخي الفاضل صدقا لم اكتب vpa من قبل تبا لعقلي .. توقف مع الشرط الثاني ( ارجو ان يكون الملف مساعدا له ) Conditions Tree v1.2 First Condition.rar

نلتقي غدا ان شاء الله و صدقا لا املك من الخبرة بشيء انما عندما تضع المتغيرات احاول التعديل عليها بما تعلمت شكرا لك

اكيد Two Answer لاننا لا نمللك الا احدى الاجابتين 1 او 2

ان كان اكثر من زوج يجب ان تكون النتيجة متساوية حسب المثال في الملف النتيجة هي F8 = B8 بشرط B8 = C8 = D8

ههههههههههه ,, سلامة عينيك اذا الموضوع كده يبقى بلاش يا عم الصفوف كالاعمدة حتي اخر قيمة :D تفضل الشرط الثاني : في حال وجدنا اكثر من زوج مساو للزوج المطلوب عندها يجب ان يكون الناتج ايضا متساو مثال الزوج (F2 = 1 , F3 = 1 ) , المطلوب البحث عن زوج مساو له في السطرين الثاني و الثالث : فوجدنا الزوج ( A2 = 1 , A3 = 1 ) و ايضا الزوج ( B2 = 1 , B3 = 1 ) اذا تكون النتيجة F4 = A4 بشرط ان يكون A4 = B4 في حال كان A4 لا يساوي B4 عندها نضع Two Answer Conditions Tree v1.3.rar

ان بقينا مع دالة If سيتعقد الامر بشكل كبيير لا تنسا عنوان الموضوع "The Formula is Too Long" لهذا نحتاج الى VPA

الملف رائع و محقق للشرط الاول ,, و لكن التزمنا ب اربعة اعمدة فقط و المطللوب حتى اخر عمود يحوي النتيجة ( للتنويه لا اكثر )

شكرا لك ,, انا بانتظارك

نعم استاذي الكريم ,, الشرط صحيح

بارك الله بك ,, الان نستطيع الانتقال الى الشرط الثاني اما بالنسبة للاضافة فانت من ارشدني اليها ,, جزاك الله خيرا الشرط الثاني : في حال وجدنا اكثر من زوج مساو للزوج المطلوب عندها يجب ان يكون الناتج ايضا متساو مثال الزوج (F2 = 1 , F3 = 1 ) , المطلوب البحث عن زوج مساو له في السطرين الثاني و الثالث : فوجدنا الزوج ( A2 = 1 , A3 = 1 ) و ايضا الزوج ( B2 = 1 , B3 = 1 ) اذا تكون النتيجة F4 = A4 بشرط ان يكون A4 = B4 في حال كان A4 لا يساوي B4 عندها نضع Two Answer Conditions Tree v1.1.rar

تتمة الشرط الاول تكون على الشكل التالي بعد ايجاد F3 تصبح X = F2 Y = F3 و تعاد المعادلة ليكتمل العمود عندما يتضح الشرط الاول ننتقل الى الشرط الثاني

الاجابة في الاقتباس وقد قمت بتعديل ملفك اخي العزيز ليسهل الشرح ( للشرح و ليس اكثر ) تفضل Conditions Tree01.rar

اخي العزيز انا من يجب ان يخجل منك لأني ادخلتك بمتاهات عديدة لم تقصر معي ,, بارك الله بك هذا شرح للمرحلة الأولى ,, تقبله بصدرك الرحب -------------------------------------------------- لدينا 4 ازواج و هي 1,1 | 1,2 | 2,1 | 2,2 نريد البحث عن مماثل لها في الاعمدة الاربعة الموجودة داخل الملف 1- نبدا الماكرو بادخال احدى قيم الأزواج السابقة ( او يبحث عن الازواج الاربعة كلا على حدى في عامود منفصل ) 2- نبحث عن زوج مشابه للزوج المفروض في السطرين الثاني و الثالث ثم ننتقل للخطوة التالية تفضل الملف يحوي مثالا واضحا 1.rar

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