كيفية الانتقال بسرعة إلى الخلية التي تحتوي على التاريخ الحالي في Excel؟
إليك ورقة تحتوي على قائمة من التواريخ، وتريد الانتقال بسرعة إلى الخلية التي تحتوي على التاريخ الحالي، فكيف يمكنك حل هذه المشكلة؟
الانتقال إلى التاريخ الحالي باستخدام VBA
الانتقال إلى التاريخ الحالي باستخدام البحث والاستبدال
الانتقال إلى التاريخ الحالي باستخدام VBA
إليك كود VBA يمكن أن يساعدك في الانتقال بسرعة إلى الخلية التي تحتوي على التاريخ الحالي.
1. قم بتفعيل المصنف الذي تريد استخدامه، واضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. اضغط على إدراج > وحدة، والصق الكود أدناه في الوحدة.
VBA: الانتقال إلى التاريخ الحالي
Private Sub Workbook_Open()
'UpdatebyExtendoffice
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. اضغط F5 على المفتاح، ثم سيقفز المؤشر إلى الخلية التي تحتوي على التاريخ الحالي أينما كنت في المصنف.

اكتشف سحر Excel مع Kutools AI
- التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
- الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
- برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
- تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
- ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
الانتقال إلى التاريخ الحالي باستخدام البحث والاستبدال
إذا لم تكن معتادًا على كتابة أكواد VBA، يمكنك أيضًا استخدام أداة البحث والاستبدال للانتقال إلى التاريخ الحالي.
1. قم بتفعيل الورقة التي تحتوي على قائمة التواريخ، وحدد خلية فارغة، واكتب هذه الصيغة =TODAY()، واضغط Enter على المفتاح، الآن حصلت على تاريخ اليوم.
2. اضغط Ctrl + C لنسخ تاريخ اليوم، ثم انتقل لتحديد قائمة التواريخ، وبعد ذلك اضغط Ctrl + F لتفعيل البحث والاستبدال في مربع الحوار، داخل مربع النص البحث عن اضغط Ctrl + V لصق تاريخ اليوم فيه. انظر لقطة الشاشة:
3. اضغط العثور على الكل. الآن سيقفز المؤشر إلى الخلية التي تحتوي على اليوم في القائمة المحددة.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!