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

نجوم المشاركات

  1. طارق محمود

    طارق محمود

    أوفيسنا


    • نقاط

      2

    • Posts

      4533


  2. إبراهيم حماد

    إبراهيم حماد

    03 عضو مميز


    • نقاط

      2

    • Posts

      173


  3. جمال عبد السميع

    جمال عبد السميع

    المشرفين السابقين


    • نقاط

      2

    • Posts

      3724


  4. محمد الريفى

    محمد الريفى

    الخبراء


    • نقاط

      2

    • Posts

      1492


Popular Content

Showing content with the highest reputation on 09/09/14 in all areas

  1. 1 point
  2. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اقدم اليكم هذا العمل المحاسبى المتواضع وهو جدول حساب اعمار الديون او الذمم المدينه او العملاء اوالحسابات المدينه استناذا على طريقة مخصص الديون المشكوك فى تحصيلها اترككم مع العمل للتقييم وللاستفاده للجميع هذا العمل لوجه الله تعالى لاتنسونا بصالح دعاؤكم جدول اعمار الحسابات المدينه.rar
    1 point
  3. بعد هذه الحلول القيمة من الأساتذة الرائعين ألا يمكن أن يكون الحل هكذا أبسط بالنسبة لحضرتك المصنف3.rar
    1 point
  4. السلام عليكم تفضل اخى الكريم لعله بفيدك http://www.officena.net/ib/index.php?showtopic=55063#entry348079
    1 point
  5. تسلم ايدكم جميعا بجد انا مش عارف من غيركم اعمل ايه دائما فاعلين للخير وبجد انا بتعلم منكم كل يوم تقبلوا تحياتي واذا سمح وقتكم ياريت تتفضلوا وتقولوا لي اين اضع الكود ومكانه فين وشكرا
    1 point
  6. السلام عليكم ماتفضل به اخونا الكريم / محمد أبو البراء ، مضبوط ولاأدري لماذا لايعمل معك عموما تفضل أخي المرفق به التعديل المصنف1_c.rar
    1 point
  7. تفضل أخى لعله " المطلوب " تقبل تحياتى بطاقة موظف.rar
    1 point
  8. استاذي الفاضل / طارق اشكرك جدا للأهتمام فعلا هذا ما اريده ولكن اريد ان افهم شيء انا عاوز النتيجة تطلع لما ااقف علي اسم المدرسة اللي في العامود B اللي هو باسم مدارس السيد الموجه واشكرك للاهتمام
    1 point
  9. السلام عليكم تفضل أخي المرفق وبه الكود التالي في حدث تغيير الإختيار بالورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [E10:E50]) Is Nothing Then v = Target.Value x = WorksheetFunction.CountIf([E9:E49], v) If x = 0 Then x = "" Else x = "" End If Shapes.Range(Array("مربع نص 2")).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = x Target.Select End Sub المصنف1_b.rar
    1 point
  10. الافضل ان يكون المجموع في التقرير جرب المرفق المشتريات.rar
    1 point
  11. يقال أن ملك أمر بتجويع 10 كلاب لكي يضع كل وزير يخطئ معها في السجن فقام احد الوزراء باعطاء راي خاطئ فامر برميه للكلاب فقال له الوزير انا خدمتك 10 سنوات وتعمل بي هكذا فقال له الوزير امهلني 10 أيام فقال له الملك لك ذلك فذهب الوزير الي حارس الكلاب فقال له اريد ان اخدم الكلاب فقط لمدة 10 ايام فقال له الحارس وماذا تستفيد فقال له الوزير سوف اخبرك بالامرمستقبلا فقال له الحارس لك ذلك فقام الوزير بالاعتناء بالكلاب واطعامهم وتغسيلهم وتوفير لهم جميع سبل الراحه وبعد مرور 10 ايام جاء تنفيذ الحكم بالوزير وزج به في السجن مع الكلاب والملك ينظر اليه والحاشيه فستغرب الملك مما رأه وهو ان الكلاب جائة تبصبص تحت قدميه فقال له الملك ماذا فعلت للكلاب فقال له الوزير (( خدمت هذه الكلاب 10 ايام فلم تنسى الكلاب هذه الخدمه وانت خدمتك 10 سنوات فنسيت كل ذلك )) طاء طاء الملك راسه وامر بالاعفاء عنه
    1 point
×
×
  • اضف...

Important Information