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

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

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:

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

تقبل تحياتي

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

Important Information