كيفية الفرز التلقائي للتاريخ عند إدخال التاريخ أو تغييره في 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. من الآن فصاعدًا ، عند إدخال التاريخ في العمود "أ" ، سيتم فرز التاريخ تصاعديًا تلقائيًا.
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
