انتقل إلى المحتوى الرئيسي

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

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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"
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations