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

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

أوفيسنا
  • Posts

    5,409
  • تاريخ الانضمام

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

  • Days Won

    47

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

  1. ممكن الشرح بمثال وشكرا السلام عليكم تفضل المرفق به المطلوب تنسيق شرطي بالمكرر.rar
  2. شكراً لك استاذ محمد قمت باتباع الخطوات (اللغة العربية - البحرين) لكن للاسف نفس النتيجة ÇáÍãÏááå Úáì ßá ÍÇá اردت كتابة الحمدلله على كل حال
  3. فكرة جميلة من استاذ مبدع وحشتنا استاذ هادي ونسال الله ان نراك دائماً بيننا ابواحمد
  4. هذا نفس ما حصل معي ولكني قمت بعمل تشغيل كا ادمنستريتر وتمت العملية بنجاح لكن واجهتني تحويل حروف اللغة الى حروف غريبة ========== للعلم قمت بتعديل اعدادات اللغة ولكن نفس المشكلة فاذا كان هناك حل فارجو ان لا تبخلو علينا به
  5. ابا نصار لم اجرب الملف ولكن قرات الكود عمل احترافي تسلم يدك الم اقلك نشاطك ملحوظ وان شاء الله نراك هكذا على طول ومن حسن الى احسن ابواحمد
  6. بالنسبة للكتابة العربية ويحولها انجليزي العملية تمام ساقوم بضبط اعدادات اللغة وابلاغكم بالنتيجة
  7. سلمت افكارك استاذ نارت ونور الموضوع باطلالة الاستاذ الوقور ابو خليل ابواحمد
  8. بالفعل اخي ياسر البرنامج يعمل وانا اسف لاني لم اقم بالرد بعد نجاح التجربة لكن المشكلة ان النتيجة كانت هكذا
  9. الاستاذ محمد صالح (الماسة المنتدى) انت الماسه وما خف وزنه وغلا ثمنه هو الالماس شكراً على هذه الدرر ابواحمد
  10. لماذا لا تريد العمود المساعد فهو لن يؤثر =========== اخي ياسر شكراً لك
  11. السلام عليكم شكراً على هذا الملف لكن ومرة اخرى لم يعمل معي الاوفيس 2007 والله اعلم ما السبب وبانتظار تعليقات الاخوة
  12. السلام عليكم محاولة على قد الحال (بانتظار ابداعات الاساتذة) جرب المرفق هناك عمود مساعد (تم إخفائه) العمود H فيه قائمة منسدلة لاختيار الغياب جرب ان شاء الله تفي بالغرض توزيع.zip
  13. السلام عليكم الاستاذ العيدروس نشاط ملحوظ وعمل مميز وننتظر المزيد ======= الاخ خالد بالنسبة لتعريف الدوال المعرفة (قم بنسخ الكود في موديل في محرر الاكواد) بعدها ستجد الدالة اصبحت بين الدوال باسمها المعرفه به وبالنسبة لدالتك المرفقه جرب هذه الدالة =ROUND(A1;0)
  14. الاستاذ الفاضل عماد الحسامي عمل جميل ومبهر تسلم يدك يا معلم على هالابداع ابواحمد
  15. السلام عليكم يمكنك ذلك بأستخدام دالة SUMPRODUCT ابواحمد
  16. اخي ضاحي احرجتمونا بكلماتكم الرقيقة وحملتمونا بطيب اخلاقكم ما لا نطيق وان شاء الله نكون عند حسن الظن ابواحمد
  17. السلام عليكم اخي سعد ابو عبدالرحمن حفظك المولى على هذه الدرر ابواحمد
  18. ويمكن اختصار الكود ليصبح Private Sub Worksheet_Change(ByVal Target As Range) LR = Range("A" & Rows.Count).End(xlUp).Row If Target.Column <> 1 Then Exit Sub If Target.Row > LR Then Exit Sub If Cells(Target.Row, 1).Value <> "" Then Cells(Target.Row, 2).Value = Format(Now(), "hh:mm:ss") End If End Sub والله اعلم
  19. وفي المرفق حل اخر بالاضافة لحل الاستاذ محمد عبدالله المجرب.rar
  20. ابا عمر هناك مثل يقول من طول الغيبات جاب الغنائم وهذا الكود باين انه بداية الغنائم ان شاء الله نراك دوماً منور منتدنا يا ابا عمر ابواحمد
  21. اخي الجزيرة ضع هذه المعادلة في الخلية المقابلة على فرض ان خلية التاريخ هي A1 =DATE(YEAR(A1);12;31)
×
×
  • اضف...

Important Information