اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
  • Posts

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

  • Days Won

    196

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

  1. جرب حذف = التي قبل address أو إن شاء الله يفيدك هذا الموضوع المشابه بالتوفيق
  2. أخي الكريم تركيبة الملف لا تسمح بعمل معادلة واحدة للجميع يتم سحبها أفقيا ورأسيا لذلك يتم تحديد عمود المنتج الخاص بالفرع واستعماله في المعادلة فمثلا المنتج الرابع في الفرع الثاني عموده j لذلك معادلة العدد =COUNTIFS(L:L,O15,J:J,"<>") ومعادلة المبلغ =SUMIFS(J:J,L:L,O15) بالتوفيق
  3. الحلقة التكرارية تتوقف مع نهاية عدد كلمات المستند
  4. جميعا بإذن الله هذا الشرط يعني أن الخلية غير فارغة
  5. تفضل إن شاء اللّه يفيدك هذا المرفق EXAMPLE.xlsb
  6. يمكنك استعمال هذه المعادلة لعدد العمليات في الخلية P15 =COUNTIFS(L:L,O15,B:B,"<>") واستعمال هذه في الخلية Q15 للحصول على قيمة العمليات =SUMIFS(B:B,L:L,O15) مع نسخ المعادلة لأسفل وبنفس الطريقة يمكنك تعديل المعادلتين للوصول للمنتج التالي بالتوفيق
  7. عليكم السلام ورحمة الله وبركاته يفضل إرفاق مثال من الملف للعمل عليه وسيراعي الكود زيادة عدد الصفوف
  8. جميعا بإذن الله تعالى
  9. هذا الخطأ يظهر نتيجة إغلاق النموذج من زر الإغلاق والصواب حسب الكود كلك يمين على الزر الأيمن للساعة ولتعديل ذلك حتى ينتهي تنفيذ الكود مع الغلق من زر الغلق نقل آخر سطر من حدث UserForm_Initialize إلى حدث.UserForm_Activate مع إضافة هذا الحدث الخاص بزر الإغلاق Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) OK = False Me.Hide End Sub بالتوفيق
  10. عليكم السلام و رحمة الله وبركاته كلك يمين على الحقل المراد تنسيقه ثم اختيار Toggle Field Codes تبديل رموز الحقول إضافة التنسيق قبل قوس الغلق ليصبح هكذا {MERGEFIELD FieldName \#0.0} حيث FieldName اسم الحقل المراد تنسيقه بالتوفيق
  11. إذا تم تحويل الجدول إلى نطاق convert table to range من تبويب تصميم الجدول table design مع تغيير العمود E في هذا السطر Range("b2:h" & Cells(Rows.Count, "E").End(xlUp).Row).Copy إلى العمود B ستحصل على ما تريد بالتوفيق
  12. مادام الأمر لا ينفذ على جميع ملفات الوورد والاكسل فربما يحتاج برنامج الأوفيس إلى عمل إصلاح repair من خلال ازالة البرامج uninstall programs في لوحة التحكم control panel ولكن تختار اصلاح وليس الغاء تثبيت بالتوفيق
  13. لتطبيق فكرة الحل على ملفك بعد هذا السطر If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then نضع سطر فك الحماية fo.UnProtect password:="mas" وقبل سطر else نضع سطر الحماية fo.Protect password:="mas" حيث mas هي كلمة المرور بالتوفيق
  14. يمكنك الاستغناء عن باقي شيتات الشهور حيث أن المعادلة تجلب بيانات جمبع الشهور بعد كتابة تاريخ بداية الشهر المطلوب (أو أي تاريخ منه) في الخلية A1 بالتوفيق جلب بيانات الشهور.xlsx
  15. عليكم السلام ورحمة الله وبركاته إذا كان استخدام الملف بعد رفعه من خلال اوفيس 365 سطح المكتب فستعمل الأكواد بعد تمكين المحتوى أما إذا كنت تقصد فتح الملف في أوفيس 365 اونلاين فأعتقد انه لا يدعم الأكواد بالتوفيق
  16. جميعا بإذن الله
  17. يبدو أن مسار الملف في قرص النظام C أعتقد إذا كان في غير قرص النظام لن تحتاج صلاحية التشغيل كمسئول
  18. آمين ولك بالمثل ويزيد
  19. جميعا بإذن الله إذا دققت في مدارسة مشاركتي السابقة وفهمها بإذن الله تستطيع التعديل بنفسك لم اعطك سمكة بل شرحت لك كيف تصطاد بالتوفيق
×
×
  • اضف...

Important Information