اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

كما هو معروف لدي ان الداله now تحسب الوقت والتاريخ عند قيم الصفحه التي نقف فيها

فسؤالي هل بالامكان التحكم بتغيرها ونقيده بخلايا معينه وليس بكامل الخلايا

الملف المرفق فيه توضيح اكثر

تغير الوقت.rar

واشكركم

قام بنشر

السلام عليكم

استخدم الكود التالي


Private Sub Worksheet_Change(ByVal Target As Range)

Dim LastRow As Long

On Error GoTo 1

LastRow = Range("E" & Rows.Count).End(xlUp).Row

If Not Application.Intersect(Target, Range("E9", Cells(LastRow, "E"))) Is Nothing Then

    Cells(Target.Row, "F").Value = Now

End If

1:

End Sub

قام بنشر

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

كل سنة وانت طيب

جزاك الله عنا خير الجزاء على كل ما تقدمة يا استاذنا الغالي وجعلك الله عونا ومددنا لنا بمعلوماتك القيمة

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information