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

[hitech]

اريد عمل تكرار بنفس النظام كما هو واضح فى الملف الرفق

شيت 1.xlsm

[أ / محمد صالح]

بإذن الله هذ الكود يقوم بهذا الترتيب

Sub mas_order()
For n1 = 1 To 10
Range("a" & n1 * 8 - 4).Value = n1
For n2 = 1 To 3
Range("b" & n1 * 8 - 4 + n2 * 2).Value = n2 * 1000 - 1000 + n1
Next n2: Next n1
MsgBox "Done"
End Sub

مع إمكانية التحكم في نهاية الترقيم في العمود A بنهاية المتغير n1 في الحلقة التكراربة (حاليا 10)

بالتوفيق

[hitech]

ربنا يبارك فى حضرتك استاذنا

ممكن لو عاوزها ابضا بالشكل ده

شيت 2.xlsm

[أ / محمد صالح]

نفس فكرة الأولى

إذا فهمت الكود الأول تستطيع بإذن الله أن تصل للكود الثاني

[hitech]

حاولت أ/ محمد ولم استطيع تعديله ... ممكن حتى شرح للكود واحاول اجرب ثانى تحياتى لحضرتك

 

[أ / محمد صالح]

شرح الكود

حلقتين تكراريتين n1 & n2

واحدة للعمود الاول n1 طولها 10

وثانية طولها 3 للعمود الثاني n2 تتكرر داخل الأولى

والأرقام لتجديد الصف الذي يكتب فيه

[hitech]

المشكلة فى الارقام بتظهر ملخبطة

[أ / محمد صالح]

لو فهمت ترتيب هذه الأرقام وحسبت ناتجها في كل حلقة تكرارية

ستصل بإذن الله

ملحوظة : لا تتعشم في إيضاح أكثر من هذا

تقدم الغرب حين فعلوا: لا تعطني سمكة ولكن علمني كيف أصطاد

أما نحن فللأسف نريدها جاهزة وبالمجان

خالص دعواتي بالتوفيق

[hitech]

اللى بيساعد بيساعد لوجه الله اخى الكريم لا يستنى شى من البشر ولو كنت اعلم ما كنت الحيت فى السؤال عموما الف شكر على ذوق حضرتك 

[أ / محمد صالح]

أكيد طبعا

وهل جزاء الإحسان إلا الإحسان

وقل ربي زدني علما

نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا