اريد معادلة تكتب اخر تاريخ لتعديل الخلية المجاورة

[ابو حبيبة وحنين]

اريد معادلة تسجل اخر تاريخ لتعديل الخلية المجاورة  ولا تتغير بتغير ساعة الكمبيوتر ؟ 

 

وشكرا

[ابو اياد ( الاسيوطى )]

ارجو ان تجد ما تريد فى هذا الرابط

 

http://www.officena.net/ib/index.php?showtopic=41226&hl=%2B%D8%AA%D8%AC%D9%85%D9%8A%D8%AF+%2B%D8%A7%D9%84%D9%88%D9%82%D8%AA#entry232895

[أبو حنــــين]

السلام عليكم

لو فرضنا ان القيمة المعنية بالتغيير في الخلية A2

نكتب المعادلة التالية في الخلية B2

=IF(A2<>"";TEXT(TODAY();"dd-mm ") & " - " & TEXT(NOW();"h:mm");"")

[ابو حبيبة وحنين]

 

السلام عليكم

لو فرضنا ان القيمة المعنية بالتغيير في الخلية A2

نكتب المعادلة التالية في الخلية B2

=IF(A2<>"";TEXT(TODAY();"dd-mm ") & " - " & TEXT(NOW();"h:mm");"")

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

[ابو حبيبة وحنين]

ارجو ان تجد ما تريد فى هذا الرابط

 

http://www.officena.net/ib/index.php?showtopic=41226&hl=%2B%D8%AA%D8%AC%D9%85%D9%8A%D8%AF+%2B%D8%A7%D9%84%D9%88%D9%82%D8%AA#entry232895

ممكن معادلة بدل الاكواد   ...... وشكرا

[أبو حنــــين]

هذا المثال بالكود

سطح المكتب.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ابو حبيبة وحنين

بارك الله فيك

علي حسب علمي انه في هذه الحاله استخدام الكود يكون افضل بكثير من المعادلة

لضمان النتيجة المرجوه من الكود

واضافة لحل الاساتذة الكبار ... ولاثراء الموضوع شاهد المرفق التالي

ان شاء الله يفي بطلبك

جزاك الله خيرا

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("a3:a23")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
         Target(1, 2).ClearContents
    Else
         With Target(1, 2)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
End Sub

ملفات مرفقة 2003

 

كود تاريخ لا يتغير بتغير تاريخ الجهاز.rar

تم تعديل أكتوبر 5, 2013 بواسطه حمادة عمر

[حمادة عمر]

الاستاذ الحبيب / أبو حنين

بارك الله فيك

عذرا لم اري ردك الا بعد ارسال الرد

فعذرا فليس بعد ردك ردك ... علما بانني لم اري ردك الاخير

لعلمي بانه اكيد راائع

تقبل خالص تحياتي

جزاك الله خيرا

[أبو حنــــين]

السلام عليكم اخي حمادة

لا اعتذار بين الاحبة لاننا نصب في نفس الكأس ليشربها غيرنا و يتلذذ بها فإن اعجبته فذاك مرادنا و ان لم تعجبه زدنا لها قليلا من السكر حتى  يستقر طعمها و تعجب شاربها

جزاك الله خيرا و حفظكم و رعاكم

[حمادة عمر]

السلام عليكم

الاستاذ الحبيب / أبو حنين

بارك الله فيك

الله عليك استاذي الحبيب ... في حلولك رووعة ... وفي ردوك رووعة

نتعلم منك العلم والاخلاق سويا

تقبل خالص تحياتي

جزاك الله خيرا

[ابو اياد ( الاسيوطى )]

السلام عليكم اخي حمادة

لا اعتذار بين الاحبة لاننا نصب في نفس الكأس ليشربها غيرنا و يتلذذ بها فإن اعجبته فذاك مرادنا و ان لم تعجبه زدنا لها قليلا من السكر حتى  يستقر طعمها و تعجب شاربها

جزاك الله خيرا و حفظكم و رعاكم

هكذا يكون الاعتذار بين الخبراء

 

عذرا استاذى ابو حنين سأقتبس جزء من هذا الرد لأضعة فى قصة من قصصى 

 

لاننا نصب في نفس الكأس ليشربها غيرنا و يتلذذ بها فإن اعجبته فذاك مرادنا و ان لم تعجبه زدنا لها قليلا من السكر حتى  يستقر طعمها و تعجب شاربها

[أبو حنــــين]

السلام عليكم

اخي الاب الروحي

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

حفظكم الله و رعاكم