اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

اخواني ممكن معادلة تزيد العدد الي في الخليه 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

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

قام بنشر (معدل)

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

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

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
 

Screenshot_٢٠٢٤٠٢٠١-٠٩٢٠٥٥.png

Screenshot_٢٠٢٤٠٢٠١-٠٩٢١٠٥.png

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

تفضل جرب هدا

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

  • Like 1

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