تاريخ اليوم مرفق البرنامج

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

بعد التحية

المطلوب ان شاء الله

كود الذهاب الى تاريخ اليومتاريخ اليوم.rar

[خالد الرشيدى]

اليك المرفق التالى عله المطلوب

تاريخ اليوم.rar

[طارق زكريا حسين جاه الرسول]

لاتوجد كلمات اعبر بها عن شكرى وتقديرى

جزاك الله كل خير وجعلك زخرا لنا

شكرا

[سليم حاصبيا]

انسخ هذا الماكرو الى موديل جديد و حدد له الزر المناسب

يجب ان يكون تنسيق الخلايا في العامود A تاريخ  ابتداءً من الخلية الربعة

Sub GoTo_Today()
Application.EnableEvents = False
   
    Range("g4").FormulaR1C1 = "=MATCH(TODAY(),C[-6],0)"
    r = Range("g4").Value
    myaddres = Cells(r, 1).Address
    Application.Goto Reference:=Evaluate(myaddres)
   
   Application.EnableEvents = True
End Sub

 

تم تعديل نوفمبر 15, 2015 بواسطه سليم حاصبيا

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بارك الله فيكما و جزاكما الله خيرًا .. الأستاذان القديران :

1 - خالد الرشيدي

2 - سليم حاصبيا

فقط سؤال للأستاذ سليم حاصبيا حول أهمية الخلية G4 بالكود ..

فائق إحتراماتي

 

[سليم حاصبيا]

الخلية G4  ليس لها اي فيمة بالكود و يمكن استبدالها بأي خلية اخرى (شرط المحافظة على صيغة المعادلة) اي ان تعد ما هو عدد الاعمدة لتصل الى العامود A  من الخلية المفصودة(في حالتنا هذه 6- ) لو نظرت الى الدالة Match  في الكود. (ست عمدة بين G & A)

لكني اخترت انا الخلية G4 لانها تقع مباشرة تحت زر الكود و لا يراها المستخدم

 

تم تعديل نوفمبر 15, 2015 بواسطه سليم حاصبيا

[ياسر خليل أبو البراء]

بارك الله فيكم إخواني

إليكم حل آخر لإثراء الموضوع

 

Sub Find_Today_Date()
    Dim C As Range, StrDate As Date
    StrDate = CLng(Date)
    
    Set C = ActiveSheet.Cells.Find(What:=StrDate, LookIn:=xlFormulas)
    If Not C Is Nothing Then C.Select
End Sub

 

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بارك الله فيكم جميعًا أساتذتي الأفاضل على هذا التّنويع الرّائع و المفيد لإثراء مواضيعنا و معلوماتنا ..

بعد إنتهاء ربّما .. حلول الأساتذة جينيرالات الاكسل  ( باسم الله ما شاء الله ) .... يأتي دور حلول الجنود البُسطاء .. بواسطة تلوين خلية تاريخ اليوم  بالتنسيق الشّرطي ..

 

 

تاريخ اليوم.rar

تم تعديل نوفمبر 15, 2015 بواسطه عبد العزيز البسكري

[سليم حاصبيا]

يمكن ايضاً استعمال هذا الكود

Sub find_today()
Dim lr, i As Integer
Dim myrg As Range
lr = Cells(Rows.Count, 1).End(3).Row
Set myrg = Range("a4:a" & lr)
For i = 4 To lr
   If Cells(i, 1).Value = Date Then Cells(i, 1).Select: Exit Sub
 Next
  End Sub

 

تم تعديل نوفمبر 16, 2015 بواسطه سليم حاصبيا

[ياسر خليل أبو البراء]

أرى أن الحلقات التكرارية مع كثرة حجم البيانات تتسبب في ثقل التعامل مع الملف .. طالما أن هناك بديل غير الحلقات التكرارية فالأفضل اللجوء إليه (مجرد رأي شخصي)