كيفية الفرز التلقائي للتاريخ عند إدخال التاريخ أو تغييره في Excel؟
في Excel ، فإن ملف تصنيف حسب: يمكن أن تساعدك الوظيفة على فرز التاريخ بترتيب تصاعدي أو تنازلي حسب حاجتك. لكنها ليست ديناميكية ، إذا قمت بفرز التاريخ ثم أضفت تاريخًا جديدًا إليه ، فستحتاج إلى فرزه مرة أخرى. هل هناك أي طرق جيدة وسريعة لفرز التاريخ تلقائيًا عند إدخال تاريخ جديد في كل مرة في ورقة العمل؟
تاريخ الفرز التلقائي عندما يتم إدخال التاريخ أو تغييره باستخدام الصيغة
تاريخ الفرز التلقائي عندما يتم إدخال التاريخ أو تغييره باستخدام رمز VBA
تاريخ الفرز التلقائي عندما يتم إدخال التاريخ أو تغييره باستخدام الصيغة
على سبيل المثال ، التاريخ الأصلي في العمود A ، يمكن أن تساعدك الصيغة التالية على فرز التاريخ تلقائيًا أو أي سلاسل نصية أخرى في عمود مساعد جديد استنادًا إلى العمود الذي تريد فرزه ، يرجى القيام بما يلي:
1. أدخل هذه الصيغة:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) في خلية فارغة بجانب عمود التاريخ ، C2، على سبيل المثال ، ثم اضغط على كترل + شيفت + إنتر معًا ، وستحصل على تسلسل رقمي ، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد استخدامها ، انظر لقطة الشاشة:
ملاحظات: في الصيغة أعلاه: A2: A15 هو النطاق الزمني الأصلي الذي تريد ترتيبه تلقائيًا.
2. ثم قم بتنسيق الأرقام بتنسيق التاريخ من خلال النقر التاريخ القصير من العلاجات العامة القائمة المنسدلة تحت الصفحة الرئيسية علامة التبويب ، انظر لقطة الشاشة:
3. ثم تم تحويل أرقام التسلسل إلى تنسيق التاريخ ، وتم فرز التاريخ الأصلي أيضًا ، انظر الصورة:
4. من الآن فصاعدًا ، عند إدخال تاريخ جديد أو تغيير التاريخ في العمود A ، سيتم فرز التاريخ الموجود في العمود C بترتيب تصاعدي تلقائيًا ، انظر الصورة:
تاريخ الفرز التلقائي عندما يتم إدخال التاريخ أو تغييره باستخدام رمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على فرز التاريخ تلقائيًا في العمود الأصلي عند إدخال تاريخ جديد أو تغيير التاريخ كما تريد.
1. انتقل إلى ورقة العمل التي تريد فرز التاريخ تلقائيًا عند إدخال تاريخ أو تغييره.
2. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، وحدد عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في الفراغ وحدة نافذة ، انظر لقطة الشاشة:
كود فبا: الفرز التلقائي عند إدخال التاريخ أو تغييره:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
ملاحظات: في الكود أعلاه ، سيتم فرز التاريخ الذي تم إدخاله تلقائيًا في العمود A ، يمكنك تغييره A1 و A2 إلى الخلايا الخاصة بك كما تحتاج.
3. من الآن فصاعدًا ، عند إدخال التاريخ في العمود "أ" ، سيتم فرز التاريخ تصاعديًا تلقائيًا.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!