زيادة العدد الموجود في الخليه كل يوم

[فهد بن احمد]

اخواني ممكن معادلة تزيد العدد الي في الخليه 1 كل يوم 

 

يعني عندي في العامود a1 فية رقم 5 اذا فتحت الشين اليوم الي بعدة يصبح الرقم 5 الي 6 وكذا كل يوم يزيد 1 

[محمد هشام.]

يمكنك فعلها من خلال 

'مثال
Private Sub Workbook_Open()
Sheet1.[A1] = Sheet1.[A1] + 1
End Sub
'''''''''''''''
Or
Private Sub Workbook_Open()
Dim r As Range
Set r = Sheet1.[A1]
If r > 0 Then r = r + 1
End Sub

لاكن مادا لم قمت بفتح الملف اكثر من مرة في نفس اليوم 

[فهد بن احمد]

مرحبا أستاذ محمد 

 انا افتح الملف في نفس اليوم كثير اريد يبقى على نفس الرقم 

فقط بعد مرور 24 ساعة يتم تغيير كل رقم في الخلية +1 

تجربة.xlsx

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

ارجو ان يكون هذا هو الحل

تم الدخول على موقع ذكاء صناعى وطرح مشكلتك وكان هذا هو الرد

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
 

تم تعديل فبراير 1, 2024 بواسطه القناص المصرى
اضافة صورة شرح

[محمد هشام.]

تفضل جرب هدا

Option Explicit

Private Sub Workbook_Open()
    Call IncrementDailyOpenCounter(UpdateCell:=Sheet1.[a1])
End Sub

Private Sub IncrementDailyOpenCounter(ByVal UpdateCell As Range)

    On Error Resume Next
    Debug.Assert [DateStamp]
   
    If Err Then
        Call Me.Names.Add("DateStamp", Date, False)
        GoTo Update
    End If
   
    If Date > [DateStamp] Then
        Me.Names("DateStamp").Value = CLng(Date)
        GoTo Update
    End If
   
    Exit Sub
Update:
    UpdateCell = UpdateCell + 1&
    Me.Save

End Sub

 

تجربة v2.xlsm

[محمد هشام.]

Test after 2 days

تجربة v2.xlsm