ازاى احول الكود الى معادلة

[رفيع سعد]

السلام عليكم

ممكن بعد أذن الاساتذة الافاضل تحويل هذا الكود الى معادلة وتكون بنفس التنسيق

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 4 Then
  Range("c" & Target.Row) = Date
  End If
End Sub

هكذا  ddd-yyyy/mm/dd

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

اضف هذا السطر الى الكود

مباشرة قبل End If

 Range("c" & Target.Row).NumberFormat = "dd/mm/yyyy"

 

[رفيع سعد]

استاذي الفاضل سليم اسف على التاخير فى الرد لكن حضرتك انا مش عايز كود خالص انا عايز شغل الكود لكن بمعادلة

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

انسخ هذه المعادلة الى الخلية D1  واسحب نزولاً

=IF(C1<>"",TEXT(TODAY(),"dd/mm/yyy"),"")

 

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

بارك الله فيك أخي سليم

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

تقبلوا تحياتي

[رفيع سعد]

حبيبى الغالى استاذ ياسر( انتبه استخدامك للمعادلة سيجعل التاريخ محدث في الخلية )حضرتك اكيد مش فاكرنى لكن انا عايز التاريخ يكون ثابت يوم بيوم مش متغيردة اذا كان ممكن ويريت بردة استاذ سليم يشوف معادلة تانية والشكر مقدما الى كل الاساتذة الافاضل

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

إذاً أخي العزيز رفيع سعد لا سبيل إلى ذلك إلا بالكود لأن المعادلة ستعتمد على دالة اليوم Today ومع كل يوم جديد من الطبيعي أن تتجدد النتائج ..

ما المشكلة في استخدام الكود؟

[رفيع سعد]

 المشكلة في استخدام الكود؟ انا بحاول انسخ الملف على التليفون ومش عارف اتعامل بالكود على المحمول

[عبدالسلام ابوالعوافي]

بعد اذن اساتذتي .. هذا موضوع مشابه ..

المعادلة تقوم بتجديد التاريخ في العمود B اذا كانت الخلايا المجاورة في العمود A فارغة .. اي يمكن التجديد اذا قمنا بمسح محتوي الخلية

قد لا تكون المعادلة بالشكل المطلوب .. لكن هذا مااستطيع فعله بالمعادلات

[رفيع سعد]

السلام عليكم   استاذنا العزيز عبد السلام انا متشكر على الرد  لكن بالمعادلة دى بيكون لتاريخ متغير زى ماقال الاستاذ ياسر لان فعلا انا جربت الحل دة قبل مااسال ومنفعشى معايا وانا شاكر لكل الاساتذة الافاضل بارك اللة فيكم جميعا 

[عبدالسلام ابوالعوافي]

وعليكم السلام اخي رفيع .. التاريخ لا يتغيير الا اذا مسحت الخلية في العمود A 

عموما هذا الذي اعلمه ولك من التحية