أبوعيد

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

تفضل ترتيب حسب الاكبر1.rar

تم التعديل بعد الترحيل سيتم مسح رقم التسلسل من البيانات المرحلة حتى لا يتم ترحيلها مرة أخرى تفضل النقل2.rar

وعليكم السلام أهلا أبو حنين تفضل جرب المرفق النقل1.rar

تفضل اجمالي الربح-بالايام-بين تاريخين4.rar

تفضل جرب المرفق اجمالي الربح-بالايام-بين تاريخين3.rar

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

وعليكم السلام ..أخي : تريد منع تكرار المدرسة للمرة الثالثة ( يعني مرتين فقط مسموح به) سؤال : منع تكرار المدرسة خلال الاسبوع أم خلال الشهر أم ماذا ؟ أيضا ذكرت أن التاريخ الهجري لا يظهر بالشكل الجيد ..أرجو أن تشرح أكثر هذه النقطة لأني لم أفهمها ..تقبل تحياتي وأهلا وسهلا بك

تفضل جرب المرفق توزيع افقى وراسى1.rar

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

السلام عليكم الرجاء منكم المساعدة في عمل كود لإحضار بيانات طلاب الثانوية العامة من الموقع http://res-ye.net/ يعتمد الموقع على أرقام الجلوس للطلاب ============ ملاحظة : حاولت الاستفادة من الكود الآتي ولكن لم تنجح التجربة Sub Sample() Dim sUrl As String: sUrl = "https://www.actuaries.org.uk/user" Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate sUrl Do While ie.readyState <> 4: DoEvents: Loop ie.document.getElementById("edit-name").Value = 1234 ie.document.getElementById("edit-pass").Value = "abcdefg" End Sub هذا الكود سيفتح الأكسبلورر ويفتح الموقع حسب العنوان الموضح في الكود في الموقع يوجد اثنين من التكسب بوكس سيكتب داخل التكست الأول 1234 والتكسب الثاني abcdefg بدون استخدام أي مكتبات إضافية (ليس هذا حديثنا ) ============== المطلوب كود يدخل على الموقع http://res-ye.net/ ومن خلال أرقام الجلوس التي أحددها في أحد اعمدة اكسل يقوم الكود بإدخال أرقام الجلوس (أدبي أو علمي مثلا الرقم 1111 ) ويجلب البيانات إلى الشيت