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

اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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




13-09-2018 05:44 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6583
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18182
الاعجاب : 625
 offline 
look/images/icons/i1.gif سلاسل رقمية
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء العلي القدير
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



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



الساعة الآن 04:16 صباحا

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