اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





تكرار كل رقم 100 مره

السلام عليكم ورحمة الله وبركاته ممكن كود او معادلة مثلا رقم 1 يكرر رقم 1... 100 مئه مره تحته رقم 2 يكرر 100مئه مره وه ..



04-08-2018 06:33 مساء
محمد النيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 53
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 6
يتابعونه : 3
قوة السمعة : 61
الاعجاب : 21
 offline 

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

مثلا رقم 1 يكرر رقم 1...  100 مئه مره
تحته رقم 2 يكرر 100مئه  مره وهكذا بقية الارقام
شكرا لكل من سعى
 


تم تحرير الموضوع بواسطة :محمد النيل
بتاريخ:05-08-2018 11:41 مساء







04-08-2018 07:22 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim i           As Long
    Dim m           As Long

    Application.ScreenUpdating = False
        For i = 1 To 5
            m = IIf(i = 1, 1, Cells(Rows.Count, 1).End(xlUp)(2).Row)
            Range("A" & m).Resize(100).Value = i
        Next i
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: Eslam Abdullah، محمد النيل، الصقر،




04-08-2018 07:56 مساء
مشاهدة مشاركة منفردة [2]
محمد النيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 53
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 6
يتابعونه : 3
قوة السمعة : 61
الاعجاب : 21
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
احسنت استاذ YasserKhalil
الف تحية وتقدير ... ماقصرت ... وفيت وكفيت ...الصحة والسلامة يارب لشخصك المحترم



 

أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر،




04-08-2018 08:14 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
بارك الله فيك أخي الكريم محمد والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: محمد النيل، Eslam Abdullah،




04-08-2018 08:48 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 447
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 448
الاعجاب : 176
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
استاذ ياسر ماذا تعني IIf





04-08-2018 08:49 مساء
مشاهدة مشاركة منفردة [5]
محمد النيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 53
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 6
يتابعونه : 3
قوة السمعة : 61
الاعجاب : 21
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
نعم تم المطلوب 100%
81

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




04-08-2018 09:02 مساء
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 917
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 48
قوة السمعة : 5309
الاعجاب : 1511
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
المشاركة الأصلية كتبت بواسطة: khaled alborene »
استاذ ياسر ماذا تعني IIf

الدالة IIf هيا نفسها الدالة IF بورقة العمل تتكون من 3 عوامل
العامل الاول هو الشرط والثانى هو ارجاع ناتج فى حالة تحقق الشرط والثالث هو ارجاع ناتج فى حالة عدم تحقق الشرط

أثارت هذه المشاركة إعجاب: YasserKhalil،




04-08-2018 09:04 مساء
مشاهدة مشاركة منفردة [7]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 917
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 48
قوة السمعة : 5309
الاعجاب : 1511
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim i           As Long
    Dim m           As Long

    Application.ScreenUpdating = False
        For i = 1 To 5
            m = IIf(i = 1, 1, Cells(Rows.Count, 1).End(xlUp)(2).Row)
            Range("A" & m).Resize(100).Value = i
        Next i
    Application.ScreenUpdating = True
End Sub

كود رائع أستاذى الحبيب ، جزاك الله كل خير 81

أثارت هذه المشاركة إعجاب: YasserKhalil،




04-08-2018 09:07 مساء
مشاهدة مشاركة منفردة [8]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 652
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 127
قوة السمعة : 2199
الاعجاب : 800
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
نفس سؤالى خالد iif محتاجه توضيح واعتقد لتقصيرى في الدروس زمان كان فيه موضوع لاستاذ ياسر خليل شارحها فية واعاد استاذ اسلام نشرة ولكني لم ادرسه جيدا فنسيته ارجوا من استاذ ياسر خليل اعادة ارسال الرابط للاستفاده
 

أثارت هذه المشاركة إعجاب: Eslam Abdullah، khaled alborene،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


04-08-2018 09:14 مساء
مشاهدة مشاركة منفردة [9]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 447
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 448
الاعجاب : 176
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
نعم كما قال الاستاذ محمود نحتااج الى مزيد من الشرح والتوضيح لدالة iif

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




04-08-2018 09:17 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
بارك الله فيكم إخواني وجزيتم خيراً
شرحها الأخ إسلام في سطر واحد وهي شبيهة بدالة IF .. ولكنها محدودة بحدوث احتالمين فقط أما إذا كانت الاحتمالات أكثر من اثنين فلابد من استخدام IF الشرطية

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




04-08-2018 09:21 مساء
مشاهدة مشاركة منفردة [11]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 652
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 127
قوة السمعة : 2199
الاعجاب : 800
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
خير الكلام ما قل ودل شكرا وفهمت معلش بقه الدماغ صدى عايز سنفرة  هههههههه smile

أثارت هذه المشاركة إعجاب: Eslam Abdullah، YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


04-08-2018 09:33 مساء
مشاهدة مشاركة منفردة [12]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 917
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 48
قوة السمعة : 5309
الاعجاب : 1511
 offline 
look/images/icons/i1.gif تكرار كل رقم 100 مره
كما قال أستاذ ياسر هى شبيها بدالة if بورقة العمل
وأيضا يمكنك انشاء دوال IIF مركبة مثلها مثل دالة IF بورقة العمل تماما
واليكم مثال عملى للتوضيح

Sub Test()
Dim E As Variant
E = IIf(Range("A1").Value = "Eslam", 1, IIf(Range("A1").Value = "Yasser", 2, 3))
Range("B1").Value = E
End Sub

شرح الدالة وضعت شرط اذا كانت قيمة الخلية A1 تساوى Eslam عندها يكون الناتج 1 بمعنى المتغير E يساوى 1
أما لو كان الاسم فى الخلية A1 ياسر عندها يكون الناتج 2 بمعنى المتغير E يساوى 2
غير ذلك يكون الناتج 3 بمعنى المتغير E يساوى 3
ومن ثم تظهر قيمة المتغير E بالخلية B1
ملاحظة يراعى هنا أن لو كتبت الحرف Capital يجب ان يكون فى ورقة العمل Capital لتحقق الشرط
ويمكن تجنب الامر باستخدام دالة UCase أو LCase ومشروحة بدورة افتح الباب للاستاذ ياسر
أرجوا أن أكون أوضحت الأمر

أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الحلقة الرابعة عشر الحلقات التكرارية Eslam Abdullah
4 65 YasserKhalil
أرقام عشوائية بين عددين بدون تكرار ( معادلات) salim
6 104 YasserKhalil
جملة التكرار Do While Loop YasserKhalil
4 163 YasserKhalil
ترحيل الى الشيت الثاني بدون تكرار محمد النيل
7 196 محمد الدسوقى
عدم تكرار الارقام عند الادخال من خلال TextBox وكتابة كلمة محددة في البداية أباالحسن
0 105 أباالحسن

الكلمات الدلالية
تكرار ،


 







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



الساعة الآن 02:49 صباحا

أعلن هنا
أعلن هنا
أعلن هنا