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

أ / محمد صالح

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

  • Posts

    4470

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

  • Days Won

    196

 نوع المحتوي 

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

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

Important Information

  I accept