ابو حبيبة وحنين قام بنشر فبراير 24, 2015 مشاركة قام بنشر فبراير 24, 2015 اريد كود حذف محتويات الشيت بعد تاريخ معين رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر فبراير 24, 2015 مشاركة قام بنشر فبراير 24, 2015 اخى الفاضل تفضل الملف المرفق لعله يفي بالمطلوب .. غير التاريخ بالكود للتاريخ الذي تريد حذف محتويات الشيت بعده تحياتي ClearAfterDate.rar 1 رابط هذا التعليق شارك More sharing options...
ابو حبيبة وحنين قام بنشر فبراير 24, 2015 الكاتب مشاركة قام بنشر فبراير 24, 2015 متشكر لاهتمامك : ولكن لا يوجد كود رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر فبراير 24, 2015 مشاركة قام بنشر فبراير 24, 2015 متشكر لاهتمامك : ولكن لا يوجد كود اخى الفاضل ازاى يعني لا يوجد كود، الكود لا يعمل من خلال زر أمر ... لكن بمجرد فتح الملف سيري ان كان تاريخ اليوم اكبر من التاريخ الذي حددته سيحذف بيانات الشيت .. غير ذلك يبقي الوضع كما هو عليه .... شاهد المرفق وعامة هذا هو الكود انشئ موديول جديد والصق به هذا الكود مع تغيير التاريخ للتاريخ الذي تريده Sub ClearSheet() Dim Ddate As Date Ddate = "28/02/2015" If Date > Ddate Then Sheet1.Cells.ClearContents End If End Sub وفي حدث فتح الملف الصق هذا السطر Private Sub Workbook_Open() ClearSheet End Sub تحياتي Code.rar 3 رابط هذا التعليق شارك More sharing options...
ابو حبيبة وحنين قام بنشر فبراير 24, 2015 الكاتب مشاركة قام بنشر فبراير 24, 2015 الكود مش شغال رابط هذا التعليق شارك More sharing options...
ابو حبيبة وحنين قام بنشر فبراير 24, 2015 الكاتب مشاركة قام بنشر فبراير 24, 2015 على العموم متشكر على مجهودك رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر فبراير 24, 2015 مشاركة قام بنشر فبراير 24, 2015 ارفق الملف اللى انت شغال عليه .. يعنى افتح ملف جديد عندك وانشئ موديول جديد والصق به الكود وارفقه تحياتي رابط هذا التعليق شارك More sharing options...
أبو أية قام بنشر مارس 22, 2015 مشاركة قام بنشر مارس 22, 2015 الأخ الكريم ibn_egypt جزاك الله خيرا على هذا العمل الكود يعمل بالفعل وأرجوا منك اجراء تعديل لحذف محتويات أكثر من ورقة بالملف وشكرا لك على مجهودك الرائع رابط هذا التعليق شارك More sharing options...
أحمد مرجان قام بنشر مارس 22, 2015 مشاركة قام بنشر مارس 22, 2015 بارك الله فيك Ibn-Egypt رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 22, 2015 مشاركة قام بنشر مارس 22, 2015 الأخ أبو آية أهلا بك عضوا جديدا في المنتدى يرجى إرفاق ملفك بعد ضغطه للعمل عليه رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر مارس 22, 2015 مشاركة قام بنشر مارس 22, 2015 (معدل) السلام عليكم بعد اذن الأساتذة هذا كود لحذف محتويات أكثر من ورقة عمل مع رسالة تنبية يوضع فى حدث المصنف : ( غيّر التاريخ كما تشاء ) Private Sub Workbook_Open() If Date > #1/30/2015# Then For Each x In ThisWorkbook.Sheets x.UsedRange.Clear Next ThisWorkbook.Save MsgBox "sorry all data delated by mokhtar " End If End Sub تحياتى تم تعديل مارس 22, 2015 بواسطه مختار حسين محمود 1 رابط هذا التعليق شارك More sharing options...
ابو حبيبة وحنين قام بنشر مايو 11, 2015 الكاتب مشاركة قام بنشر مايو 11, 2015 شكر خاص وطلب للأستاذ ibn_egypt ممكن تعدل الكود تخليه يحذف كل البيانات الموجودة في الشيتات كلها مش شيت واحد رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر مايو 11, 2015 مشاركة قام بنشر مايو 11, 2015 (معدل) أخى وحبيبى ابن مصر بعد اذنك حضرتك أخى أبو حبيبة وحنين ( ربنا يبارك لك فيهما ) الكود التالى هو نفس الكود اللى فوق مشاركتك تماما مع التعديل البسيط هو بيحذف كل البيانات فى الملف مع رسالة Private Sub Workbook_Open() Application.ScreenUpdating = False Application.DisplayAlerts = False If Date > #1/30/2015# 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 30/1/2015 " End If End Sub ضع الكود فى حدث المصنف واكتب أى بيانات فى أى شيت احفظ واقفل الملف ثم أعد فتحه لن تجد أى بيانات فى أى شيت تحياتى تم تعديل مايو 11, 2015 بواسطه مختار حسين محمود 1 رابط هذا التعليق شارك More sharing options...
ابو حبيبة وحنين قام بنشر مايو 25, 2015 الكاتب مشاركة قام بنشر مايو 25, 2015 شاكر جدا بس مش فاهم ما هو حدث المصنف رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 الأخ أبو حبيبة وحنين لما تروح لمحرر الأكواد عن طريق Alt + F11 مثلاً هتلاقي في نافذة المشروع Project Window أو اسمها Project - VBA Projetc هتلاقي الكائنات الموجودة في الملف .. Sheet1 و Sheet2 و هتلاقي حدث المصنف ThisWorkbook ... انقر دبل كليك وبس خلاص إنت كدا جوا الحدث ..عيش الحدث وشوف هتعرف تعيش الحدث ولا الحدث هو اللي هيعيشك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 ومحبة مني إليك شرح كود الأستاذ الكبير والأخ الغالي مختار (اللي مش بيرد على تليفونات) Private Sub Workbook_Open() 'يقوم الكود بمسح محتويات الخلايا في كافة أوراق العمل بعد تاريخ محدد '------------------------------------------------------------------ 'الإعلان عن المتغيرات Dim SH As Worksheet 'الإعلان عن ثابت من النوع تاريخ ليمثل التاريخ المراد العمل عليه في الكود Const MyDate = #1/30/2015# 'إلغاء خاصية اهتزاز الشاشة 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 ومتنسناش إحنا التلاتة بدعوة بظهر الغيب (مرضتش أقول إحنا الأربعة عشان رقم 4 من المحظورات ..) أنا وإنت وابن مصر ومختار .. ولا أقولك ادعي لكل الأعضاء (كل دعوة هتتردلك) رابط هذا التعليق شارك More sharing options...
ابو حبيبة وحنين قام بنشر مايو 31, 2015 الكاتب مشاركة قام بنشر مايو 31, 2015 ومحبة مني إليك شرح كود الأستاذ الكبير والأخ الغالي مختار (اللي مش بيرد على تليفونات) Private Sub Workbook_Open() 'يقوم الكود بمسح محتويات الخلايا في كافة أوراق العمل بعد تاريخ محدد '------------------------------------------------------------------ 'الإعلان عن المتغيرات Dim SH As Worksheet 'الإعلان عن ثابت من النوع تاريخ ليمثل التاريخ المراد العمل عليه في الكود Const MyDate = #1/30/2015# 'إلغاء خاصية اهتزاز الشاشة 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 ومتنسناش إحنا التلاتة بدعوة بظهر الغيب (مرضتش أقول إحنا الأربعة عشان رقم 4 من المحظورات ..) أنا وإنت وابن مصر ومختار .. ولا أقولك ادعي لكل الأعضاء (كل دعوة هتتردلك) لو سمحت شوف الرسالة في الصورة المرفقة New Picture (1).rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 31, 2015 مشاركة قام بنشر مايو 31, 2015 الأخ الكريم أبو حبيبة وحنين إليك الفيديو التالي علك تجد فيه ضالتك رابط هذا التعليق شارك 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.