فهد بن احمد قام بنشر يناير 31 مشاركة قام بنشر يناير 31 اخواني ممكن معادلة تزيد العدد الي في الخليه 1 كل يوم يعني عندي في العامود a1 فية رقم 5 اذا فتحت الشين اليوم الي بعدة يصبح الرقم 5 الي 6 وكذا كل يوم يزيد 1 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يناير 31 مشاركة قام بنشر يناير 31 يمكنك فعلها من خلال 'مثال 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 لاكن مادا لم قمت بفتح الملف اكثر من مرة في نفس اليوم رابط هذا التعليق شارك More sharing options...
فهد بن احمد قام بنشر فبراير 1 الكاتب مشاركة قام بنشر فبراير 1 مرحبا أستاذ محمد انا افتح الملف في نفس اليوم كثير اريد يبقى على نفس الرقم فقط بعد مرور 24 ساعة يتم تغيير كل رقم في الخلية +1 تجربة.xlsx رابط هذا التعليق شارك More sharing options...
القناص المصرى قام بنشر فبراير 1 مشاركة قام بنشر فبراير 1 (معدل) ارجو ان يكون هذا هو الحل تم الدخول على موقع ذكاء صناعى وطرح مشكلتك وكان هذا هو الرد 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 بواسطه القناص المصرى اضافة صورة شرح رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر فبراير 1 مشاركة قام بنشر فبراير 1 تفضل جرب هدا 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 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر فبراير 3 أفضل إجابة مشاركة قام بنشر فبراير 3 Test after 2 days تجربة v2.xlsm 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.