طلب تحويل معادلات الى دالات معرفة UDF

[أبو سجده]

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

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

أرغب بحول الله تعالى بتحويل المعادلات المبينة بهذا المرفق وفقا لكل شرط على حدى الى دالات معرفة UDF

نظرا للكم الهائل من البيانات التى تصل الى مايقرب من 25000 صف

لمزيد من التوضيح والنتائج المتوقعة يُرجى الاطلاع على المرفق التالى والافادة بحول الله تعالى

تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا

تحويل معادلات الى دالات معرفة.xlsb.rar

[أبوعيد]

وعليكم السلام

سيتم الاحتفاظ بالمعادلات في أول سطر فقط وهو السطر الرابع

اضغط زر calculation ولاحظ النتيجة

تفضل

تحويل معادلات1.xlsb.rar

[أبو سجده]

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

بداية جزاكم الله خيرا وبارك فيكم واحسن الله اليكم واسعدكم  فى الدارين

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

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

اما ما أسعى اليه هو تخفيف حدة ثقل الملف وخاصة اننى اتعامل مع كميات هائلة من البيانات

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

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

[أبوعيد]

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

أهلا بك أخي العزيز نورت المنتدى

أخي العزيز : أنت يهمك أن تختفي المعادلات من الشيت لأنها تثقل الملف

(سواء كانت UDF أو غيرها )

وفعلا بالمرفق الذي أرسلته أنا اختفت المعادلات إلا من السطر الرابع فقط

الان أخي الحبيب : ما هي المشكلة في الملف الأخير ؟

يعني هل ظهرت أخطاء في الحساب ؟ هذا الذي يهمني

في انتظار ردك

تقبل تحياتي

[أبو سجده]

اخى واستاذى الفاضل // ابو عيد

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

اهلا وسهلا بكم وبأهل اليمن الأعزاء على نفوسنا وقلوبنا

حقيقة ارفع لك أخى الكريم القبعة إحتراما وتقديرا لهذا الحل الاكثر من رائع

أدرك تماما مايدور فى ذهنك بشأن الحساب فليس هناك أدنى شك أنها صحيحة 100%

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

تقبل وافر تقديرى واحترامى لشخصكم المحترم *** وجزاكم الله خيرا

تم تعديل ديسمبر 9, 2017 بواسطه عبدالرحمن وسلمى

[أبوعيد]

وإياك أخي الحبيب

أنا في انتظار تجربتك على ,الملف الأصلي  وإن كان لديك أي شروط أخرى

تقبل تحياتي

[أبو سجده]

اخى واستاذى الفاضل // ابو عيد

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

بداية جزاكم الله خيرا وبارك فيكم وأ شكركم أخى واستاذى على اهتمامكم البالغ بمتابعة الموضوع

تم تجربة الماكرو على الملف الاصلى *** تم التعديل ليبدأ عمل الماكرو من الصف رقم 8

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

برجاء الاطلاع على المرفق التالى حسب ترتيب الملف الاصلى **** اعتقد أن للعمود U صلة بالمشكلة على اعتبار أنه أول عمود يحتوى على معادلة نصية

أرجو الافادة بحول الله تعالى **** فربما يكون هناك ما أغفوا عنه *** مع ضرورة التنوية عن فحوى المشكلة

تقبل وافر تقديرى واحترامى لشخصكم المحترم *** وجزاكم الله خيرا

تحويل معادلات+1111.rar

تم تعديل ديسمبر 10, 2017 بواسطه عبدالرحمن وسلمى

[أبوعيد]

السلام عليكم

أخي الحبيب اعذرني : لم أفهم كل الذي كتبته لي ولكن فهمت شوية

=====

اللي فهمته أن ألأعمدة من U إلى BJ كلها فيها معادلات إلا الأعمدة الأربعة من AK إلى  AN فقط بدون معادلات

( لا يهم إن كانت معادلة تعطي قيمة نصية أم عددية المهم أنها معادلة تبدأ بعلامة = )

وبناء على فهمي سيتم تطبيق الكود على الأعمدة من U إلى BJ باستثناء الأعمدة الأربعة من AK إلى  AN

يعني أنت ستضع المعادلات وأنا فقط سأقوم بتحولها إلي قيم بدون معادلات

هل هذا الكلام صحيح ؟ (هذا الذي فهمته)

تقبل تحياتي

[أبو سجده]

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

أخى الكريم ابو عيد  لقد أصبت فيما ذكرته فكلامك صحيح

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

[أبوعيد]

ضع معادلاتك في الخلايا الصفراء

الكود يعتمد على الترقيم الموجود في العمود الأول A

حيث أن الكود سيعمل إلى آخر سطر فيه رقم

العمود الأول مهم جدا لعمل الكود 

بإمكانك تغييره 

تفضل جرب المرفق

تحويل معادلات2.rar

[أبو سجده]

اخى الاستاذ الفاضل // ابو عيد

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

