القناص المصرى

ارجو ان يكون هذا هو الحل تم الدخول على موقع ذكاء صناعى وطرح مشكلتك وكان هذا هو الرد Private Sub Workbook_Open() Dim r As Range Set r = Sheet1.[A1] If DateDiff("h", r.Value, Now) >= 24 Then r.Value = r.Value + 1 End If End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim r As Range Set r = Sheet1.[A1] r.Value = r.Value + 1 End Sub