تحويل عمل الدالات الى قيم فقط

[amir501]

اخواني جزاكم الله كل خير ارجو المساعدة بتحويل (الغاء) عمل الدالات وتحويل نتائج عملها الى ارقام فقط

الشرح في المرفق

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

الصندوق التعاوني بعد التعديل.rar

[ولدطيبة]

السلام عليكم

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

اين يتم وضع تاريخ النهاية

لكي يتم الحساب بموجبه

وتكون الصيغة كالتالي

في بدأ تشغيل الملف

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

اذاً - في جميع اوراق الملف اذاكانت الخلية بها دالة قيمة الخلية = قيمة ناتج الدالة

[amir501]

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

جزاك الله واخواننا كل خير

[عبد الفتاح كيرة]

مهم

نرجو المتابعة

من الأخ

ولدطيبة

[طارق محمود]

السلام عليكم

الكود هو:

Sub delete_all_functions()


x = Worksheets.Count

	For i = 1 To x

 	Worksheets(i).Select

 	Range("A1").Select

 	Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

 	For Each se In Selection

 	se.Value = se.Value

 	Next

	Next i


End Sub

وبالطبع يمكنك إضافة شرط الوقت أو اليوم

[طارق محمود]

وهذا المرفق تستطيع تجربة الكود عليه

تحويل جميع الدوال الى نتائج فقط.rar

[amir501]

وهذا المرفق تستطيع تجربة الكود عليه

اخي طارق جزاك الله كل خير ...هذا هو المطلوب ولكن اريده ان يعمل تلقائيا بمجرد بلوغ التاريخ المطلوب على سبيل المثال بتاريخ 1/08/2010 عند تشغيل الملف ومن دون الضغط على اي زر يعمل الكود تلقائيا بتحويل جميع الدالات الى قيم...

جزاك الله واخونا ولدطيبة واخواننا كل خير

[ولدطيبة]

الف الف مليون شكر لأستاذنا العبقري

المهندس طارق

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

= = = = = = = = = = = =

اخي امير لذلك طلبت منك تحديد مكان داخل الملف للتاريخ يكون افضل

لكي تقوم انت من داخل الملف بتحديد تاريخ النهاية

وانا الآن مشغول

ولكن ان شاء الله اليوم مساء يكون الكود هنا

وهو مشابه كثيرا للكود المرسل من الأستاذ طارق

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

[ولدطيبة]

السلام عليكم

في الورقة الأولى بيانات الصندوق - الخلية F2

ادخل تاريخ اقل من تاريخ اليوم

اغلق الملف

ثم اعد فتح الملف

لاحظ قيم كل خلايا الدوال

الصندوق_التعاوني_بعد_التعديل.rar

[ولدطيبة]

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

[عبد الفتاح كيرة]

موضوع كله بركة و فائدة

عند إجراء تغيير فى آخر خليه

بحذفها مثلا

فإن موقع آخر خلية يتغير

ومع ذلك يعين إكسل مكان الخلية الممسوحة

على أنها آخر خلية

لأن إكسل لا يعيد أو ينشط حساب عدد الصفوف

و الحل فى واحد من اثنين

الأول

حفظ الملف و غلقه و إعادة فتحه

فعند ذلك يعيد إكسل حساب عدد الصفوف الجديد

الحل الثانى

إضافة السطر التالى فى بدايةالكود

x = ActiveSheet.UsedRange.Rows.Count

هذا السطر يجبر إكسل على تحديث عدد الصفوف

وبالتالى تحديد الموقع الصحيح لآخر خلية الجديد

وشكرا للأستاذ طارق على الكود الجيد و المفيد

[amir501]

موضوع كله بركة و فائدة

عند إجراء تغيير فى آخر خليه

بحذفها مثلا

فإن موقع آخر خلية يتغير

ومع ذلك يعين إكسل مكان الخلية الممسوحة

على أنها آخر خلية

لأن إكسل لا يعيد أو ينشط حساب عدد الصفوف

و الحل فى واحد من اثنين

الأول

حفظ الملف و غلقه و إعادة فتحه

فعند ذلك يعيد إكسل حساب عدد الصفوف الجديد

الحل الثانى

إضافة السطر التالى فى بدايةالكود

x = ActiveSheet.UsedRange.Rows.Count

هذا السطر يجبر إكسل على تحديث عدد الصفوف

وبالتالى تحديد الموقع الصحيح لآخر خلية الجديد

وشكرا للأستاذ طارق على الكود الجيد و المفيد

اخي الحبيب...ولد طيبة ؟؟؟ لاحرمك الله من طيبة طيبة

اخي الحبيب طارق .. اعطاك الله حتى ارضاك

اخي كيماس....اكرمك لله

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

تقبلو تحياتي وشكري .. اخوكم عامر الموسى