أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لعمل قائمة ارقام بشكل معين

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


موضوع مغلق


14-08-2021 11:25 مساء
wmgc
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-02-2019
رقم العضوية : 11546
المشاركات : 26
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 19
 offline 

السلام عليكم

ارغب فى كود لعمل تكرار كما هو واضح بالملف
 
 
  شيت 2.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(36.605) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
عموماً حسب فهمي للملف جرب الكود التالي ، سيقوم الكود بوضع النتائج في العمود الرابع والخامس لتقارن النتائج بما في الملف
Sub Test()
    Const col As Integer = 4    'Result Column
    Const mx As Long = 1000     'Maximum Number
    Const rw As Long = 5        'End Row
    Dim i As Long, r As Long
    For i = 1 To rw
        r = (6 * (i - 1)) + 4
        Cells(r, col).Value = i
        Cells(r, col).Offset(2, 1).Value = i
        Cells(r, col).Offset(4, 1).Value = mx + i
    Next i
End Sub


أول ثلاثة أسطر عبارة عن ثوابت وهي بالترتيب رقم العمود المطلوب وضع النتائج فيه ، والرقم الذي سيمثل رقم البداية 1000 والذي سيزيد في كل مرة بمقدار 1 ، والثابت الثالث هي النهاية المطلوبة لعدد مرات التكرار وهنا وضعتها 5 كما في المثال.
عرض الإجابة




15-08-2021 05:38 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود لعمل قائمة ارقام بشكل معين
وعليكم السلام أخي الكريم
أين وصف المشكلة؟ ما هي المعطيات التي لديك ؟ وما هو المنطق المتبع بشكل يدوي لعمل المطلوب؟ وما هي الصورة النهائية للشكل المتوقع للنتائج المطلوبة؟
وهل المطلوب سيكون في العمود الأول أم الثاني أم كلاهما؟

15-08-2021 05:48 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود لعمل قائمة ارقام بشكل معين
عموماً حسب فهمي للملف جرب الكود التالي ، سيقوم الكود بوضع النتائج في العمود الرابع والخامس لتقارن النتائج بما في الملف
Sub Test()
    Const col As Integer = 4    'Result Column
    Const mx As Long = 1000     'Maximum Number
    Const rw As Long = 5        'End Row
    Dim i As Long, r As Long
    For i = 1 To rw
        r = (6 * (i - 1)) + 4
        Cells(r, col).Value = i
        Cells(r, col).Offset(2, 1).Value = i
        Cells(r, col).Offset(4, 1).Value = mx + i
    Next i
End Sub


أول ثلاثة أسطر عبارة عن ثوابت وهي بالترتيب رقم العمود المطلوب وضع النتائج فيه ، والرقم الذي سيمثل رقم البداية 1000 والذي سيزيد في كل مرة بمقدار 1 ، والثابت الثالث هي النهاية المطلوبة لعدد مرات التكرار وهنا وضعتها 5 كما في المثال.

15-08-2021 08:16 صباحا
مشاهدة مشاركة منفردة [3]
wmgc
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-02-2019
رقم العضوية : 11546
المشاركات : 26
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 19
 offline 
look/images/icons/i1.gif كود لعمل قائمة ارقام بشكل معين
تمام شكرا جزيلا استاذنا الغالى ربنا يبارك فى حضرتك 

16-08-2021 04:53 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود لعمل قائمة ارقام بشكل معين
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات.



الكلمات الدلالية
لعمل ، قائمة ، ارقام ، بشكل ، معين ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:47 مساء