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

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

قام بنشر

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

كما هو معروف لدي ان الداله 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

قام بنشر

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information