تعلم واقرأ وارتقِ
[img]كود حذف ملف الاكسل Uoou910[/img]
تعلم واقرأ وارتقِ
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

تعلم واقرأ وارتقِ


 
الرئيسيةالبوابةالتسجيلدخول
غفرانك ربنا واليك المصير
رب زدني علما
سجل بالمنتدى ليظهر لك باقى المواضيع المهمه
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
علم اولادك برياض الأطفال والصفوف الأولى من التعليم الابتدائى
مجدى يونس ببورسعيد
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل arabicnet فمرحبا به

عزيزى زائر المنتدى مرحبا بك نرجو التسجيل حتى تشاهد باقى الصفحات المختفية بها المواضيع المهمة

 

 كود حذف ملف الاكسل

اذهب الى الأسفل 
كاتب الموضوعرسالة
khaled alborene



عدد المساهمات : 3
تاريخ التسجيل : 05/07/2019

كود حذف ملف الاكسل Empty
مُساهمةموضوع: كود حذف ملف الاكسل   كود حذف ملف الاكسل Icon_minitimeالسبت يوليو 13, 2019 3:41 pm

تحية طيبة 


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

عدد المساهمات : 1428
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

كود حذف ملف الاكسل Empty
مُساهمةموضوع: رد: كود حذف ملف الاكسل   كود حذف ملف الاكسل Icon_minitimeالسبت يوليو 13, 2019 8:29 pm

الاخ خالد
اهلا بك
اليك الكود
بمجرد فتح الملف سيري ان كان تاريخ اليوم اكبر من التاريخ الذي حددته سيحذف بيانات الشيت .. غير ذلك يبقي الوضع كما هو عليه ....  هذا هو الكود انشئ موديول جديد والصق به هذا الكود مع تغيير التاريخ للتاريخ الذي تريده
Sub ClearSheet()
Dim Ddate As Date
Ddate = "28/07/2019"

If Date > Ddate Then
Sheet1.Cells.ClearContents
End If
End Sub

وفي حدث فتح الملف الصق هذا السطر

Private Sub Workbook_Open()
ClearSheet
End Sub

اليك كود اخر



هذا كود لحذف محتويات أكثر من ورقة عمل مع رسالة تنبية  يوضع فى حدث المصنف : ( غيّر التاريخ كما تشاء )

Private Sub Workbook_Open() If Date > #30/8/2019# Then For Each x In ThisWorkbook.Sheets x.UsedRange.Clear Next ThisWorkbook.Save MsgBox "sorry all data delated by mokhtar " End If End Sub




كود اخر


بيحذف كل البيانات فى الملف مع رسالة
Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

If Date > #30/10/2019# Then

For Each x In ThisWorkbook.Sheets
x.UsedRange.Clear
Next
ThisWorkbook.Save


Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "sorry all data delated after 1/10/2019 "
End If
End Sub


كود مع الشرح


Private Sub Workbook_Open()
'يقوم الكود بمسح محتويات الخلايا في كافة أوراق العمل بعد تاريخ محدد
'------------------------------------------------------------------
'الإعلان عن المتغيرات
Dim SH As Worksheet
'الإعلان عن ثابت من النوع تاريخ ليمثل التاريخ المراد العمل عليه في الكود
Const MyDate = #30/10/2019#
'إلغاء خاصية اهتزاز الشاشة
Application.ScreenUpdating = False
'إلغاء خاصية رسائل التنبيه
Application.DisplayAlerts = False
'إذا تحقق الشرط وكان تاريخ اليوم أكبر من التاريخ الثابت في الكود
If Date > MyDate Then
'حلقة تكرارية لكافة أوراق العمل
For Each SH In ThisWorkbook.Sheets
'مسح محتويات وتنسيقات ورقة العمل في النطاق المستخدم
SH.UsedRange.Clear
Next
'حفظ المصنف
ThisWorkbook.Save
'رسالة تفيد أن البيانات قد تم محوها
MsgBox "Sorry All Data Deleted After " & MyDate
End If
'إعادة تفعيل خاصية رسائل التنبيه
Application.DisplayAlerts = True
'إعادة تفعيل خاصية اهتزاز الشاشة
Application.ScreenUpdating = True
End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdiyonis1.forumegypt.net
 
كود حذف ملف الاكسل
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
تعلم واقرأ وارتقِ :: تعلم الاكسل-
انتقل الى: