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

ابوعبدالعزيز111111

عضو جديد 01
  • Posts

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

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

مشاركات المكتوبه بواسطه ابوعبدالعزيز111111

  1. السلام عليكم

    اريد عمل قرعة لثمان فرق موجهه بحيث يكون الثلاث الاوال يوزعون على مجموعتين 

    والثلاث الثواني يوزعون على نفس المجموعتين 

    والاثنين الاخير يقترعون على نفس المجموعتين

    اكون شاكر لو يكون هناك شرح لعمل الاكواد 

  2. السلام عليكم ورحمة الله وبركاته 

    سؤالي هو اثابكم الله عن كيفة البحث عن اسماءاشتركو في لعبة معينة

    مثال:

    لدي لاعبين كثر في العاب مختلفة 

    اريد ان ابحث عن اللعيبة في لعبة معينة 

    عن طريق ادخال اسم اللعبة

    مثل كرة قدم

    او رمي الجلة

    او الجري

    وجزاكم الله خيرا

  3. لدي طالب في سباق جري اريد ان ادخل الوقت الذي استغرقة الطالب لقطع مسافة معينة وحتساب درجته حسب الوقت اللي استغرقة 

    مثال

    المسافة 1600 متر 

    الوقت  6دقائق و23 ثانية = الدرجة 100

             6دقائق و29 ثانية = الدرجة98

     

    وهكذا ارجو المساعدة

    • Like 1
  4. اخي الاستاذ عبدالله اثابك الله شكر لك صنيعك  سؤالي هو طريقةالترحيل من اوراق عدة الي ورقة واحد وانا نفذت هذا الكود ولكن في اخطاء بالرغم من انه ادى الغرض والكودهو

     

    
    Application.ScreenUpdating = False
    Dim lr As Integer
    lr = [a100].End(xlUp).Row
    Sheets("a").Range("a1:n" & lr).Copy
    Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
    Sheets("b").Range("a1:n" & lr).Copy
    Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
    Sheets("c").Range("a1:n" & lr).Copy
    Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
    Sheets("d").Range("a1:n" & lr).Copy
    Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
    Sheets("f").Range("a1:n" & lr).Copy
    Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
    Sheets("x").Range("a1:n" & lr).Copy
    Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
    Sheets("v").Range("a1:n" & lr).Copy
    Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
    Sheets("a").Range("a1:n" & lr).Delete
    Sheets("b").Range("a1:n" & lr).Delete
    Sheets("c").Range("a1:n" & lr).Delete
    Sheets("d").Range("a1:n" & lr).Delete
    Sheets("f").Range("a1:n" & lr).Delete
    Sheets("x").Range("a1:n" & lr).Delete
    Sheets("v").Range("a1:n" & lr).Delete
    End Sub
×
×
  • اضف...

Important Information