كود لحذف جميع الدوال والمعادلات

[amir501]

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

الاول لكي تعم الفائدة وليستفيد منه كل الاعظاء قدر الامكان ..؟

والسبب الثاني لتطوير هذا الكود ليوافي متطلبات جميع اخواننا ...فمثلا هذا الكود بمجرد ان تصل الى تاريخ معين (طبعا تاريخ انتهاء فترة عمل البرنامج )

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

طبعا هذا الكود يقوم بمسح جميع المعادلات في كافة الصفحات .... ان امكن تطوير هذا الكود بحيث ان نحدد من خلال الكود الصفحات المراد حذف المعادلات الموجودة بداخلها وتبقى المعادلات في الصفحات الاخرى التي لم يتم اختيارها ...وهكذا نكون قد تقدمنا خطوة باتجاه تطوير هذا الكود

Sub auto_open()

If Sheets(1).Range("F2") > Date Then Exit Sub

Dim CEL As Range

Application.ScreenUpdating = False

Application.Calculation = xlManual

For S = 1 To ActiveWorkbook.Sheets.Count

Sheets(S).Activate

For Each CEL In ActiveSheet.UsedRange

If CEL.HasFormula = True Then CEL = CEL.Value

Next CEL

Next S

Application.Calculation = xlAutomatic

End Sub 

[أبوعبد الله]

أخي العزيز / عامر

رجاء الاطلاع على المرفق وبه فكرة في إطار طلبك أرجو أن تكون مناسبة .

تحياتي

أبو عبدالله

حذف المعادلات يالأوراق المختارة.rar

[amir501]

أخي العزيز / عامر

رجاء الاطلاع على المرفق وبه فكرة في إطار طلبك أرجو أن تكون مناسبة .

تحياتي

أبو عبدالله

انت مبدع ياابا عبد الله دايما فنان ... لكن هل يمكن ان نقوم باختيار صفحات معينة لحذف المعادلات تعمل تلقائيا دون ان تعطينا فورم لااختيار ذلك

اي بمجرد تشغيل الملف تقوم بحذف المعادلات ...

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

Sub auto_open()

Dim Expiry As Date

      Expiry = DateValue("01/08/2010")

    If Date > Expiry Then

Dim CEL As Range

Application.ScreenUpdating = False

Application.Calculation = xlManual

For S = 1 To ActiveWorkbook.Sheets.Count

Sheets(S).Activate

For Each CEL In ActiveSheet.UsedRange

If CEL.HasFormula = True Then CEL = CEL.Value

Next CEL

Next S

Application.Calculation = xlAutomatic

End If

End Sub

كما يوجد مرفق لتوضيح ذلك

aaaaaaaaaaaaaaa.rar

تم تعديل يوليو 24, 2010 بواسطه amir501

[ولدطيبة]

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

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

اخي الكريم

ممكن الحل لفكرتك بـ طريقتين

1 يتم تحديد الأوراق المطلوب العمل عليها عن طريق الإسم للورقة داخل الكود او في احد اوراق الملف

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

لذلك حدد اي الطريقتين تريد

و

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

مع التحية

[amir501]

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

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

اخي الكريم

ممكن الحل لفكرتك بـ طريقتين

1 يتم تحديد الأوراق المطلوب العمل عليها عن طريق الإسم للورقة داخل الكود او في احد اوراق الملف

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

لذلك حدد اي الطريقتين تريد

و

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

مع التحية

اخي الكريم ولد طيبة (تحديد الأوراق المطلوب حذف معادلاتها عن طريق الإسم للورقة داخل الكود ) اي نحن نختار الصفحات التي نريد حذف معادلاتها ونبقى الصفحات الاخرى بمعادلاتها ودالاتها ....؟ مع خالص شكري وامتناني لك ولااخواننا

[أبوعبد الله]

أخي العزيز / عامر

قم فيما بعد وبعد التجرية بتعديل التاريخ بالكود فقد قمت بضبطه على تاريخ اليوم لكل يوم من باب التجربة وحتى تتضح فكرة العمل والآن سيظهر لك بمجرد فتح الملف وعلى اعتبار أن اليوم المطلوب تنفيذ العملية فيه هو اليوم فستظهر لك رسالة لتقوم بتحديد الورقة او الأوراق طبعاً تعلم باستخدام الماوس مع CONTROL لتختار ما تريد من أوراق ثم اضغط CONTROL+SHIFT+D ليتم عمل المطلوب بالأوراق التي اخترتها فقط .

أرجو أن يناسب هذا ما تحتاج .

تحياتي

أبو عبدالله

حذف المعادلات يالأوراق المختارة-1.rar

[amir501]

أخي العزيز / عامر

قم فيما بعد وبعد التجرية بتعديل التاريخ بالكود فقد قمت بضبطه على تاريخ اليوم لكل يوم من باب التجربة وحتى تتضح فكرة العمل والآن سيظهر لك بمجرد فتح الملف وعلى اعتبار أن اليوم المطلوب تنفيذ العملية فيه هو اليوم فستظهر لك رسالة لتقوم بتحديد الورقة او الأوراق طبعاً تعلم باستخدام الماوس مع CONTROL لتختار ما تريد من أوراق ثم اضغط CONTROL+SHIFT+D ليتم عمل المطلوب بالأوراق التي اخترتها فقط .

أرجو أن يناسب هذا ما تحتاج .

تحياتي

أبو عبدالله

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

اشكرك جزيل الشكر يا اخي ابو عبدالله

[ولدطيبة]

تسلم الأيادي استاذنا الفاضل

ابوعبدالله

[amir501]

تسلم الأيادي استاذنا الفاضل

ابوعبدالله

اخي ولد طيبة لك مني كل الشكر والتقدير انت وابو عبد الله هل تتكرم وتضيف الى الكود بان يقوم بعد تحويل الدالات الى قيم ان يقوم بعملية الحفظ تلقائيا ...لاحظت انه بعد عمل الكود وعند اغلاق الملف واختيار عدم الحفظ فانه لا يحذف المعادلات ... فان امكن اكمال الكود بعملية الحفظ التلقائي...اي اذا اغلقنا الملف فيكون الكود قد قام بعملية الحفظ ....وشكرا لك

[احمد فضيله]

بسم الله ما شاء الله

اخي / ابو عبد الله

دائما مبدع

بارك الله فيك

[خالد الشاعر]

تسليم ايدك ابو عبد اللهفكرة ممتازةولكنى جربتها على شيت محمىالكود لم يمسح المعادلات المحميةبرجاء تعديل هذا الخصيةو جزاك الله خيراً