samycalls2020 قام بنشر ديسمبر 24, 2022 مشاركة قام بنشر ديسمبر 24, 2022 الأخوة الأفاضل . . سلام الله عليكم أريد كود يقوم بإلغاء أي تصفية موجوده بالجدول ماعدا التصفية الموجودة من الصف السادس إلى الصف العاشر من الجدول تنويه : قد يكون الجدول أكبر وأكثر في عدد الصفوف والأعمدة , ويكون عدد الصفوف المستثناة من إلغاء التصفية 50 صف أو أكثر تحياتي إلغاء تصفية ماعدا.xlsb رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر ديسمبر 26, 2022 الكاتب مشاركة قام بنشر ديسمبر 26, 2022 هذه محاولة متواضعة .. ولكن ماذا إذا كان الجدول أكبر وأكثر في عدد الصفوف والأعمدة , ويكون عدد الصفوف المستثناة من إلغاء التصفية 50 صف أو أكثر إلغاء تصفية ماعدا.xlsb رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 وعليكم السلام ورحمة الله وبركاتة تفضل Sub run() Application.ScreenUpdating = False ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=1 '''عمود رقم 1 في الجدول ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=2 '''عمود رقم 2 في الجدول ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=3 '''عمود رقم 3 في الجدول Application.ScreenUpdating = True ''' ملحوظة اذا ارت اكثر من ثلاث عمود فيك تنسخ وتعدل رقم اللعمود المراد كما تشاء End Sub رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر ديسمبر 26, 2022 الكاتب مشاركة قام بنشر ديسمبر 26, 2022 الأخ الكريم محمد يوسف الموضوع ليس أعمده ولكن الموضوع خاص ببعض الصفوف التي أريد استثنائها من إلغاء التصفية شكرا لمشاركتك المقدرة رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر ديسمبر 29, 2022 الكاتب مشاركة قام بنشر ديسمبر 29, 2022 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.