مطلوب كود يقوم بمسح بيانات مدخله ومعادلات بعد تاريخ محدد ؟

[ابو اياد ( الاسيوطى )]

السلام عليكم

 

المطلوب بأختصار فى الشيت الاول DATA

 

1- مطلوب كود يقوم مسح جميع البيانات المدخله فى النطاق الاصفر من الخليه B1 الى الخليه i 2880 بعد تاريخ محدد ليكون 15 / مايو / 2014 ويتم تحديد المده بداخل الكود فقط

 

المطلوب بأختصار فى الشيت الثانى RES

 

1- مطلوب كود يقوم بعمل المعادلات ويحل محلها ويتوقف بعد تاريخ محدد ليكون 15 / مايو / 2014 ويتم تحديد المده بداخل الكود

 

 

2- مطلوب كود يقوم مسح جميع المعادلات المدخله فى النطاق الاصفر من الخليه C8 الى الخليه AA40 بعد تاريخ محدد ليكون 15 / مايو / 2014 ويتم تحديد المده بداخل الكود

 

 

DATA.rar

[حمادة باشا]

الأخ الحبيب/ محمود الاسيوطى

السلام عليكم ورحمة الله وبركاته

كرد سريع - الكود التالي يقوم بعمل الآتي في التاريخ المحدد - ضعه داخل ThisWorkbook:

1- حذف البيانات من الشيت الأول DATA

2- حذف المعادلات من الشيت الثاني RES ( مع الإبقاء علي البيانات - حسب طلبك )

Private Sub Workbook_Open()
If Date >= CDate("15/05/2014") Then
    Application.ScreenUpdating = False
    Sheet1.Range("B1:I2880").ClearContents
    With Sheet2.Range("C8:AA40")
        .Value = .Value
    End With
    Me.Save
    Application.ScreenUpdating = True
End If
End Sub

جعل الكود يقوم محل المعادلات تحتاج لوقت - يمكن ذلك عن طريق أمر Formula - وأعتقد رغبة إحلال الكود محل المعادلات

لجعل تفعيل الماكرو يبدو مألوفا دون تفكير - وساعة الصفر .... ( أو لعل الأمر غير ذلك ) - تقبل تحياتي

تم تعديل مارس 3, 2014 بواسطه حمادة باشا

[۩◊۩ أبو حنين ۩◊۩]

لسلام عليكم

 

اخى العزيز حماده باشا

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

لان عند تطبيقه يظهر خطاء

[حمادة باشا]

الأخ الكريم/ ۩◊۩ أبو حنين ۩◊۩

السلام عليكم ورحمة الله وبركاته

الملف يعمل بدون أخطاء - إفتح الكود وغير التاريخ إلي اليوم

تقبل تحياتي

DATA.rar

تم تعديل مارس 3, 2014 بواسطه حمادة باشا

[ابو اياد ( الاسيوطى )]

السلام عليكم

 

استاذنا الكبير// حماده باشا ( اسم على مسمى باشا فعلا )

 

سهوله الاداء وسرعته نقطه من مميزاتك بارك الله فيك

 

دائما مختصر وتصيب قلب الهدف ( بتجيب من الاخر )

 

تم تنفيذ المطلوب وفى انتظار احلال الكود محل المعادله

 

بارك الله فيكم

 

وكده اتعشت

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب حماده

سلمت يداك

الاخ العزيز محمود الاسيوطى ... دائما تفكر فيما نحتاجه

كيف يكون شكل الكود اذا ارنا ان نضيف اكثر من شيت فى الطلب الاول

واكثر من شيت فى الطلب الثانى

وكيف الامر اذا كانت كل الشيتات محميه بكلمه سر

Private Sub Workbook_Open()
If Date >= CDate("15/05/2014") Then
    Application.ScreenUpdating = False
    Sheet1.Range("B1:I2880").ClearContents
    With Sheet2.Range("C8:AA40")
        .Value = .Value
    End With
    Me.Save
    Application.ScreenUpdating = True
End If
End Sub

 

جزاكم الله كل الخير

تم تعديل مارس 4, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[حمادة باشا]

الأخ العزيز/ محمود الاسيوطى

السلام عليكم ورحمة الله وبركاته

1- تم الإلتزام بآلية عمل الملف - ماترتب عليه معادلات " شبحية " تحسب وتختفي

2- عند التاريخ المحدد - يتعطل زر حساب الساعات ولا يعمل

3- لابد من التجربة الفعلية - الكود يعالج كل خلية علي حده - السهو أو نسيان أحدها أمر وارد

تقبل تحياتي

 

DATA.rar

[ابو اياد ( الاسيوطى )]

من قبل مراجع الملف

انت انسان رائع وحقا ان اكن لك كل حب وود واحترام وتقدير

ولك ترفع القبعه سيدى الفاضل // حماده باشا

تقبل تحياتى ولنا لقاء اخر بعد مراجعه الملف

عندى كودين اريد تركيبهم عليه

 

1 - كود يجبر المستخدم على تشغيل ماكرو حتى نضمن عمل وسريان الكود للتاريخ المحدد

2- كود يمنع المستخدم من حفظ الملف بمدى اخر حتى لا يتم حفظ الملف بصيغه لا تحتفظ بأكواد فيجوال بيسك

3- حمايه بيانات  الشيت والشيت نفسه من النسخ او تعديل اسم الشيت ( طبعا هذه الخاصيه من اكسل نفسه بدون اكواد ) 

اراجع الملف وان شاء الله نلتقى وارفق لك الاكواد ( اتذكر انها من اعمال أستاذ // عبد الله المجرب )

 

اخى حماده باشا لى موضوع اخر بأسم

 

كيف يتم الترحيل بالكود لهذه القيود بشرط

 

لا اعلم لماذا لم يفتح معى هل هناك شئ ما خطأ

[ابو اياد ( الاسيوطى )]

السلام عليكم 

في البداية 

جرب المرفق

1.  لا يمكن حفظ الملف بأي صيغة اخرى

2. الملف لا يعمل اذا كان الامان منخفض

3. لا يمكن التعديل على الملف

 

===

 

اخى العزيز واستاذى // حماده باشا

هذا ملف الاستاذ // عبد الله المجرب ( ابو احمد ) جزاه الله كل خير

به الاكواد النى اخبرتك عنها بالمشاركه السابقه 8#

ولكنى لا اعلم ماهيه كل كود او هل هو الذى يقوم بهذا ( عمل الكود ) لقله خبرتى بالكود

ارجو ان ترفق الاكواد بمشاركه ووظيفه كل كود

خاصه 

 

 

1.  لا يمكن حفظ الملف بأي صيغة اخرى

2. الملف لا يعمل اذا كان الامان منخفض وتظهر رساله تجبر المستخدم على تدنيه ماكرو لعمل الكود اى ليس بها إلا اختيار واحد وهو ok لتدنيه امان ماكرو لفتح الملف ويعمل الكود

 

واود وضعهم فى ملفى 

بارك الله فيكم

 

بالنسبه للملف الاخير العمل اكثر من رائع كما قلت قبل ان اراه فعلا رائع

 

ولكن لى طلب بسيط ان يعمل بدون زر اى بمجرد ادخال البيانات يتم حساب الساعات

 

ايضا ماذا اذا كان هناك مثلا 6 شيتات باسماء من 1 الى 6 هل سيعمل عليهم الكود

 

بارك الله فيك 

 

انتظرك

Abu_Ahmed.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب حماده

سلمت يداك

كيف يكون شكل الكود اذا ارنا ان نضيف اكثر من شيت فى الطلب الاول

واكثر من شيت فى الطلب الثانى

وكيف الامر اذا كانت كل الشيتات محميه بكلمه سر

Private Sub Workbook_Open()
If Date >= CDate("15/05/2014") Then
Application.ScreenUpdating = False
Sheet1.Range("B1:I2880").ClearContents
With Sheet2.Range("C8:AA40")
.Value = .Value
End With
Me.Save
Application.ScreenUpdating = True
End If
End Sub

[ابو اياد ( الاسيوطى )]

للرفع

[حمادة باشا]

الأخ العزيز/ محمود الاسيوطى

السلام عليكم ورحمة الله وبركاته

بالنسبة لكود يجبر المستخدم علي تفعيل الماكرو معمول به ضمنيا لدينا

لن يتم حساب الساعات إلا بتمكين الماكرو .

أما ما يتعلق بعدم حفظ الملف بإمتداد آخر لم أجرب المرفق لضيق الوقت

تقبل تحياتي

 

DATA.rar

[ابو اياد ( الاسيوطى )]

استاذنا العزيز // حماده باشا

بارك الله فيكم على تعبكم وتعاونكم منقطع النظير

وبكل حب وود ننتظركم فأرجوا أن لا تنسونا

جزاكم الله كل خير وجعل جميع اعمالكم فى ميزان حسناتكم

تقبل تحياتى

[ابو اياد ( الاسيوطى )]

السلام عليكم

 

استاذنا الكبير // حماده باشا

 

حاولت جاهدا ان اعبث بالكود لأنال مرادى ولكنه لم يتحقق تم اضافه عدد 5 شيتات اخرى

ما الخطأ فى هذا المرفق ثم 

 

اولا - اريد ان ترفق به كود ( رساله ) اجبار المستخدم على تمكين عمل وحدات الماكرو

ليس بها إلا اجابه واحده ok فعليه اختيارها مجبرا وان لم يفعل واغلق الرساله تم اغلاق الملف 

حتى يفتحه مره اخرى وتظهر له الرساله مره اخرى ليضغط ok 

 

ثانيا - كود يقوم بمنع المستخدم  بحفظ الملف بصيغه اخرى حتى لا يحاول ان يحفظه بصيغه لا تعمل على فعاليه وسريان عمل الكود مثل xlsx. على حد علمى هذه الصيغه لا تعمل معها الاكواد

 

ارجو ان لا اكون ارهقتك

 

تقبل تحياتى

يوميه.rar

[حمادة باشا]

الأخ العزيز/ محمود الاسيوطى

السلام عليكم ورحمة الله وبركاته

مرفق التالي :

1- لابد من تمكين الماكرو لإظهار صفحات البيانات

2- بعد تمكين الماكرو لايمكن حفظ بإسم - حفظ فقط

3- الصفحات المضافة لا تظهر الخطا

الملاحظات :

1- هناك كود ( بديل المعادلات ) غير موجود في هذا الملف - كيف سيتم الحساب ؟

    علما بأن كل صفحة مضافة لابد من نسج الكود الخاص بها ( كثير من الكود )

    قم بعمل مقارنة بين هذا الملف والملف المرسل مني سابقا .

2- يمكن حفظ الملف بإسم قبل تمكين الماكرو ( علي نسخة 2003 ) والإلتفاف علي

    حاجز الماكرو ( لا أعمل علي إصدار 2003 لتجربة الأمر )

    تقبل تحياتي

 

 

يوميه.rar

[ابو اياد ( الاسيوطى )]

الأخ الحبيب/ محمود الاسيوطى

السلام عليكم ورحمة الله وبركاته

كرد سريع - الكود التالي يقوم بعمل الآتي في التاريخ المحدد - ضعه داخل ThisWorkbook:

1- حذف البيانات من الشيت الأول DATA

2- حذف المعادلات من الشيت الثاني RES ( مع الإبقاء علي البيانات - حسب طلبك )

Private Sub Workbook_Open()
If Date >= CDate("15/05/2014") Then
    Application.ScreenUpdating = False
    Sheet1.Range("B1:I2880").ClearContents
    With Sheet2.Range("C8:AA40")
        .Value = .Value
    End With
    Me.Save
    Application.ScreenUpdating = True
End If
End Sub

جعل الكود يقوم محل المعادلات تحتاج لوقت - يمكن ذلك عن طريق أمر Formula - وأعتقد رغبة إحلال الكود محل المعادلات

لجعل تفعيل الماكرو يبدو مألوفا دون تفكير - وساعة الصفر .... ( أو لعل الأمر غير ذلك ) - تقبل تحياتي

 

السلام عليكم

كيف حالك استاذى // حماده باشا ارجو ان تكون بخير

 

اولا - هذا الكود هو محور الموضوع والحمد لله تم انجازه وهو ألغاء المعادلات بعد تاريخ معين 

فقط اريد تنفيذه على المرفق بالمشاركه 14#

 

ثانيا - المرفقات المتتاليه بعد مرفقق الاول كان بها اخطأ لا اعلم ما هى تحديدا فى الكود - مره المعادلات لم تلغى 

ان اخرت تاريخ الكمبيوتر مره اخرى يعود الزر ويعمل مثله مثل المعادله 

 

وان كان هنا الفيصل هو عدم عوده الملف للعمل مره اخرى كما المرفق الاول لك وهو فقط يقوم بألغاء المعادلات بعد التاريخ الذى حددناه له

 

استاذى دعنا نركز على ما انجزته حضرتك بالكود الاول وهو تحديدا المطلوب وان شاء الله الباقى هين

فقط ارجو تنفيذ الكود الاول لك على المرفق بالمشاركه 14#

 

تقبل تحياتى وانتظرك

 

ويكون تم تنفيذ المطلوب هكذا

 

 

1- حذف البيانات من الشيت الأول DATA

2- حذف المعادلات من باقى الشيتات 1-2-3-4-5-6 ( مع الإبقاء علي البيانات - حسب طلبك )

[حمادة باشا]

الأخ العزيز/ محمود الاسيوطى

السلام عليكم ورحمة الله وبركاته

- لم أعلم أن المعادلات تعود مرة أخري إذا غيرت إعدادات التاريخ - يمكننا إيجاد حل لهذا الأمر

- عدا عن ذلك هل هناك قصور آخر ؟

- خطأ الصفحات المتعددة كان موجود بالفعل ولكن تم حله كما ذكرت لك

- المشكل ان كل صفحة تحتاج أكواد لكل خلية بها معادلة فإذا كانت الصفحات المضافة متماثلة ( المعادلات في

  نفس المكان في كل الصفحات ) يمكن تمرير الكود عليها بشكل دائري متكرر Loop .

- إن كنت تريد الإبقاء علي المعادلات - كما ألمحت - من خلال الشيت وإلغائها فقط في التاريخ المحدد

  فكيف إذا ستجبر المستخدم علي تمكين الماكرو ؟

تقبل تحياتي

[ابو اياد ( الاسيوطى )]

استاذى العزيز // حماده باشا

المعادله او الكود كلامها واحد بعد تعديلاتك

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

هل يمكن للكود ( بديل المعادله ) ان يتم تعطيله دون رجعه بعد تاريخ محدد !!!  اعتقد هكذا نجبر المستخدم على تفعيل وحدات ماكرو ونضمن عدم عمل الكود بعد تاريخ محدد

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

واطمع فى الاتى -- ملفين الاول بكود ( بديل المعادله )  -- والملف الثانى بالمعادلات 

الملف الاول الاهم -- يتم تعطيل عمل الكود ( بديل المعادله ) بعد تاريخ محدد ولن يعود للعمل مره حتى اذا تاخر تاريخ الكمبيوتر

الملف الثانى هام ايضا يتم مسح المعادلات بعد التاريخ المحدد كما الكود الاول لك فبذلك لن يعمل الملف بعد التاريخ المحدد لعدم وجود المعادلات ولن يعود الملف للعمل مره حتى اذا تاخر تاريخ الكمبيوتر

ارجو التنفيذ على الملف المرفق المشاركه 14# لآنه الشكل النهائى للملف

تقبل تحياتى

معلومه صغيره ارجو ان يكون امتداد الملف ( صيغته ) xlsb or xls

مع العلم اعمل على 2007

[ابو اياد ( الاسيوطى )]

up

[ابو اياد ( الاسيوطى )]

up

[ابو اياد ( الاسيوطى )]

up

[ابو اياد ( الاسيوطى )]

من الواضح ان استاذنا // حماده باشا 

مشغول كان الله فى عونه

بارك الله فيك وجعل جميع اعمالك فى ميزان حسناتك

تقبل تحياتى

 

وانتظر ان شاء الله

[حمادة باشا]

الأخ العزيز/ محمود الاسيوطى

السلام عليكم ورحمة الله وبركاته

تم - بفضل الله تعالي - عمل المطلوب لكن الأوراق جميعها محمية ولابد من فك الحماية داخل الكود

لإستكمال خطوات العمل والتجربة - تقبل تحياتي

[ابو اياد ( الاسيوطى )]

السلام عليكم

 

كيف حالكم استاذى // حماده باشا

عسى ان يكون المانع خير سيبك من كل حاجه المهم انت واهل بيتك كله تمام بخير والحمد لله

ارجو ان نطمئن عليكم اولا وقبل كل شىء

 

والملف عذرا كان محمى أليك النسخه الغير محميه واود ان اضع امام ذاكرتكم هذا مره اخرى

 

 

واطمع فى الاتى -- ملفين الاول بكود ( بديل المعادله )  -- والملف الثانى بالمعادلات 

 

الملف الاول الاهم -- يتم تعطيل عمل الكود ( بديل المعادله ) بعد تاريخ محدد ولن يعود للعمل مره حتى اذا تاخر تاريخ الكمبيوتر

 

الملف الثانى هام ايضا يتم مسح المعادلات ( بكود المسح ) بعد التاريخ المحدد كما الكود الاول لك فبذلك لن يعمل الملف بعد التاريخ المحدد لعدم وجود المعادلات ولن يعود الملف للعمل مره حتى اذا تاخر تاريخ الكمبيوتر

 

معلومه صغيره ارجو ان يكون امتداد الملف ( صيغته ) xlsb or xls

مع العلم اعمل على 2007

 

 

يوميه2.rar

[حمادة باشا]

الأخ العزيز/ محمود الاسيوطى

السلام عليكم ورحمة الله وبركاته

جزاك الله خيرا علي سؤالك - الحمد لله بخير - فقط ضغوط العمل وقلة الفراغ

أنا أعمل علي الملف الأخير - بإذن الله أرفعه حال أنتهي منه - تقبل تحياتي