Note: The other languages of the website are Google-translated. Back to English

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

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

doc إخفاء الأعمدة حسب التاريخ 1

إخفاء الأعمدة تلقائيًا استنادًا إلى تاريخ محدد برمز 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

doc إخفاء الأعمدة حسب التاريخ 2

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

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


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

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

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

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

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

doc إخفاء الأعمدة حسب التاريخ 4

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

doc إخفاء الأعمدة حسب التاريخ 5

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

doc إخفاء الأعمدة حسب التاريخ 6

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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (2)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
شكرا على الكود.
في حالتي ، تكون الخلية K4 عبارة عن خلية حساب من الصيغة = EOMONTH (A1,0،1). مثال: A01.03.2017 = 4. تأخذ K31.03.2017 القيمة 4. لكن رمز VBA الذي تقترحه لا يخفي الأعمدة حتى أنقر على خلية K4 واضغط على Enter لتحديثها. حاولت إضافة Range ("KXNUMX"). احسب ولكن بدون تأثير. ساعدنى من فضلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة مثل كريس. لا تتغير الخلية التي تحتوي على تاريخي دائمًا. أحتاج إلى تشغيل الماكرو بغض النظر عما إذا كان التاريخ قد تغير من الشهر الماضي أو هو نفسه الشهر الماضي دون الحاجة إلى النقر فوق الخلية نفسها والضغط على إدخال لتشغيل "التغيير"
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL