تحديث التاريخ تلقائيا عند تغيير قيمة الخلية

[abofayez1]

السلام عليكم ورحمة الله

إخوتي الكرام

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

الحضور.xlsx

[Ali Mohamed Ali]

وعليكم السلام , طالما انك لا تريد الحل بالأكواد .فلا يمكن عمل هذا الا بهذه المعادلة

=IF(A2<>"",IF(AND(B2<>"",CELL("address")=ADDRESS(ROW(A2),COLUMN(A2))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A2),COLUMN(A2)),B2,NOW())),"")

 

الحضور1.xlsx

[Ali Mohamed Ali]

وهذا حل ايضا بالكود على الرغم انك قد رافض هذا الأمر من البداية فلهذا موضوعك اخذ أكبر من وقته وحجمه فالموضوع ابسط من هذا بكثير -تفضل وذلك من خلال وضع هذا الكود بحدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 1
xTimeColumn = 2
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

الحضور1.xlsm

[عبدالفتاح في بي اكسيل]

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

[عبدالفتاح في بي اكسيل]

اخي  ابو فايز   اتمنى ان  تتقبل ملاحظتي براحابة  صدر     انا عممت على  الاعضاء    لاني  لاحظت  هذا  الشي  يتكرر  كثيرا    

تفبل تحياتي 

[abofayez1]

ملاحظاتك على عيني وراسي ...وأتشرف بالنقد وكلنا لبعض .. وفقك ربي أخي عبدالفتاح هذا والله يدل على طيب أصلك  ووالله ما أخذت في نفسي من كلامك شيء لكن استحيت أن أكون ضيف ثقيل على المنتدى . وفقك ربي يا أستاذ عبدالفتاح.