عبد الرحيم 11 قام بنشر مارس 16, 2014 مشاركة قام بنشر مارس 16, 2014 السلام عليكم كيف اجعل الارقام تتضاعف حسب تكراره مثال 1 1 1 2 2 2 كيف اجعل باقي الارقام تكون تظهر مكررة مثلا 3 مرات ويكون يجري لباقي الارقام مثل 3 و 4 و5 الخ رابط هذا التعليق شارك More sharing options...
أبوبلقيس قام بنشر مارس 16, 2014 مشاركة قام بنشر مارس 16, 2014 السلام عليكم أخي أعمل على لغة غير اللغة و نحسبها هكذا يمكنك المقارنة مع لغتك البرمجية المستعملة p=""; for count = 1, 10 do p = p.. count .. "\r\n".. count .. "\r\n".. count .. "\r\n" end Dialog.Message("Notice", p); ومن خلال الكود ستظهر الأرقام من 1 إلى 10 مكررة ثلاث مرات تحت بعضها بعدما تعدلها حسب برنامجك موفق ريثما يفيدك أصحاب الاختصاص 1 رابط هذا التعليق شارك More sharing options...
عبد الرحيم 11 قام بنشر مارس 17, 2014 الكاتب مشاركة قام بنشر مارس 17, 2014 وعليكم السلام يا اخ أبوبلقيس هل يستطيع اكسل ان يفعل ذلك او عن طريق دوال اكسل المتطورة في اكسل 2013 رابط هذا التعليق شارك More sharing options...
أبوبلقيس قام بنشر مارس 17, 2014 مشاركة قام بنشر مارس 17, 2014 (معدل) قد يفيدك أكثر الاساتذة في القسم المخصص لذلك يمكن كتابة 1 في خلية ثم الخلية الثانية = الخلية الأولى ثم الخلية الثالثة = الخلية الاولى نقوم بتحديدها و من علامة + لتتم عملية سحب للأسفل عند الافلات قد يتحقق ما تريده موفق تم تعديل مارس 17, 2014 بواسطه أبوبلقيس رابط هذا التعليق شارك More sharing options...
عبد الرحيم 11 قام بنشر مارس 17, 2014 الكاتب مشاركة قام بنشر مارس 17, 2014 السلام عليكم يا اخ أبوبلقيس بارك الله فيك لقد نجحت الطريقة الثانية رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 17, 2014 مشاركة قام بنشر مارس 17, 2014 أخى الفاضل / عبد الرحيم هذا الموضوع يخص منتدى الإكسل لذا سوف يتم نقله رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر مارس 17, 2014 مشاركة قام بنشر مارس 17, 2014 أخى ( عبد الرحيم 11 ) يمكن للمعادلة عمل ماتريدة طالما المطلوب واضح ، حيث لايستطيع الفرد مساعدة زميلة إذا كان المطلوب غير واضح وهذا نعانى منه كثيرا تقبل تحياتى تكرار الأرقام بالعدد المطلوب.rar تكرار ا الأسماء بالعدد المطلوب 2.rar رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر مارس 17, 2014 مشاركة قام بنشر مارس 17, 2014 السلام عليكم بالاضافة الى حل اخي جمال عبد السميع ملك المعادلات هذا حل اخر بواسطة الاكواد 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 1 رابط هذا التعليق شارك More sharing options...
أبوبلقيس قام بنشر مارس 17, 2014 مشاركة قام بنشر مارس 17, 2014 بارك الله فيكم استفدت شكرا رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 17, 2014 مشاركة قام بنشر مارس 17, 2014 السلام عليكم هذا ايضا بالكود 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 تحياتي 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان