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

mhrrd

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    358

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

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

 نوع المحتوي 

كل منشورات العضو mhrrd

  1. mhrrd
    تفضلوا هذا بالنسبه للطلب الأول اما الطلب التاني مايقدر على القدره الا الخالق Dim R As Integer, N As Integer Application.ScreenUpdating = False Sheets("Sec-exam").Range("A14:BS2000").Clear N = 13 ' الصفوف الخارجةعن البيانات اعلى الورقة For R = 14 To 113 If Cells(R, 62) = "دون المستوى" Then N = N + 2 Range("A" & R).Range("A1:D1,F1:BJ1,BS1").Copy With Sheets("Sec-exam") .Range("A" & N).PasteSpecial xlPasteValues .Range("A" & N).PasteSpecial xlPasteFormats .Range("A" & N) = (N - 13) / 2 End With Application.CutCopyMode = False End If Next MsgBox "تم ترحيل " & (N - 13) / 2, vbMsgBoxRight, "الحمد لله" Application.ScreenUpdating = True End Sub Sub ناجح() Dim R As Integer, N As Integer Application.ScreenUpdating = False Sheets("Success").Range("A14:BS2000").Clear N = 13 ' الصفوف الخارجةعن البيانات اعلى الورقة For R = 14 To 113 If Cells(R, 62) <> "دون المستوى" Then N = N + 1 Range("A" & R).Range("A1:D1,F1:BJ1,BS1").Copy With Sheets("Success") .Range("A" & N).PasteSpecial xlPasteValues .Range("A" & N).PasteSpecial xlPasteFormats .Range("A" & N) = N - 13 End With Application.CutCopyMode = False End If Next MsgBox "تم ترحيل " & N - 13, vbMsgBoxRight, "الحمد لله" Application.ScreenUpdating = True End Sub
  2. mhrrd
  3. mhrrd
    فكره جديده الله يجزيكم خير
  4. mhrrd
    نشكرك اخي الكريم *** الرقم السري هو رقم فريد لايمكن تكراره
  5. mhrrd
    وعليكم السلام ورحمة الله وبركاته اخي ابن عليه حل مفيد ورائع جزاك الله كل خير
  6. mhrrd
    يارب يكون البحث فيه سريع و يأتي بكل المبحوث عنه... يارب
  7. mhrrd
    رائع ملف الاستاذ خبور الله ينعم عليه ولو اضاف شرط اذا تساوى طالبان في المجموع الطالب الذي يكتب الاول هو الاصغر في السن في حالة التساوي في المجموع من طلاب الاوائل
  8. mhrrd
    عند وضع اعداد بها مسافات لايتم حذف المسافات الموجوده بين الاعداد واذا كتبنا اسم شخص بينه وبين اسم والده عدة مسافات لايتم الحذف ارجو الافاده
  9. mhrrd
    لو سمحت استاذ سعيد اضف ورقه مفردات مرتب الموظف ليه لم ترد عليا يا استاذ سعيد انا زعلتك في حاجه
  10. mhrrd
    لو سمحت استاذ سعيد اضف ورقه مفردات مرتب الموظف
  11. mhrrd
    جزاك الله كل خير
  12. mhrrd
    هل هذا الاصدار مختلف عن اصدار الاثنين 19 /12 ولك الشكر
  13. mhrrd
    جزاك الله كل خير استاذ نادر وبارك الله لك
  14. mhrrd
    'سنقوم بإلغاء تجميد النطاق ActiveWindow.FreezePanes = False عفوا عندي بعض الاستفسارات اي نطاق واين منطقه التجميد ؟ *** 'ثم نختار نطاق أعمدة الرصد بالكامل Columns("N:CE").Select Range("N7").Activate نحن حددنا نطاق الاعمده فما فائدة ان نجعل الخليه N7 نشطه وهي داحل النطاق المحدد **** 'هنا يقوم الكود بإخفاء الأعمدة غير المطلوبة Selection.EntireColumn.Hidden = True Range("O14").Select Range("O14").Select هل هذا التكرار مقصود ام انه غير ذلك ؟ لك تحياتي وشكري
  15. mhrrd
    اللهم رب الناس أذهب البأس و إشفي أنت الشافي الحبيب عبدالله شفاءاً لا يغادر سقماً و أن يعود لنا سالماً غانماً
  16. mhrrd
    لو سمحت استاذ سعيد اضف ورقه مفردات مرتب الموظف
  17. mhrrd
    الملف باضافه الفورم بقى خيال حاجه روعه الله يبارك لكم بعد ايام سيحل علينا عام ميلادي جديد هل يوجد تغيير في البرنامج بالنسبه لحد الاعفاء
  18. mhrrd
    الاستاذ نادر السلام عليكم ورحمة الله ألاحظ صبرك ومثابرتك مع الأخوة الافاضل للوصول بالبرنامج في أحسن صوره ولذا وجب الدعاء الطيب لك ولأمثالك وبعد : مايلفت نظري في برنامجك طريقة الرصد التي تظهر الأعمدة المطلوبه فقط فهل تفضلت بفصل هذا الكود وشرحه لنا حتى نتمكن من ادراجه في بعض اعمالنا ولك الشكر
  19. mhrrd
    بعد اذنك ياعم سعيد كل استفسار او طلب بعد اذنك رد عليه
  20. mhrrd
    الحد الاقصى بين التطبيق العملى والعشوائى.rar 11.05K 0 عدد مرات التحميل ملف راائع جاري الدراسة والرد جزاك الله الف خير
  21. mhrrd
    مرتب.rar 4.74K 29 عدد مرات التحميل مفردات مرتب معلم خبير.rar 3.4K 2 عدد مرات التحميل مفردات المرتب الجديد.rar 3.53K 4 عدد مرات التحميل استاذ سعسد اسعده الله هذه ملفات ثلاث لو تكرمت ضعها في مرفقك المحتوي على المعادلات ونود لو تكرمت ان تضيف صفحة في البرنامج لكشف المرتبات لسرعة المقارنه وجزاك الله خيرا الحمد لله انك نورت المنتدى
  22. mhrrd
    استاذ سعيد جزاك الله خيرا مفردات اي مرتب لايوجد به علاوة 2006 من اين اتي بها لاضعها في الشيت؟ يوجد مفردات مرتب للاستاذ نادر نرجو اضافتها للملف
  23. mhrrd
    أشكرك أخي لكلماتك الطيبة بإذن الله عند ذهابي للمدرسة بعد الإجازة الأسبوعية ( الجمعة و السبت ) سأسعى لذلك و أضيفه للموضوع كما طلبت نرجو مشاركتك في الموضوع فأنت مميز نرجو مشاركتك في الموضوع فأنت مميز
  24. mhrrd
    الساده الافاضل / دائما فى خدمتكم ..... وبإذن الله تعالى سترى هذه الصفحات الردعلى أية تساؤلات بطريقة السهل الممتنع اخي الكريم سعيد ماذا تعني بوجود اخطاء متعمده .. اين هي ؟
  25. mhrrd
    جارى اعداد بعض الموضوعات الهامة .... نرجو المتابعة ,ونحن في الانتظار
×
×
  • اضف...

Important Information

  I accept