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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil شيت كنترول ابتدائى 2019 ـ برنامج كنوز اكسيل اسئله واجابات




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




14-09-2018 01:24 مساء
مشاهدة مشاركة منفردة [11]
khaled alborene
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 525
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 567
الاعجاب : 223
 offline 
look/images/icons/i1.gif سلاسل رقمية
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء العلي القدير
Sub Test()
    Dim v, i As Long, m As Long

    v = Application.Index(Range("A2").CurrentRegion.Value, , 2)

    For i = 2 To UBound(v)
        Debug.Print v(i, 1)
        m = Cells(Rows.Count, 1).End(xlUp)(2).Row
        With Range("A" & m).Resize(v(i, 1))
            .Value = Evaluate("ROW(1:" & .Count & ")")
        End With
    Next i
End Sub

استاذ ياسر ممكن شرح للكود



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



الساعة الآن 10:01 مساء

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