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

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4486

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

  • Days Won

    198

 نوع المحتوي 

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

  1. أ / محمد صالح
    جميعا بإذن الله
  2. أ / محمد صالح
    ما السبب الذي يجعلك تحتاج إلى كود يقوم بهذه الوظيفة طالما أن الدالة مدعومة في جميع إصدارات الاكسل؟ نحتاج إلى تحويل الدالة إلى كود vba في حالة كونها دالة جديدة في اصدار جديد ونريد استعمال مميزاتها في الإصدارات القديمة مثل دالة textjoin مثلا اللهم إلا إذا كنت تقصد طريقة استعمالها داخل vba وفي هذه الحالة يمكنك استخدام هذه الطريقة مع تغيير المرجع والشرط كما تريد Application.WorksheetFunction.CountIf(Range("D2:D9"), ">5") بالتوفيق
  3. أ / محمد صالح
    لك حلان * أسهلهما استعمال sumifs لحساب مجموع الخلايا في الشيت والتي تنطبق عليها شروط العرض في القائمة وأيضا أكبر من صفر. * والحل الثاني أثناء تعبئة القائمة بالعناصر items يمكن إنشاء متغير وليكن mysum لجمع القيم التي فوق الصفر من العمود المطلوب السؤال نظري بدون ملف ولذلك الإجابة نظرية بالتوفيق
  4. أ / محمد صالح
    جهد مشكور جزاكم الله خيرا
  5. أ / محمد صالح
    الشكر لله الذي وفقنا
  6. أ / محمد صالح
    آمين ولك بالمثل وزيادة بإدن الله
  7. أ / محمد صالح
    الحمد لله الذي بنعمته تتم الصالحات
  8. أ / محمد صالح
    تم إجراء بعض التعديلات لتتناسب مع المطلوب وهي: كتابة تاريخ 1 في الشهر المطلوب في الخلية c5 وبناء يتم جلب بيانات باقي ايام الشهر وتلوين الجمعة والسبت وكتابة اسم الشهر تلقائيا تم وضع معادلة التصفية الأفقية لجلب تاريخ اليوم المكتوب فيه غ (معادلة مصفوفات) تم وضع معادلة لحساب عدد أيام الغياب بالتوفيق حضور و غياب مع الخلاصة الشهرية.xlsm
  9. أ / محمد صالح
    الاحتمالات كثيرة أحدها نظام الفاصلة في جهازك هل هو الفاصلة فقط أم الفاصلة المنقوطة؟ يفضل إرفاق ملفك أو الشيت موضع المشكلة
  10. أ / محمد صالح
    حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة في الخلية B3 =INDIRECT("'"&B1&"'!$B$2") مع نسخ المعادلة بالسحب يمينا حتى M3 بالتوفيق
  11. أ / محمد صالح
    الأمر بسيط جدا بإذن الله تبدأ المعادلة بعلامة = ثم iferror ثم تفتح قوس ثم تلصق معادلتك بدون علامة = في أولها ثم الفاصلة أو الفاصلة المنقوطة (حسب نظام جهازك) ثم علامتين تنصيص ثم تغلق القوس ثم انتر بالتوفيق
  12. أ / محمد صالح
    جميعا بإذن الله
  13. أ / محمد صالح
    الكود يقوم بهذا الغرض ولكن على العمود 3 بينما عمود الدائرة 16 لذا يجب تغيير هذا السطر txt = Join(Array(a(i, 3), a(i, 3)), Chr(3)) إلى txt = Join(Array(a(i, 16), a(i, 16)), Chr(3)) بالتوفيق
  14. أ / محمد صالح
    للحصول على الفرق بين رقمين نستعمل عملية الطرح بصورة عادية مثلا الرقم الأول في الخلية A1 من العمود الأول والرقم الثاني في الخلية B1 من العمود الثاني نكتب في الخلية التي نريد إظهار الفرق فيها =a1-b1 أما إذا كنت تريد غير ذلك فيرجى توضيح تفاصيل المطلوب بدقة واستفاضة بالتوفيق
  15. أ / محمد صالح
    يمكنك استعمال هذا الكود Sub savePDF() ActiveSheet.PageSetup.PrintArea = "B3:P" & Range("B" & Rows.Count).End(xlUp).Row ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("g7").Value & "_" & Format(Now(), "yyyy-mm-dd_hh-nn-ss") & ".pdf" MsgBox "Done by mr-mas.com" End Sub لاحظ مسار هذا المصنف thisworkbook.path وتنسيق الوقت الحالي ضمن الاسم واستعمال الشرطة - والشرطة السفلية _ في الاسم بدلا من / بالتوفيق
  16. أ / محمد صالح
    الملف المرفق لا يفيدنا في الوقوف على أسباب المشكلة ربما تكون قمت بتثبيت برنامج ribbonX وهو الذي يقوم بوضع هذا الكود في جميع الملفات بناء على خيارات البرنامج لذا افترح الغاء تثبيت البرنامج وملاحظة المشكلة وإذا استمرت أقترح عمل اصلاح repair. للأوفيس من لوحة التحكم ثم إلغاء تثبيت البرامج بالتوفيق
  17. أ / محمد صالح
    ربما لو ازفقت الملف او الجزء الذي به المشكلة نتوصل للحل
  18. أ / محمد صالح
    أخي الكريم * حتى تظهر الصفوف الجديدة ضمن نتائج البحث يجب نسخ المعادلة في النطاق H5:M17 إلى الصف المطلوب بعد إظهار هذه الأعمدة المخفية * فلسفة هذه الطريقة من البحث بالمعادلات تعتمد على تلوين الصف الذي يحتوي على كلمات البحث وهو في مكانه * السجل الجديد يتم إضافته بعد آخر صف مكتوب فيه وإذا أردت تغيير هذه الفلسفة إلى الفلترة وظهور الصفوف التي تحتوي على كلمات البحث فيمكنك الاستفادة من هذا الموضوع بالتوفيق
  19. أ / محمد صالح
    آمين ولك بالمثل وزيادة
  20. أ / محمد صالح
    جميعا بإذن الله تعالى
  21. أ / محمد صالح
    إن شاء اللّه تكون هي المطلوبة =SUM(B2:M2)/COUNTIF(B2:M2,">"&0)*12 بالتوفيق
  22. أ / محمد صالح
    تفضل هذا ملفك بعد وضع معادلة التصفية في الخلايا الصفراء وزيادة رقم الصفحة لعرض أول 4 ثم ثاني 4 ثم ثالث 4 وهكذا بالتوفيق تصفية الرواتب في صفحة الطباعة.xlsx
  23. أ / محمد صالح
    الشكر لله الذي بنعمته تتم الصالحات
  24. أ / محمد صالح
    الدالة row تجلب رقم الصف النشط وطرح 2 ليكون الناتج صفر ثم 1 ثم 2 في كل صف ثم الضرب في 8 ليتجاوز 8 صفوف في كل مرة بالتوفيق
  25. أ / محمد صالح
    تم استعمال دالتين وهذا شرحهما transpose offset
×
×
  • اضف...

Important Information

  I accept