دمت لنا مُعينا بعد المولى العلى القدير 

الله أسأل أن يديم عليكم نعمة الصحة والعافية وأن يرزقكم وإيانا نعمة الإخلاص فى القول والعمل

عُلم وتم التنفيذ وأطمع فى طلبين هذا إن لم يكن لدى سيادتكم مانع

الاول اضافة على الكود والطلب كود منفصل لمسح البيانات

عن الاضافة بالكود أرغب فى حماية نطاق المعادلات من الخلية U8 و حتى BJ8 " غير مرئية لغير المستخدم "

اما عن كود مسح البيانات فيتمثل فى نطاقين معا

النطاق الاول من الخلية A8 الى الخلية T8 واخر صف به بيانات

النطاق الثانى من الخلية U9 الى الخلية BJ9 واخر صف به بيانات

وفقنا الله تعالى لما يُحب ويرضاه *** تقبل وافر تقديرى واحترامى *** وجزاكم الله خيرا

تم تعديل ديسمبر 11, 2017 بواسطه عبدالرحمن وسلمى

[أبوعيد]

حياك الله أخي العزيز

بالنسبة لكود المسح

النطاق الاول من الخلية A8 الى الخلية T8 

لا يمكن مسحه لأن به المعادلات في الصف الثامن

ولكن يمكن مسح A9 الى الخلية T9 واخر صف به بيانات

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

 

جاري التعديل

[أبو سجده]

اخى وحبيى فى الله الاستاذ // ابو عيد

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

مهلا أخى العزيز الغالى *** اليك هذا الكود وهو لمسح النطاق من A8 الى خلايا العمود T8 وحتى أخر صف به بيانات

Sub Clear_Data()
    Dim LastRow As Integer
    LastRow = Range("a" & Rows.Count).End(xlUp).Row
     Sheet2.Range("A8:T" & LastRow).ClearContents
End Sub

أريد هنا إضافة على هذا الكود ليشمل مسح النطاق من U9 الى خلايا العمود BJ9 وحتى أخر صف به بيانات

وبذلك نكون إحتفظنا بنطاق المعادلات دون مساس حتى تتمكن من حمايتها من العبث وإخفاؤها لعدم رؤيتها لغير المستخدم الاصلى

وهذة هى الاضافة المطلوبة على كود سيادتكم **** تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

تم تعديل ديسمبر 11, 2017 بواسطه عبدالرحمن وسلمى

[أبوعيد]

Sub Clear_Data()
    Dim LastRow As long
    LastRow = Range("a" & Rows.Count).End(xlUp).Row
     Activesheet.Range("A8:T" & LastRow).ClearContents
     Activesheet.Range("U9:BJ" & LastRow).ClearContents

End Sub

جرب التعديل أعلاه

نعم فهمت الأن 

النطاق من A8 الى خلايا العمود T8 وحتى أخر صف به بيانات

ليس به معادلات تذكرت الأن

تم تعديل ديسمبر 11, 2017 بواسطه أبوعيد

[أبو سجده]

اخى العزيز المحترم ابو عيد

جعل الله أيامكم كلها أعياد 

هيه فرقت معايا فى الــ Activesheet ارجو قبول السماحة ولكنى حقيقية غفوت عنها

الى الان الامور تسرى على بركة الله وببركة إسهامتكم الطيبة المباركة

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

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

وهذا الجزء يتمثل فى اضافة أمر بالكود الخاص بسيادتكم من شأنه

إخفاء نطاق المعادلات من الــ U8 الى BJ 8 كنوع من أنواع الحماية حتى لايتمكن لغير المستخدمين العبث بها وخاصة انها 

فى حقيقة الأصل معادلات غاية فى التعقيد **** تقبل وافر تقديرى واحترامى *** وجزاكم الله عنى خير الجزاء

 

تم تعديل ديسمبر 11, 2017 بواسطه عبدالرحمن وسلمى

[أبوعيد]

وأنت كذلك جعل الله أيامك سعادة وسرور

أخي لا بد من تعيين نوعين من الخلايا

1 الخلايا التي يمكن للمستخدم تغييرها (كمثال في الملف المرفق العمود A  والعمود F) 

2 الخلايا التي لا يستطيع المستخدم تغييرها (وهي نطاق المعادلات)

لاحظ في المرفق : تم حماية الورقة بالرقم 123 كما هو واضح في الكود (تستطيع تغييرة)

وعندما تقف بالمؤشر على أي خلية فيها معادلة لا تظهر 

جرب المرفق

تحويل معادلات3.rar

[أبو سجده]

اخى وحبيى فى الله الاستاذ // ابو عيد

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

بارك الله فيكم وأسعدكم الله تعالى فى أخرتكم بكل خير

تم بفضل الله تعالى ثم بفضلكم فجزاكم الله تعالى عنى خير الجزاء

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

تم تعديل ديسمبر 12, 2017 بواسطه عبدالرحمن وسلمى