لنفترض أن لدي نطاقًا من البيانات في ورقة عمل ، الآن ، أريد إخفاء الأعمدة بناءً على تاريخ محدد تلقائيًا. على سبيل المثال ، عندما أدخل التاريخ 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إذا لم تكن معتادًا على الكود ، فإليك أداة مفيدة-كوتولس ل إكسيل، بما لديها حدد خلايا معينة فائدة ، يمكنك إنهاء هذه المهمة بسهولة.
| كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد رؤوس التاريخ ، وانقر كوتولس > اختار > حدد خلايا معينة، انظر لقطة الشاشة:
2. في خرجت حدد خلايا معينة مربع الحوار، حدد عامود كامل من نوع التحديد، ثم اختر المعايير ، مثل أقل من من نوع خاص أو معين القائمة المنسدلة ، وأدخل التاريخ في مربع النص الذي تريد إخفاء الأعمدة بناءً عليه ، انظر لقطة الشاشة:
3. ثم انقر فوق Ok الزر ، يتم تحديد الأعمدة المحددة التي يكون تاريخها أقل من 5/16/2016 مرة واحدة ، انظر لقطة الشاشة:
4. ثم انقر بزر الماوس الأيمن فوق أي رأس عمود محدد ، وحدد إخفاء لإخفاء أطروحات الأعمدة المختارة حسب حاجتك. انظر لقطة الشاشة:
انقر فوق تنزيل Kutools for Excel مجانًا الآن!
