كيفية إخفاء الأعمدة تلقائيًا بناءً على التاريخ في Excel؟

لنفترض أن لدي نطاقًا من البيانات في ورقة عمل ، الآن ، أريد إخفاء الأعمدة بناءً على تاريخ محدد تلقائيًا. على سبيل المثال ، عندما أدخل التاريخ 5/16/2016 في خلية ، أريد إخفاء الأعمدة التي يكون التاريخ أقل من هذا التاريخ المحدد على الفور كما هو موضح في لقطة الشاشة التالية. ستعرض هذه المقالة بعض الحيل لحلها.

إخفاء الأعمدة تلقائيًا استنادًا إلى تاريخ محدد برمز VBA

إخفاء الأعمدة بناءً على تاريخ محدد باستخدام Kutools for Excel

إخفاء الأعمدة تلقائيًا استنادًا إلى تاريخ محدد برمز VBA

لإكمال هذه المهمة ، قد يساعدك رمز VBA التالي ، يرجى القيام بما يلي:

1. حدد علامة تبويب الورقة التي تريد إخفاءها حسب التاريخ ، وانقر بزر الماوس الأيمن للاختيار عرض الرمز من قائمة السياق للذهاب إلى ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، ثم انسخ الكود التالي والصقه في الوحدة النمطية:

رمز فبا: إخفاء الأعمدة تلقائيًا بناءً على تاريخ محدد:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xCell As Range
    If Target.Address <> Range("K4").Address Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In Range("A1:I1")
        xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
    Next
    Application.ScreenUpdating = True
End Sub

2. ثم احفظ وأغلق هذا الرمز ، ارجع إلى ورقة العمل ، والآن ، عندما تدخل التاريخ في الخلية K4، سيتم إخفاء الأعمدة التي يكون تاريخها أقل من هذا التاريخ المحدد تلقائيًا.

ملاحظة: في الكود أعلاه ، K4 هي خلية التاريخ المحددة التي تريد إخفاء الأعمدة بناءً عليها ، A1: I1 هي خلايا الصف التي تحتوي على التاريخ الذي استخدمته.

إخفاء الأعمدة بناءً على تاريخ محدد باستخدام Kutools for Excel

إذا لم تكن معتادًا على الكود ، فإليك أداة مفيدة-كوتولس ل إكسيل، بما لديها حدد خلايا معينة فائدة ، يمكنك إنهاء هذه المهمة بسهولة.

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

1. حدد رؤوس التاريخ ، وانقر كوتولس > اختار > حدد خلايا معينة، انظر لقطة الشاشة:

2. في خرجت حدد خلايا معينة مربع الحوار، حدد عامود كامل من نوع التحديد، ثم اختر المعايير ، مثل أقل من من نوع خاص أو معين القائمة المنسدلة ، وأدخل التاريخ في مربع النص الذي تريد إخفاء الأعمدة بناءً عليه ، انظر لقطة الشاشة:

3. ثم انقر فوق Ok الزر ، يتم تحديد الأعمدة المحددة التي يكون تاريخها أقل من 5/16/2016 مرة واحدة ، انظر لقطة الشاشة:

4. ثم انقر بزر الماوس الأيمن فوق أي رأس عمود محدد ، وحدد إخفاء لإخفاء أطروحات الأعمدة المختارة حسب حاجتك. انظر لقطة الشاشة:

انقر فوق تنزيل Kutools for Excel مجانًا الآن!

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...