مساعدة في دالة وكود في اكسيل

[sarab1618]

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

مثال مبسط.rar

[ياسر خليل أبو البراء]

أخي الحبيب إليك الجزء الأول من الطلب

 

CellColor.rar

[sarab1618]

ما هذه الاستجابة الرائعة ...ألف شكر ... ملاحظة هل أستطيع الاحتفاظ بنفس الالوان أم أن هذا مستحيل ...ز

[ياسر خليل أبو البراء]

أخي الحبيب الدالة لا تحتوي على بعض الألوان ولذلك قمت بتغيير اللون ليعمل مع الدالة

وانتظر حلول أخرى إن شاء الله من أساتذة المنتدى الكبار

[أبو حنــــين]

السلام عليكم

جرب هذه الطريقة

مثال مبسط.rar

[sarab1618]

الف شكر للاستاذ

أبو حنين

على هذه الاطلالة الرائعة ... بالنسبة للطلب الثاني الفايل الموجود لدي عبارة عن قاعدة بيانات كبيرة جدا ... يرتبط معها عمليات حسابية معقدة في نفس الصفحة و صفحات أخرى بنفس الفايل وفايلات أخرى ... المقصد من الطلب عدم إجراء أي عملية حسابية مرتبطة مع تغيرات قاعدة البيانات إلا بالضغط على زر أمر للبدء بالعمليات الحسابية ... الهدف وقف هذه العمليات لأنها تجعل الفايل بطيء جدا ... وشكرا على كل شيء

[الـعيدروس]

من خيارات الاكسل 

ثم خيارات الحساب

حساب المصنف حفز الخيار يدوي 

والغي التحفيز من على مربع إعادة حساب المصنف قبل الحفظ

ثم احفظ 

 

وهكذا يصير الحساب يدوي

ويتفعل اذا اردت بكود مثلاً ؟

هل هذا ماتريد

[sarab1618]

شكر جزيل للأخ عباد فهذه المعلومة جديدة تماما ولم أكن أعلمها ... هل الغاء تفعيل هذه الخاصية يشمل جميع الصفحات في الملف ( وهذا غير محبب ) ولو تكرمت علينا بمثال عن كود لزر أمر بتفعيل والغاء تفعيل هذه الميزة ....

[الـعيدروس]

السلام عليكم

 

هذا الكود في مودويل

Sub auto_open()
Dim Sh As Worksheet
Set Sh = ActiveSheet
Select Case Sh.Name
' الأوراق المراد حسابها اتوماتك
       Case Is = "Sheet2", "Sheet3"
       Tr_Ali True
' والاوراق الاخر يدوي
       Case Else
       Tr_Ali False
End Select
End Sub
Private Function Tr_Ali(Bn As Boolean)
With Application
 .Calculation = IIf(Bn, -4105, -4135)
 .CalculateBeforeSave = Bn
End With
End Function
Sub تفعيل_الحساب_تلقائي()
Tr_Ali True
End Sub

وهذا الكود في حدث Thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Call auto_open
End Sub

في حال ادرت تفعيل الحساب تلقائي

"Alt"  + "F8"  و شغل الكود "تفعيل_الحساب_تلقائي"

ارجو التجربه

تم تعديل أغسطس 23, 2013 بواسطه عباد