طلب وامضة لخيار الحساب اليدوي

[محمد حسن المحمد]

السلام عليكم أعضاء وخبراء المنتدى الكرام

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

ولذلك فإنني أطلب من حضراتكم إيجاد وسيلة تذكير أن الحساب الجاري حالياً هو الحساب اليدوي

فلو كان الحساب تلقائياً فلا خوف على إجراءات العمل أما عندما يكون يدوياً ...قد يظلم أحدنا أو يأكل حق دون علم عندما عندما يقدم فاتورة لم تحسب بدقة

أرجو أني قد أوصلت فكرتي 

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

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

أخي الحبيب أبو يوسف

إليك الكود التالي عله يفي بالغرض

ضع الكود في موديول جديد

Sub TellMe()
    Dim CalState
    CalState = Application.Calculation
    If CalState = -4135 Then MsgBox "Calculation Is Manual"
End Sub

ثم ضع الأكواد التالية في حدث المصنف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    TellMe
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    TellMe
End Sub

Private Sub Workbook_Open()
    TellMe
End Sub

سيتم التذكير عند فتح المصنف وعند حفظ المصنف وعند إغلاق المصنف

أرجو أن يكون هذا هو المطلوب

Warn Me.rar

[صلاح الصغير]

الله عليك ياسر

عودا حميدا

[محمد حسن المحمد]

بسم الله والصلاة والسلام على رسول الله أما بعد

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

جزاكم الله خيرا أخي الحبيب ياسر أبو البراء المحترم.

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

وهو إجابة ممتازة للسؤال الذي طرحته ولكنني أطمع يكرمكم

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

يكفيني أنك تجيبني

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

تم تعديل يونيو 24, 2015 بواسطه محمد حسن المحمد

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

أخي الغالي أبو يوسف

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

الحمد لله أن ساهم الكود ولو بجزء من الحل .. وإن شاء الله يشارك الأخوة الأعضاء في المزيد من الأفكار ...

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

[محمد حسن المحمد]

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

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

ملاحظة:هل يمكن تحميل مؤشر الماوس كلمة حساب يدوي أثناء خيار الحساب اليدوي.

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

تم تعديل يونيو 24, 2015 بواسطه محمد حسن المحمد

[Yasser Fathi Albanna]

 

أخي الحبيب أبو يوسف

إليك الكود التالي عله يفي بالغرض

ضع الكود في موديول جديد

Sub TellMe()
    Dim CalState
    CalState = Application.Calculation
    If CalState = -4135 Then MsgBox "Calculation Is Manual"
End Sub

ثم ضع الأكواد التالية في حدث المصنف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    TellMe
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    TellMe
End Sub

Private Sub Workbook_Open()
    TellMe
End Sub

سيتم التذكير عند فتح المصنف وعند حفظ المصنف وعند إغلاق المصنف

أرجو أن يكون هذا هو المطلوب

 

 

 

أخى الحبيب الغالى / ياسر خليل

[محمد حسن المحمد]

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه

أما بعد:فقد زين موضوعي وأتحفاه الياسران يسر الله حسابكما ويمّن كتابيكما وجعلكما من أهل الصلاح والنجاح والفلاح

اللهم اجعلنا إخوة متحابين فيك واجعلنا من المتقين ..آمين

أشكركما على كل ما قدمتماه لي

أحبكم في الله .....والسلام عليكم ورحمة الله وبركاته.. واسمح لنا بالاستعارة يا أستاذ ياسر

.

تم تعديل يونيو 25, 2015 بواسطه محمد حسن المحمد

[محمد حسن المحمد]

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

جزاكم الله خيراً جميعاً وبارك الله بصيامكم وقيامكم ....اللهم تقبل منا صالح أعمالنا ..آمين

حقيقة كنت أتصور أنه يمكن توظيف مؤشر الماوس لمثل هكذا أمور ....كونه بمتناول اليد باستمرار

شاكراً تعاونكم...

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

أخي الحبيب أبو يوسف

صراحة لم أجري بحث بخصوص تلك النقطة ... لأنه في وجهة نظري حتى لو كان في الإمكان عمل ذلك ألن يكون الأمر مزعجاً ظهور رسالة ملتصقة بمؤشر الماوس ؟؟؟

أو لربما لم تصلني فكرتك بعد ..

[محمد حسن المحمد]

السلام عليكم أخي الحبيب أبو البراء

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

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

أبي وحبيبي أبو يوسف

لو أحببت الأمر وأردتني البحث فيه والمحاولة فيه لفعلت إن شاء الله .. ولكن عليك أن توضح أكثر ما هو الشكل المتوقع ... أريد الدقة في توضيح الفكرة حتى يمكنني البحث والتقصي

تقبل تحياتي وكل عام وأنت بخير

[محمد حسن المحمد]

 

أبي وحبيبي أبو يوسف

لو أحببت الأمر وأردتني البحث فيه والمحاولة فيه لفعلت إن شاء الله .. ولكن عليك أن توضح أكثر ما هو الشكل المتوقع ... أريد الدقة في توضيح الفكرة حتى يمكنني البحث والتقصي

تقبل تحياتي وكل عام وأنت بخير

 

السلام عليكم أبا البراء الحبيب ..أحبك الله الذي أحببتني لأجله...تكفيني منك شهامتك ونخوتك وحبك لمساعدة الآخرين

...فهذا بالنسبة لي لا يقدر بثمن...

أما عن الشكل المتوقع كما طلبت فعن تلوين الـمؤشر بلون مغاير عند الحساب اليدوي ...ولكن لم أعد أطلبه لكي لا أثقل عليكم خصوصاً وأنتم في صومكم الذي أطلب من الله أن يجعله مباركاً 

وتفرغكم لقراءة القرءان الكريم.

تقبل تحيات المحب لك أبو يوسف - السلام عليكم ورحمة الله وبركاته