اذهب الي المحتوي
أوفيسنا

طرح الخلايا التى تلى الخلايا السابقه فى حالة الفلترة


الردود الموصى بها

Guest محمد ابو صهيب
 Sub FILTRE()

    Range("C3:F14").Select
    Range("F3").Activate
    Selection.AutoFilter
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=RC[3]-RC[2]"
    Range("B5").Select
    Selection.AutoFill Destination:=Range("B5:B14"), Type:=xlFillDefault
    Range("B5:B14").Select
End Sub

جرب هذا

Sans titre.jpg

تم تعديل بواسطه محمد ابو صهيب
رابط هذا التعليق
شارك

أخي الكريم محمد أبو صهيب

بارك الله فيك وجزاك الله كل خير

هلا وضعت الكود بين أقواس الكود ليستطيع الأخوة نسخ الكود وتجربته؟!

 

أخي الكريم إبراهيم أبو ليلة

حاول لما تضع مثال مرفق أن تسمي عناوين البيانات بعناوين أخرى غير A B C حيث أن الأمر مربك عند شرح المطلوب ..فقد يختلط الأمر على الأعضاء بين العمود B والعنوان المسمى B ؟..!!

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

هل عملية الطرح ستكون للخلايا الظاهرة فقط ؟؟ وماذا عن الخلايا الغير ظاهرة نتيحة عملية الفلترة؟

تقبلوا تحياتي

 

رابط هذا التعليق
شارك

أخي الكريم إبراهيم أبو ليلة

قم بإلغاء الفلترة في ورقة العمل المراد العمل عليها والمسماة "في حالة الفلترة"

 

ضع المعادلة التالية في عمود مساعد في الخلية H5 مثلاً ثم قم بسحبها لنهاية النطاق المستخدم

=SUBTOTAL(109,E5)

ثم في عمود الناتج ضع المعادلة التالية في الخلية C5 ثم قم بسحبها لنهاية النطاق المستخدم

=IFERROR(INDEX($E6:$E$15,MATCH(TRUE,INDEX(H6:$H$15<>0,),0))-D5,"")

قم بفلترة النطاق C3:F14 على أي حقل وليكن حل الكود كما فعلت أنت واختر رقم 1 لشرط الفلترة ، ولاحظ النتائج

 

F.rar

  • Like 2
رابط هذا التعليق
شارك

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله أن تم المطلوب على خير

تقبل تحياتي أخي الغالي إبراهيم

رابط هذا التعليق
شارك

قم بإزالة الفلترة وستجد النتائج تتحقق كما تريد وتتم عملية الطرح على الخلايا بعد إزالة الفلترة

إذا لم يكن المطلوب يؤدي الغرض يرجى إرفاق شكل النتائج المتوقعة

 

 

رابط هذا التعليق
شارك

ياعم ياسر

شوفت انت استعجبا ازاى

لو رجعت للمشاركه

هتلاقينى عايز

فى حالة ازالة الفلتر

يتم طرح الخلايا المتجاوره

يعنى طرح

E5 من   D5

وليس

E5 من D4

تقبل تحياتى

 

رابط هذا التعليق
شارك

أنا صراحة لا أفهم طبيعة الملف لذا لا أدرك المطلوب بشكل جيد ..

المطلوب الآن مختلف ..حاول ترفق شكل النتائج المتوقعة ليسهل الوصول لحل

رابط هذا التعليق
شارك

أخي الكريم إبراهيم

يعني أفهم إن المشكلة اتحلت ولا لسه فيه مشكلة !!!؟؟ :blink:

صراحة بدأت أتوه منك ..حاول تحدد هدفك عشان تعرف تجيب أهداف

تقبل تحياتي

رابط هذا التعليق
شارك

لا ياريس

اثبت مكانك

اه الحمد لله مفيش مشاكل ولا حاجه

والدنيا زى الفل

تسلم ياريس

ربنا يكرمك

تقبل تحياتى

  • Like 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information