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

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

قام بنشر

لدي ملف ايكسيل مرفق 

هناك خلايا كثيرة مرتبطه برقم في خليه على اساس هذا الرقم يتم التصفيى التلفائية 

ولكن عند كتابة الرقم التصفية التلفائية لا تعمل 

مشروع.xlsx

  • أفضل إجابة
قام بنشر

جرب هذا  الكود 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 1 Then
   If Target.Value = "" Then
      Sheet1.ShowAllData
   Else
       Sheet1.Cells.AutoFilter Field:=5, Criteria1:=Target.Value
   End If
End If
End Sub

مشروع1.xlsm

  • Like 1
قام بنشر

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

تحياتي 

  • Thanks 1
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information