نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

دوك إخفاء الأعمدة حسب التاريخ شنومكس

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

إخفاء الأعمدة بناء على تاريخ محدد مع كوتولس ل إكسيل


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


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

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160725
    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 هي خلايا الصف تحتوي على التاريخ الذي استخدمته.


السهم الأزرق الفقاعة اليمنى إخفاء الأعمدة بناء على تاريخ محدد مع كوتولس ل إكسيل

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

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

1. حدد رؤوس التواريخ، ثم انقر فوق Kutools > اختار > حدد خلايا محددة، انظر الصورة:

دوك إخفاء الأعمدة حسب التاريخ شنومكس

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

دوك إخفاء الأعمدة حسب التاريخ شنومكس

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

دوك إخفاء الأعمدة حسب التاريخ شنومكس

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

دوك إخفاء الأعمدة حسب التاريخ شنومكس

انقر مجانا تحميل كوتولس فور إكسيل الآن!


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 1 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 · 2 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.