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

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

  1. صالح حمادي

    صالح حمادي

    أوفيسنا


    • نقاط

      4

    • Posts

      1,745


  2. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      2

    • Posts

      8,723


  3. عبد الفتاح كيرة

    • نقاط

      2

    • Posts

      3,015


  4. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      1

    • Posts

      11,621


Popular Content

Showing content with the highest reputation on 13 يول, 2018 in all areas

  1. أغلق مجموعة السجلات ثم اجعلها لا تساوى شيئا لتنظيف الذاكرة العصماء أرجو أن أكون قد أفدتك و لو قليلا وفقكم الله
    2 points
  2. السلام عليكم اتبع الخطوات الموجودة بالصور: الكتابة رأسي من أعلى لأسفل.mdb
    2 points
  3. شكرا اخي صالح تم تنفيذ المطلوب وتطبيقه ربنا يبارك فيك ويجزيك عنا خير الجزاء
    1 point
  4. كل الشكر والتقدير لاستذنا القدير سليم حاصبيا على هذا الرد. استذنا بدات لتو في استخدام اكسيل وتعلمه وتلك هيا المعلومات التي بحوزتي انا في طريق التعلم. فهل يمكن ان تعلمني كيف افعل ذلك .
    1 point
  5. الخلايا المدمجة عبء كبير على اي كود لذا ازالة الخلايا المدمجة من الملف من الضروريات يا اخي ما بالكم انتم جماعة الاكسل تعتمدون على الخلايا المدمجة في حين بمكن توسيع العامود الى اي قدر تشاؤون بالاضافة الى خاصية wrap text في الاكسل و هناك خاصية تدعى Centre Across Selection لو كنت مكان Microsoft لقمت يالغاء دمج الخلايا من الاكسل
    1 point
  6. 1 point
  7. الأستاذ والاخ الحبيب سليم حاصبيا جزاك الله خيرا عمل رائع جعله الله في ميزان حسناتكم وفقك الله وزادكم من فضله علما وشرفا تقبل وافر احترامي وتقديري ... قد نال الاعجاب والثناء على اجاباتك التي تدل على علمكَ الرصين وكرمك في العطاء . شكرا والف شكر على دقة الإجابة ... عذراً لتأخري في الرد النت ضعيف
    1 point
  8. شكرا جزيلا استاذ سليم .. جزاك الله خير الجزاء .. دمت
    1 point
  9. ريما نال الاعجاب الكود Option Explicit Sub Salim_Index() Application.ScreenUpdating = False Dim S_sh As Worksheet: Set S_sh = Sheets("بيانات التلاميذ") Dim Index_sh As Worksheet: Set Index_sh = Sheets("فَهرَست") Dim Targ_sh As Worksheet: Set Targ_sh = Sheets("Sapace") Dim my_st1$, my_st2$ Dim lr%: lr = S_sh.Cells(Rows.Count, 1).End(3).Row Dim New_Lr% Dim Flt_Rg As Range: Set Flt_Rg = S_sh.Range("a15:k" & lr) Dim k%, m%: m = 6 Index_sh.Range("a6:F150").ClearContents Targ_sh.Cells.Clear my_st1 = "=" & UCase(Index_sh.[g5] & "*") & "" Flt_Rg.AutoFilter Field:=5, Criteria1:=my_st1 Flt_Rg.Columns(3).SpecialCells(xlCellTypeVisible).Copy Targ_sh.Range("a5").PasteSpecial Paste:=xlPasteValues Flt_Rg.Columns(5).SpecialCells(xlCellTypeVisible).Copy Targ_sh.Range("b5").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Flt_Rg.AutoFilter New_Lr% = Targ_sh.Cells(Rows.Count, 1).End(3).Row For k = 6 To New_Lr% Step 2 Index_sh.Cells(m, 2) = Targ_sh.Cells(k, 1): Index_sh.Cells(m, 1) = k - 5 Index_sh.Cells(m, 3) = Targ_sh.Cells(k, 2) Index_sh.Cells(m, 5) = Targ_sh.Cells(k + 1, 1): Index_sh.Cells(m, 4) = k - 4 Index_sh.Cells(m, 6) = Targ_sh.Cells(k + 1, 2) m = m + 1 Next Application.ScreenUpdating = True End Sub Salim_Index.xlsm
    1 point
  10. ضع هذا الشرط بدل الشرط الي قمت بوضعه
    1 point
  11. السلام عليكم أضف مرفق للتعديل عليه
    1 point
  12. هل هذا ما تقصده ؟ سن المعاش-1.xlsm
    1 point
  13. نعم لقد طلبه مني أحد الإخوة من قبل و وعدته بأن أنجز ذلك، بعد أنتهي من أعمالي التي تمنعني من الدخول كثيرا للمنتدى. نعم يمكن ذلك لاحظ هذا المرفق في في قائمة ملف لا يوجد وميض و بقية القوائم يوجد وميض أدخل على الأكواد البرمجية و ستعرف السر في ذلك مثال.rar
    1 point
  14. السلام عليكم من باب المشاركة فقط ردا علي أخونا khalid2117 السنة الكبيسة ليست بصفة عامة صحيح تقبل القسمة علي 4 لكن لها استثناء إن كانت تقبل القسمة علي 100 ، مثلا 2100 - 2200 - 2300 كلها سنوات بسيطة ، فبراير بها 28 يوم وليس 29 وهذا الاستثناء له استثناء وهي السنوات تقبل القسمة علي 400 فهي كبيسة أي أن فبراير بها 29 مثل 2400 - 2800 ويرجع هذا إلي أن السنة بالضبط لاتساوي 365.25 يوم كما هو شائع بل إنها 365.2422
    1 point
  15. السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Windows.rar
    1 point
×
×
  • اضف...

Important Information