أ / محمد صالح

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

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

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

حسب فهمي للمطلوب تبقى خلية اليوم صفرا وهذه معادلة الشهور =MOD(SUM(B3,E3)+IF(SUM(A3,D3)>0, 1,0),12) وهذه معادلة السنين =SUM(C3,F3)+INT((SUM(B3,E3)+IF(SUM(A3,D3)>0, 1,0))/12) بالتوفيق للجميع مجموع مدد2.xlsx

أولا : ما المقصود ب جبر كسر الشهر هل يعني تقريب عدد الأيام لشهور مثلا أكثر من 15 يوم يصبح شهرا وأقل من 15 يوم يصبح صفرا؟ أم أنه لو يوم واحد يتم تحويله لشهر ثانيا: يفضل ارفاق الملف الذي به هذا التعديل

جرب هذا if Target.row >=9 and target.row <=22 then .... End if

بالتوفيق للجميع

تفضل جرب هذا مجموع مدد.xlsx

سهلة إن شاء الله بدالة mod & sum إذا أرفقت ملفك تجد الكثير

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

بعد اذن اخي الكريم ابو احمد النسبة الأصح هي مجموع درجات الطالب على المجموع الكلي كما تم في حساب نسبة كل مادة منفردة أما اختلاف النسب فيرجع إلى أن الأصح هي نسبة مجموع درجات الطالب والخطأ هو متوسط نسب المواد ويوجد في هذه النسب كسور مكررة مثل الثلث 0.33 مع تكرار 3 وكذلك الثلثين والله أعلم

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

بالتوفيق للجميع

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

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

رحمه الله رحمة واسعة واسكنه الفردوس الأعلى من الجنة

وهذا اختصار لمعادلة أخي الفاضل @أبوأحـمـد =INDEX($H$19:$J$19,MATCH(1,--(H20:J20<>0),0)) بالتوفيق

ما شاء الله افكار رائعة من الجميع وهذه محاولتي المتواضعة يمكن كتابة هذه المعادلة في الخلية D3 وسحب المعادلة يسارا ثم اسفل لتطبق على الجميع =IF($B3>SUM($D$2:D$2),D$2,$B3-SUM($C3:C3)) بالتوفيق

الصورة تظهر في المعاينة طبيعية ويمكن طباعتها ألوان بحذف علامة الصح في الأمر black and white في إعدادات الصفحة آخر تبويب بالتوفيق

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

أفكار جميلة ورائعة بارك الله فيكم جميعا أحبتي ونظرا لأني أهوى اختصار الأكواد والمعادلات يمكنني تعديل المعادلة إلى في A2 =MID(SUBSTITUTE(A$1," ",""),ROW(A1),1) بالتوفيق

مليون مبارك بالتوفيق للجميع وفقكم الله وسدد خطاكم

أخي الكريم حسب فهمي للمطلوب ضع هذه المعادلة في الخلية B26 =SUMPRODUCT(B6:B22,$Y$6:$Y$22) بالتوفيق

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

طالما لا يمكن جلب البيانات بصورة طبيعية من الاكسل جرب استعمال هذا الكود Sub mas_getdata() Dim IE As Object, clip As Object Sheet1.Range("a1").CurrentRegion.ClearContents Set IE = CreateObject("InternetExplorer.Application") IE.Visible = 1 IE.Navigate "https://www.saudiexchange.sa/wps/portal/tadawul/market-participants/issuers/issuers-directory/company-details/!ut/p/z1/04_Sj9CPykssy0xPLMnMz0vMAfIjo8zi_Tx8nD0MLIy83V1DjA0czVx8nYP8PI0MDAz0I4EKzBEKDEJDLYEKjJ0DA11MjQzcTfW99KPSc_KTIGZllJQUWKkaqBqUJKYklpfmqBroRyXn5xYk5lUGV-Ym5QMVGRkYG-iHEzK1IDsop6zSUREAbm86Ww!!/#chart_tab2" Do While IE.ReadyState = 4: DoEvents: Loop Application.Wait DateAdd("s", 15, Now) 'tools - references - microsoft forms 2.0 Set clip = New DataObject clip.SetText "<table>" & IE.document.getelementbyid("adjustedPerformanceView").innerHTML & "</table>" clip.PutInClipboard Sheet1.Range("A1").Select Sheet1.PasteSpecial "Unicode Text" Sheet1.Range("A1").Select IE.Quit Set IE = Nothing MsgBox "Done by mr-mas.com" End Sub وهو لفتح انترنت اكسبلورر والانتقال للرابط ثم الانتظار 15 ثانية حتى يتم تحميل الجدول ثم نسخ الجدول للشيت بالتوفيق mas get data from web.xlsb