اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

أوفيسنا
  • Posts

    4477
  • تاريخ الانضمام

  • Days Won

    197

كل منشورات العضو أ / محمد صالح

  1. من أهم أساسيات قواعد البيانات يجب عمل عمود يحتوي على رقم هذا السجل في قاعدة البيانات
  2. بعد اذن اخي الكريم ابو احمد النسبة الأصح هي مجموع درجات الطالب على المجموع الكلي كما تم في حساب نسبة كل مادة منفردة أما اختلاف النسب فيرجع إلى أن الأصح هي نسبة مجموع درجات الطالب والخطأ هو متوسط نسب المواد ويوجد في هذه النسب كسور مكررة مثل الثلث 0.33 مع تكرار 3 وكذلك الثلثين والله أعلم
  3. اخي الكريم حسب فهمي للمطلوب الثاني يظهر الصفر في حالة عدم تسجيل هذا البند في المستخلص المراد (تسجيل بند واحد فقط وعدم تسجيل الثاني أو العكس) وإذا كنت تريد إظهار آخر نتيجة في البند غير المكتوب في هذا المستخلص فعليك بضبط الإدخالات بحيث يكون لكل مستخلص البندين المطلوب البحث عنهم حتى إذا كان البند ليس به جديد سيعرض بيانات المستخلص السابق عليه وذلك حسب المعادلات في شيت 1 والله أعلم
  4. تفضل أخي الكريم حسب فهمي للمطلوب لا يلزمك إحضار أعلى قيمة للبند ولكن هنا المطلوب: البحث بشرطين البند ورقم المستحضر لذا يلزمك كتابة رقم المستحضر في الخلية H2 ليتم جلب بياناته بالتوفيق مستخلص مياه ورمل.xlsm
  5. يفضل إرفاق ملف به مثال من البيانات مع توضيح المطلوب بمنتهى الدقة على الاعمدة وعرض النتائج المتوقعة
  6. رحمه الله رحمة واسعة واسكنه الفردوس الأعلى من الجنة
  7. وهذا اختصار لمعادلة أخي الفاضل @أبوأحـمـد =INDEX($H$19:$J$19,MATCH(1,--(H20:J20<>0),0)) بالتوفيق
  8. ما شاء الله افكار رائعة من الجميع وهذه محاولتي المتواضعة يمكن كتابة هذه المعادلة في الخلية D3 وسحب المعادلة يسارا ثم اسفل لتطبق على الجميع =IF($B3>SUM($D$2:D$2),D$2,$B3-SUM($C3:C3)) بالتوفيق
  9. الصورة تظهر في المعاينة طبيعية ويمكن طباعتها ألوان بحذف علامة الصح في الأمر black and white في إعدادات الصفحة آخر تبويب بالتوفيق
  10. يفضل وضع الملف الذي به الكود على كل حال الكود لاختيار صورة من ملفات الكمبيوتر وعرضها في عنصر صورة وإضافتها في قائمة صور بهدف عرض صورة لكل موظف مثلا بالتوفيق للجميع
  11. أفكار جميلة ورائعة بارك الله فيكم جميعا أحبتي ونظرا لأني أهوى اختصار الأكواد والمعادلات يمكنني تعديل المعادلة إلى في A2 =MID(SUBSTITUTE(A$1," ",""),ROW(A1),1) بالتوفيق
  12. مليون مبارك بالتوفيق للجميع وفقكم الله وسدد خطاكم
  13. أخي الكريم حسب فهمي للمطلوب ضع هذه المعادلة في الخلية B26 =SUMPRODUCT(B6:B22,$Y$6:$Y$22) بالتوفيق
  14. الرسالة معناها ان الملف مرتبط بملفات اخرى ويسالك عن تحديث البيانات من الملفات المصدر أو عدم التحديث
  15. طالما لا يمكن جلب البيانات بصورة طبيعية من الاكسل جرب استعمال هذا الكود 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
  16. هل يعمل هذا الرابط على انترنت اكسبلورر؟ إذا كان يعمل بصورة طبيعية أرسل الرابط حيث يمكن فتح الرابط في انترنت اكسبلورر وقراءة محتويات الجدول ونقلها إلى الشيت بالكود
  17. يا ريت توضح أكتر المطلوب لأن الملفين متطابقين يختلفان فقط في سنة نهاية الاقامة 2 / 7 / 2023 بدلا من 2 / 7 / 2022 وهكذا
  18. جهد مشكور أستاذ محمد هشام ولكني أقترح على الأخ صاحب السؤال أن يعيد هيكلة ملفه ليتوافق مع قواعد البيانات حتى يسهل استخراج المعلومات منه لذا أقترح مثلا أن يكون بهذه الصورة بالتوفيق
  19. الدالة indirect هدفها هو تحويل نطاق مكتوب على شكل نص إلى نطاق وقد تم تمرير اسم الشيت الموجود في الخلية j6 وبعده ! وبعده النطاق المطلوب البحث فيه
  20. عليكم السلام جرب وضع هذه المعادلة في الخلية L6 =IFERROR(VLOOKUP(H6,INDIRECT("'"&J6&"'!d2:e1000"),2,0),"") بالتوفيق
  21. حسب فهمي للمطلوب تم إضافة خلية تكتب فيها عدد الشهور وبناء عليها يتم كتابة تاريخ النهاية ويتم حساب رصيد آخر المدة في هذا التاريخ بالتوفيق جلب اكبر واصغر قيمة لتاريخ.xls
  22. بعد إذن أخي الكريم @محي الدين ابو البشر يمكنك استعمال هذه المعادلة =SUM(COUNTIF(INDIRECT({"$F$4:$F$12","$J$4:$J$12","$N$4:$N$12"}),"<40")) مع ملاحظة القوسين المعقوفين وعلامات التنصيص حول كل نطاق بالتوفيق
  23. جرب استعمال هذi المعادلة في الخلية B10 =IF($C$3+ROW()-10>=$C$3+$C$6,"",$C$3+ROW()-10) مع سحب المعادلة لأسفل بالتوفيق
  24. لقد قلت لحضرتك يمكنك توظيفه وليس مجرد وضعه في اكوادك والتوظيف هو أن تخزن هذا المسار في متغير وتستعمل هذا المتغير في مسار حفظ ملفات ال PDF أكوادك غير واضحة لي وإلا كنت من البداية وظفته لك بالتوفيق
×
×
  • اضف...

Important Information