Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
سجلوا معنا  \/ 
x

or

كيفية إخفاء الأعمدة تلقائيًا بناءً على التاريخ في 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-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Seven · 3 years ago
    I have the same issue as Chris. The cell with my date does not always change. I need the macro to run regardless of whether the date has changed from last month or is the same as last month without having to click on the cell itself and hit enter to trigger the "Change"
  • To post as a guest, your comment is unpublished.
    Chris · 3 years ago
    Hello,
    Thanks for the code.
    In my case the cell K4 is a calculation cell from the formula =EOMONTH(A1,0). Example: A1 = 01.03.2017. K4 takes the value 31.03.2017. But the VBA code that you propose does not hide the columns until I click on K4 cell and press Enter to refresh it. I tried to add Range("K4").calculate but with no effect. Help please.