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

عبدالله المجرب

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

  • Posts

    5413

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

  • تاريخ اخر زياره

  • Days Won

    47

 نوع المحتوي 

كل منشورات العضو عبدالله المجرب

  1. عبدالله المجرب
    هذا رابط طلبك وفيه الاجابة الرابط من هنا
  2. عبدالله المجرب
    السلام عليكم اخي الفاضل شاهد المرفق الشرح.rar
  3. عبدالله المجرب
    السلام عليكم مع التجربة تكتشف الاخطاء لتجاوز هذا الخطاء قم بتعديل هذا الجزء من الكود If w = r Or w + 1 = r Then Exit Sub ليصبح If w + 2 = r Or w + 1 = r Then Exit Sub وان شاء الله يفي بالغرض
  4. عبدالله المجرب
    السلام عليكم ما رايك ان تجربه وقد اصبح هكذا Subطباعة_اسماء_محددة() If Range("C49") = 0 Then MsgBox "حدد الاسم او الاسماء التي تريد طباعتها ثم اضغط على الزر مرة أخرى " Exit Sub End If For i = 51 To 149 If Cells(i, 2) = True Then Range("A1").Value = i - 50 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next End Sub
  5. عبدالله المجرب
    السلام عليكم اهلاً وسهلاً بك اخي الفاضل ضع مرفق ليتم العمل عليه
  6. عبدالله المجرب
    اذاً ينقل الموضوع الى قسم الوورد
  7. عبدالله المجرب
    اخي الفاضل قمت بالتعديل على الملف الذي في الرابط المرفق ان شاء الله يناسبك (لو فتح الملف 50 مرة ) بعدها سيتم اغلاقه ولا يقبل الفتح عدد مرات فتح الملف1.rar
  8. عبدالله المجرب
    وضح أكثر أخي ايهاب
  9. عبدالله المجرب
    هل تقصد ان يتم إغلاق الملف اذا وصل عدد مرات الفتح 50
  10. عبدالله المجرب
    السلام عليكم رجع هذا الرابط (مع اضافة الشرط عند الوصول الى العد المحدد)
  11. عبدالله المجرب
    السلام عليكم اذا كان الملف يخصك فبامكانك ان ترفقه للمحاولة في فتح الحماية مع ذكر نوع الباسوورد (حروف وارقام ام ارقام فقط)
  12. عبدالله المجرب
    الله اعلم هل تم حذفه ام لا ولكن الملف كان موجود وانا حملته وموجود لدي واسمه مكافأة إمتحانات نهاية العام للساده العاملين بالتربية والتعليم - سعيد عامر بيرم بانتظار رد الاخ سعيد بيرم!!!!!
  13. عبدالله المجرب
    السلام عليكم المشكلة ليست في ارفاق الملف بصيغة 2003 ولكن المشكلة انه تم استعمال معادلات موجودة في 2007 ولا توجد في 2003 اي ان النتيجة ستكون خطاء في الدالة في مرفق 2003 والله اعلم
  14. عبدالله المجرب
    اخجلتمونا بردكم يا ابا عبدالرحمن شكراً لك
  15. عبدالله المجرب
    السلام عليكم اخي الفاضل edkawy تم عمل اللازم في ملفك المرفق الاخوة للمواد الغذائية.rar
  16. عبدالله المجرب
    اسف اخي ذيب اليمن لاني لم اقم بتغيير التاريخ اثنا التجربة والخطاء الذي يقع في الكود هو بسبب خلو اخر خلية من تاريخ لان الشهر 30 يوم ولتجاوز خذا الخطاء ستجد هذا السطر في الكود If Cells(i + 12, 7).Value = "" Then GoTo 1 استبدله بهذا If Cells(i + 12, 7).Value = "" Or Cells(i + 12, 7).Offset(0, -5) = "" Then GoTo 1
  17. عبدالله المجرب
    اخي ابو وائل شكراً لمرورك وتشجيعك وهذا رد معروف لما تعلمناه من هذا المنتدى
  18. عبدالله المجرب
    تم تثبيت الموضوع لعموم الفائدة
  19. عبدالله المجرب
    اللهم آمين شكراً اخي الكريم والحمدلله ان توصلت الى مبتاغاك
  20. عبدالله المجرب
    شكراً جزيلاً اخي جمال على هذا الرد الحلو
  21. عبدالله المجرب
    السلام عليكم ملف تحفة تسلم يدك اخي جمال على هذا الملف الروعة بصراحة هداياك قيمة شكراً لك
  22. عبدالله المجرب
    السلام عليكم اعذرني اخي ذيب اليمن (اتمنى معرفة اسمك الحقيقي) لم احاول بالامس وعندما وجدت ردك قمت بإضافة هذا الشرط للكود Weekday(Cells(i + 12, 7).Offset(0, -5)) = 6 والحمدلله كانت النتيجة ممتازة book (2).zip
  23. عبدالله المجرب
    السلام عليكم الاخ الفاضل جمال ارفق لك شرح بصوتي للطريقة ومنها فائدة للاخ السائل اذا اراد التطبيق شرح 2011.rar
  24. عبدالله المجرب
    السلام عليكم من حفظ بأسم اختر csv شاهد الصورة
  25. عبدالله المجرب
    بحيلة بسيطة تم التغلب على مشكلة الارقام الكبيرة شاهد المرفق تسلسل.rar
×
×
  • اضف...

Important Information

  I accept