أبوعيد

يوجد في الملف شيتين بنفس الاسم (وهذه هي الحيلة التي وضعتها) شيت1 فيه بياناتك وشيت1 خالي من البيانات جرب أن تغير اسم أحد الشيتات ولاحظ النتيجة

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

إن شاء الله يمكن ولكن بتغيير المعادلة قل لي ماذا تريد أن يكون ناتج المعادلة ؟ يعني : إذا كان عندك تاريخ البداية (من) فكيف تحسب حتى توجد تاريخ النهاية (إلى) ؟

نعم تفضل SAVED COPY 1.rar

آ خر يوم يعمل فيه الملف هو 14/12/2017 تستطيع تغييره من داخل الكود تفضل DataBase1.rar

السلام عليكم أخي العزيز المشكلة تكمن في المعادلة التي وضعتها في الخلية I48 نتيجة هذه المعادلة عبارة عن نص وليس رقم نتيجة المعادلة هي 25/3/1439 ولكنها نص وليس تاريخ (وهذا تعرفه بالخبرة) جرب أن تطبع الرقم مباشرة في الخلية بدون معادلة وسترى النتيجة صحيحة تقبل تحياتي

لا بد أن ترسل ملف فيه مطلوبك مع شي من الشرح التفصيلي الرجاء إرسال ملف كنموذج

صلاحيات المستخدمين تجدها في الشيت ID راشد 12345 يحق له التعديل والتغيير والبحث حمد 123 يحق له البحث فقط أخي أرجو منك أن تصمم الفورم وأنا بحول الله أضع البرمجة تفضل جرب المرفق Data base3.rar

حياك الله أخي العزيز الحمدلله طبقت فكرتك ولاكن بشكل آخر , أرجو أن يكون هذا هو المطلوب بهذا التعديل لن تحتاج إلى العمودين H و I =============================== الخلية السوداء J1 في الأعلى تعطيك تاريخ البداية إذا كتبت فيها صفر يعني ان البداية ستكون من تاريخ اليوم إذا كتبت فيها الرقم 3 يعني ان البداية ستكون بعد تاريخ اليوم بثلاثة أيام إذا كتبت فيها الرقم -3 يعني ان البداية ستكون قبل تاريخ اليوم بثلاثة أيام غيّر الرقم في الخلية السوداء ولاحظ ماذا يحدث ================================ السطر الأصفر في الأعلى عبارة عن تواريخ ولإظهار أي تاريخ ضع المؤشر على أي خلية صفراء سيظهر لك الرقم مباشرة =============================== الخطوط الحمراء هي خطوط للشرح فقط (بإمكانك إزالتها) وهي تنين موضع التداخل بين التواريخ ================================ لو فهمت الفكرة ستعرف التداخل بين التواريخ بسهولة تفضل المرفق تداخل التواريخ1.rar

وأنت كذلك جعل الله أيامك سعادة وسرور أخي لا بد من تعيين نوعين من الخلايا 1 الخلايا التي يمكن للمستخدم تغييرها (كمثال في الملف المرفق العمود A والعمود F) 2 الخلايا التي لا يستطيع المستخدم تغييرها (وهي نطاق المعادلات) لاحظ في المرفق : تم حماية الورقة بالرقم 123 كما هو واضح في الكود (تستطيع تغييرة) وعندما تقف بالمؤشر على أي خلية فيها معادلة لا تظهر جرب المرفق تحويل معادلات3.rar

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 وحتى أخر صف به بيانات ليس به معادلات تذكرت الأن

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

وعليكم السلام اكتب أمثلة مختلفة على التداخل حتى يتم فهم الموضوع أكثر وأيضا أين تريد أن تظهر نتيجة التداخل ؟ في أي عمود ؟

ضع معادلاتك في الخلايا الصفراء الكود يعتمد على الترقيم الموجود في العمود الأول A حيث أن الكود سيعمل إلى آخر سطر فيه رقم العمود الأول مهم جدا لعمل الكود بإمكانك تغييره تفضل جرب المرفق تحويل معادلات2.rar

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

السلام عليكم أخي الحبيب اعذرني : لم أفهم كل الذي كتبته لي ولكن فهمت شوية ===== اللي فهمته أن ألأعمدة من U إلى BJ كلها فيها معادلات إلا الأعمدة الأربعة من AK إلى AN فقط بدون معادلات ( لا يهم إن كانت معادلة تعطي قيمة نصية أم عددية المهم أنها معادلة تبدأ بعلامة = ) وبناء على فهمي سيتم تطبيق الكود على الأعمدة من U إلى BJ باستثناء الأعمدة الأربعة من AK إلى AN يعني أنت ستضع المعادلات وأنا فقط سأقوم بتحولها إلي قيم بدون معادلات هل هذا الكلام صحيح ؟ (هذا الذي فهمته) تقبل تحياتي

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

وعليكم السلام ورحمة الله وبركاته أهلا بك أخي العزيز نورت المنتدى أخي العزيز : أنت يهمك أن تختفي المعادلات من الشيت لأنها تثقل الملف (سواء كانت UDF أو غيرها ) وفعلا بالمرفق الذي أرسلته أنا اختفت المعادلات إلا من السطر الرابع فقط الان أخي الحبيب : ما هي المشكلة في الملف الأخير ؟ يعني هل ظهرت أخطاء في الحساب ؟ هذا الذي يهمني في انتظار ردك تقبل تحياتي

لم استطع فتح الملف نفس المشكلة تظهر لي رسالة : الملف معطوب هل الخلل في جهازي أم في ملفك ؟ الله أعلم

وعليكم السلام الملف الذي ارسلته معطوب الرجاء إعادة إرسالة مرة أخرى

وعليكم السلام سيتم الاحتفاظ بالمعادلات في أول سطر فقط وهو السطر الرابع اضغط زر calculation ولاحظ النتيجة تفضل تحويل معادلات1.xlsb.rar

اسم المستخدم : راشد كلمة المرور : 12345 تفضل جرب المرفق Data base2.rar

عفوا أخي سرعة العمل تجعلني أرتكب أخطاء تفضل التعديل النقل4.rar

تفضل غير اسم SITE ID في خلية الصفراء G ولاحظ النتيجة تحياتي Data Base1.rar

تم التعديل , إذا لم يلبي طلبك فضع مقترحاتك للوصول للحل تفضل النقل3.rar