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

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

  1. عبدالله باقشير

    عبدالله باقشير

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


    • نقاط

      2

    • Posts

      4796


  2. احمد غانم

    احمد غانم

    04 عضو فضي


    • نقاط

      1

    • Posts

      775


  3. قنديل الصياد

    قنديل الصياد

    06 عضو ماسي


    • نقاط

      1

    • Posts

      2661


  4. فراس البزاز

    فراس البزاز

    03 عضو مميز


    • نقاط

      1

    • Posts

      137


Popular Content

Showing content with the highest reputation on 08/15/13 in all areas

  1. السلام عليكم ورحمةالله وبركاته ارفق لكم ملف فية جدول رواتب الجدول يتكون من درجة الوظيفية والمرتبة وعلى هذا الاساس يظهر مبلغ الراتب بشكل اتوماتيكي لكن المشكلة في عدم ظهور مبلغ الراتب بشكل اوتوماتيكي بعد اختيار الدرجة والمرتبة ارجوا المساعدة مع تقديري SALARIES.rar
    1 point
  2. السلام عليكم ضع هذا الكود في حدث ورقة1 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1:B5")) Is Nothing Then With Range("A1:B5") .Sort .Columns(2), xlDescending End With End If End Sub المرفق 2010 222222.rar تحياتي
    1 point
  3. السلام عليكم شكرا اخى على المعلومه الجيده
    1 point
  4. السلام عليكم اخى العزيز مرفق ملف به تطبيق لكود استاذنا الكبير الاستاذ / عبد الله باقشير ahmed1981.rar
    1 point
  5. السلام عليكم حسب ما فهمت من الطلب استخدم الكود التالي Sub kh_Add() Dim Lr As Long Dim i As Integer Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lr, "A").Value = WorksheetFunction.Max(Range("A2:A" & Lr)) + 1 For i = 0 To 4 Range("B" & Lr).Offset(i, 0).Value = Array("a", "b", "c", "d", "e")(i) Next End Sub تحياتي
    1 point
  6. الرساله تعني انه يوجد شخص آخر بنفس الاسم يمكن لحضرتك اختيار اسم آخر او استخادم حرف ال ( أ ) او ( ا ) كما يمكنك استخدام مفتاح المسافه من لوحة المفاتيح مرتين ( احمد غانم ) و الله اعلم شكرا لك اخي احمد فضيله لقد تم تغيير الأسم بعون الله .. و نؤيد الفكره و نشجع عليها
    1 point
×
×
  • اضف...

Important Information