كيف اجعل الارقام تتضاعف حسب تكراره

[عبد الرحيم 11]

السلام عليكم

 

كيف اجعل الارقام تتضاعف حسب تكراره

مثال

 

1

1

1

2

2

2

 

كيف اجعل باقي الارقام تكون تظهر مكررة مثلا 3 مرات ويكون يجري لباقي الارقام مثل 3 و 4 و5 الخ

[أبوبلقيس]

السلام عليكم

أخي أعمل على لغة غير اللغة و نحسبها هكذا

يمكنك المقارنة مع لغتك البرمجية المستعملة

p=""; 
for count = 1, 10 do
p = p.. count .. "\r\n".. count .. "\r\n".. count .. "\r\n"
end
Dialog.Message("Notice", p);

ومن خلال الكود ستظهر الأرقام من 1 إلى 10 مكررة ثلاث مرات تحت بعضها

بعدما تعدلها حسب  برنامجك

 

موفق ريثما يفيدك  أصحاب الاختصاص

[عبد الرحيم 11]

وعليكم السلام

 

يا اخ أبوبلقيس

 

هل يستطيع اكسل ان يفعل ذلك او عن طريق دوال اكسل المتطورة في اكسل 2013

[أبوبلقيس]

قد يفيدك أكثر الاساتذة في القسم المخصص لذلك

يمكن كتابة 1 في خلية  ثم الخلية الثانية = الخلية الأولى

ثم الخلية الثالثة = الخلية الاولى

نقوم بتحديدها و من علامة +  لتتم عملية سحب للأسفل

عند الافلات قد يتحقق ما تريده    موفق

تم تعديل مارس 17, 2014 بواسطه أبوبلقيس

[عبد الرحيم 11]

السلام عليكم

 

يا اخ أبوبلقيس

 

بارك الله فيك

لقد نجحت الطريقة الثانية

[رجب جاويش]

أخى الفاضل / عبد الرحيم

هذا الموضوع يخص منتدى الإكسل لذا سوف يتم نقله

[جمال عبد السميع]

أخى ( عبد الرحيم 11 )

يمكن للمعادلة عمل ماتريدة طالما المطلوب واضح ، حيث لايستطيع الفرد مساعدة زميلة إذا كان المطلوب غير واضح وهذا نعانى منه كثيرا

تقبل تحياتى

تكرار الأرقام بالعدد المطلوب.rar

تكرار ا الأسماء بالعدد المطلوب 2.rar

[شوقي ربيع]

السلام عليكم

بالاضافة الى حل اخي جمال عبد السميع ملك المعادلات هذا حل اخر بواسطة الاكواد

Sub test()
Dim Sh As Worksheet
Dim r As Integer, rr As Integer
Set Sh = ThisWorkbook.Worksheets("Sheet1")
For r = 1 To 100
Sh.Range("A" & rr + 1) = r
Sh.Range("A" & rr + 2) = r
Sh.Range("A" & rr + 3) = r
rr = rr + 3
Next r
End Sub

[أبوبلقيس]

بارك الله فيكم

استفدت 

شكرا

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

السلام عليكم

هذا ايضا بالكود

Sub test()
Dim r As Integer, rr As Integer
For r = 1 To 300 Step 3
    rr = rr + 1
    Range("A" & r).Resize(3).Value = rr
Next r
End Sub

تحياتي