بلانك

اخي محمد حسن لا اقصد الاهانه او التقليل من عملك .... ولكن قلت الكود لايعمل يشكل جيد وعلى العموم فأنا اسف لك ورمضان كريم💩

اكسل 2010

الكود يعطي خطأ omar elhosseini

أخي علي محمد علي شكرا على الاستجابة السريعة

كود يعمل عمل flash fill لعدم وجودها في اوفيس 2010 الذي اعمل علية

بارك الله فيكم استاذي محمد عمر و محي الين ابو البشر على هذة الحلول

درجات طلبه.xlsx

احسنت وزادك اله علما لتنفع به الاخرين امثالي

اشكرك على تعبك معي ولكن مازال الكود لايضم 3 صفوف وهذا هو الكود بعد التعديل : ( )Sub Test Dim m As Long, r As Long, n As Long Application.ScreenUpdating = False With ActiveSheet m = .Cells(Rows.Count, 1).End(xlUp).Row n = 1 .Columns("K:M").WrapText = True For r = 1 To m Step 3 .Range("K" & n).Resize(, 3).Value = Array(.Range("A" & r).Value & vbLf & .Range("A" & r + 1).Value, .Range("B" & r).Value & vbLf & .Range("B" & r + 1).Value, .Range("C" & r).Value & vbLf & .Range("C" & r + 1).Value) .Range("K" & n).Resize(, 3).Value = Array(.Range("A" & r).Value & vbLf & .Range("A" & r + 1).Value, .Range("B" & r).Value & vbLf & .Range("B" & r + 1).Value, .Range("C" & r).Value & vbLf & .Range("C" & r + 1).Value) n = n + 1 Next r End With Application.ScreenUpdating = True End Sub دمج3 صفوف.xlsm

عملت الاتي ولم يفلح فأنا لست متخصص في الاكواد عذرا : For r = 1 To m Step 3

شكرا جزيلا على الرد والكود وزادك الله علما ونفعا للاخرين واطمع في طلب بسيط تعديل الكود لدمج ثلاث صفوف وشكرا مقدما

دمج صفوف مثال.xlsx

السبب على ما أظن الارتباط التشعبي

فكرة جميلة ولكن هل من الصعوبة عمل الاستدعاء بشرطين كما في الكود الاول والكود الثاني مباشرا

عفوا انا لست ضليع في الاكواد وهذا جهل مني ولكن اطمع في كرامكم

اشكرك جزيلا على الكود وهذا هو المطلوب واطمع في دمج هذا الكود مع الكود في الملف التالي كود لاستدعاء نسبة العشرة في المية.xls

1000.xlsx عنوان مخالف جدا ... تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

الاخ العزيز أبوعيد: بفرض ان كراسات إجابات الطلاب عددها 120 لماده الرياضيات يكون هناك 120 رقم سري لاخذ نسبة 10% محتاج من 120 رقم سري ( 10/120=12 رقم سري) انظر للملف السابق بمعنى اخر كل 10 ارقام من السري ناخذ رقم واحد فقط وبطرقة عشوائية ......وشكرا على الرد والاهتمام عذرا نسيت رفع الملف بالمطلوب والتوضيح وها هو ذاك وشكرا لكل من يسهم في الحل كود لاستدعاء نسبة العشرة في 10%.xls

نسبة 10% من اوراق الاجابة اريد من كل 10 كراسات كراسة واحدة وهكذا بفرض ان عدد الاوراق الاجابة 120 كراسة يكون المطلوب فقط 12كراسة لحساب 10 % وشكرا مقدما. انتبه من فضلك ... مشاركة مكررة , فقد تـــم بالفعل حذف المشاركة الأخرى كود لاستدعاء نسبة العشرة في المية.xls

وانا كمان نفس السؤال ..... ممكن كود يدعم خاصية flash fill (أداة التعبئة السريعه )فى أفس 2010 ولكم جزيل الشكر

flash fill لايوجد عندي في اكسل 2010 برو بل يوجد في اكسل 2013 و2016 واريد هذة الخاصية في 2010 هذا هو سؤالي؟

هل هناك طريقة لعمل كود بدالة معرفة للعمل على اكسل 2010

رجاء من عباقرة المنتدى حل هذة المشكلة على ويندوز 10 هوم وااوفيس 2010 بروفيشنال .......وشكرا مقدما

كود الاستاذ ابراهيم ممتاز واريد الزيادة منه نسبة 10% من اوراق الاجابة اريد من كل 10 ورقات ورقة واحدة وهكذا بفرض ان عدد الاوراق 120 ورقة يكون المطلوب فقط 12 ورقة لحساب 10 % وشكرا مقدما.

نسبة 10% من اوراق الاجابة اريد من كل 10 ورقات ورقة واحدة وهكذا بفرض ان عدد الاوراق 120 ورقة يكون المطلوب فقط 12 ورقة لحساب 10 % وشكرا مقدما.