amir501 قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 اخواني جزاكم الله كل خير ارجو المساعدة بتحويل (الغاء) عمل الدالات وتحويل نتائج عملها الى ارقام فقط الشرح في المرفق جزاكم الله عني كل خير الصندوق التعاوني بعد التعديل.rar رابط هذا التعليق شارك More sharing options...
ولدطيبة قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم جزاك الله كل خير اين يتم وضع تاريخ النهاية لكي يتم الحساب بموجبه وتكون الصيغة كالتالي في بدأ تشغيل الملف اذاكان تاريخ اليوم اكبر من التاريخ / وهو مكان التاريخ الذي سوف تحددة اذاً - في جميع اوراق الملف اذاكانت الخلية بها دالة قيمة الخلية = قيمة ناتج الدالة رابط هذا التعليق شارك More sharing options...
amir501 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 اخي الكريم شكرا لك لسرعة الرد.... في اي مكان وان امكن داخل الكود نفسه ..فاذا تجاوزنا هذا التاريخ فان الكود عند بداية تشغيل الملف يقوم بتحويل كل الدالات الى قيمها فقط اي لن يوجد اي دالة في الملف كامل.... جزاك الله واخواننا كل خير رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 مهم نرجو المتابعة من الأخ ولدطيبة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم الكود هو: 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 وبالطبع يمكنك إضافة شرط الوقت أو اليوم رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 وهذا المرفق تستطيع تجربة الكود عليه تحويل جميع الدوال الى نتائج فقط.rar رابط هذا التعليق شارك More sharing options...
amir501 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 وهذا المرفق تستطيع تجربة الكود عليه اخي طارق جزاك الله كل خير ...هذا هو المطلوب ولكن اريده ان يعمل تلقائيا بمجرد بلوغ التاريخ المطلوب على سبيل المثال بتاريخ 1/08/2010 عند تشغيل الملف ومن دون الضغط على اي زر يعمل الكود تلقائيا بتحويل جميع الدالات الى قيم... جزاك الله واخونا ولدطيبة واخواننا كل خير رابط هذا التعليق شارك More sharing options...
ولدطيبة قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 الف الف مليون شكر لأستاذنا العبقري المهندس طارق الله يجزاك بالخير = = = = = = = = = = = = اخي امير لذلك طلبت منك تحديد مكان داخل الملف للتاريخ يكون افضل لكي تقوم انت من داخل الملف بتحديد تاريخ النهاية وانا الآن مشغول ولكن ان شاء الله اليوم مساء يكون الكود هنا وهو مشابه كثيرا للكود المرسل من الأستاذ طارق ولكن سوف احدد خلية في ورقة البداية الأولى لتضع بها التاريخ المطلوب رابط هذا التعليق شارك More sharing options...
ولدطيبة قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 السلام عليكم في الورقة الأولى بيانات الصندوق - الخلية F2 ادخل تاريخ اقل من تاريخ اليوم اغلق الملف ثم اعد فتح الملف لاحظ قيم كل خلايا الدوال الصندوق_التعاوني_بعد_التعديل.rar رابط هذا التعليق شارك More sharing options...
ولدطيبة قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 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 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 21, 2010 مشاركة قام بنشر يوليو 21, 2010 موضوع كله بركة و فائدة عند إجراء تغيير فى آخر خليه بحذفها مثلا فإن موقع آخر خلية يتغير ومع ذلك يعين إكسل مكان الخلية الممسوحة على أنها آخر خلية لأن إكسل لا يعيد أو ينشط حساب عدد الصفوف و الحل فى واحد من اثنين الأول حفظ الملف و غلقه و إعادة فتحه فعند ذلك يعيد إكسل حساب عدد الصفوف الجديد الحل الثانى إضافة السطر التالى فى بدايةالكود x = ActiveSheet.UsedRange.Rows.Count هذا السطر يجبر إكسل على تحديث عدد الصفوف وبالتالى تحديد الموقع الصحيح لآخر خلية الجديد وشكرا للأستاذ طارق على الكود الجيد و المفيد رابط هذا التعليق شارك More sharing options...
amir501 قام بنشر يوليو 22, 2010 الكاتب مشاركة قام بنشر يوليو 22, 2010 موضوع كله بركة و فائدة عند إجراء تغيير فى آخر خليه بحذفها مثلا فإن موقع آخر خلية يتغير ومع ذلك يعين إكسل مكان الخلية الممسوحة على أنها آخر خلية لأن إكسل لا يعيد أو ينشط حساب عدد الصفوف و الحل فى واحد من اثنين الأول حفظ الملف و غلقه و إعادة فتحه فعند ذلك يعيد إكسل حساب عدد الصفوف الجديد الحل الثانى إضافة السطر التالى فى بدايةالكود x = ActiveSheet.UsedRange.Rows.Count هذا السطر يجبر إكسل على تحديث عدد الصفوف وبالتالى تحديد الموقع الصحيح لآخر خلية الجديد وشكرا للأستاذ طارق على الكود الجيد و المفيد اخي الحبيب...ولد طيبة ؟؟؟ لاحرمك الله من طيبة طيبة اخي الحبيب طارق .. اعطاك الله حتى ارضاك اخي كيماس....اكرمك لله اخواني جزاكم الله كل خير وجعلها في رصيد حسناتكم ولا حرمنا الله منكم ومن كرمكم وعلمكم ازادكم الله من علمه وكرمه تقبلو تحياتي وشكري .. اخوكم عامر الموسى رابط هذا التعليق شارك 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.