كيفية الانتقال بسرعة إلى الخلية التي تحتوي على التاريخ الحالي في 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، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد