-
Posts
6 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه ابوعبدالعزيز111111
-
-
مشكوررررررررررين على تفاعلكم وجعلها الله في موازين اعمالكم
-
السلام عليكم ورحمة الله وبركاته
سؤالي هو اثابكم الله عن كيفة البحث عن اسماءاشتركو في لعبة معينة
مثال:
لدي لاعبين كثر في العاب مختلفة
اريد ان ابحث عن اللعيبة في لعبة معينة
عن طريق ادخال اسم اللعبة
مثل كرة قدم
او رمي الجلة
او الجري
وجزاكم الله خيرا
-
- EMembers-3
- اشكرك على تفاعلك وجعله الله في موازين اعمالك
- وياليت تكمل معروفك وتشرح لنا كيف كيف تم عمل هذا العمل لتعم الفائدة لي ولغيري
- وشكرا
-
لدي طالب في سباق جري اريد ان ادخل الوقت الذي استغرقة الطالب لقطع مسافة معينة وحتساب درجته حسب الوقت اللي استغرقة
مثال
المسافة 1600 متر
الوقت 6دقائق و23 ثانية = الدرجة 100
6دقائق و29 ثانية = الدرجة98
وهكذا ارجو المساعدة
- 1
-
اخي الاستاذ عبدالله اثابك الله شكر لك صنيعك سؤالي هو طريقةالترحيل من اوراق عدة الي ورقة واحد وانا نفذت هذا الكود ولكن في اخطاء بالرغم من انه ادى الغرض والكودهو
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
تصميم برنامج على الاكسل لعمل قرعة
في منتدى الاكسيل Excel
قام بنشر
السلام عليكم
اريد عمل قرعة لثمان فرق موجهه بحيث يكون الثلاث الاوال يوزعون على مجموعتين
والثلاث الثواني يوزعون على نفس المجموعتين
والاثنين الاخير يقترعون على نفس المجموعتين
اكون شاكر لو يكون هناك شرح لعمل الاكواد