السلام عليكم الاستاذة الكرام احاول انشاء ملف اكسيل عبارة عن صفحتين الاولى بالمعادلات العادية والثانية نفس الصفحة الاولى لكن بواسطة vba للاختصار
1- تنفيذ معادلة لمعرفة اليوم انفذها بطريقة formula يظهر السطر بالكامل باللون الاحمر مع التعليم على التنسيق dddd
2- تنفيذ نفس المعادلة لكن بطريقة application ال vba لايظهر لى اى مشكلة بالكود لكن الناتج خطاء (حاجة تجنن)
3- الغريب فى الامر ان طريقة formula فى اول مرة انفذ فيها الكود كانت ناجحة بس تعمل ايه فى الطمع لما عرفت ان application بنطلع الناتج دون اظهار المعادلة فى شريط المعادلات عملت فبها بيل جيتس ونفذت ب application طلعت خطأ معايا قولت ارجع لأصلك يا واد يا احمد وخلينا فى الطريقة اللى نجحت معاك راح المعادلة بالكامل باللون الاحمر

4- معلش هطول عليكم شوية فى اخر نقطه عندى تاريخين تاريخ فى الخلية b3 والخلية g3 المفروض b4 =التاريخ الموجود فى g3 +1 وطبعا دى سهلة جدا بالطريقة العادية لكن عندما حاولت تطبيقها ب vba لم تنجح الا على خلية واحدة فقط ولما عملت filldown اعطت نفس التاريخ مرفق لحضرتكم الملف
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

الكود المطلوب (للحصول على نص)

[B2:B10] = Application.Text([B2:B10], "dddd")

او هذا ( للحصول على تاريخ حقيقي - يمكن التعامل معه بالعمليات الحسابية)

[B2:B10].NumberFormat = "dddd"

جزاك الله كل خير أ. سليم

ربما هذا الكود في حدث الشيت يفي بالغرض

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng
Set rng = Range("c3:c12")
If Not Intersect(Target, rng) Is Nothing Then
If Not IsDate(Target) = True Then
cancel = True
Else
Target.Offset(, 4) = Format(DateAdd("d", 1, Target), "yyyy-mm-dd")
End If
End If
End Sub

السلام عليكم استاذ حســـين ممكن حضرتك شرح مبسط للكود لأنى لم اتعامل بعد مع Private Sub Worksheet_Change(ByVal Target As Range)
بالأضافة انى لم اتعامل مع offset ايضا
شرح مبسط للكود عشان اقدر انفذه وشكرا لأهتمام حضرتك