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

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



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




14-09-2018 02:21 صباحا
مشاهدة مشاركة منفردة [9]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1068
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4569
الاعجاب : 270
 offline 
look/images/icons/i1.gif سلاسل رقمية
عودا حميدا استاذ محمد يمكنك استخدام كود الأستاذ سليم فى هذه الحالة كما يلى:
Option Explicit
Sub my_serie()
Dim k%: k = 12
Dim cel As Range
Range("A12", Range("A11").End(4)).ClearContents
For Each cel In Range("b3", Range("b2").End(4))
 With Cells(k, 1)
    .Value = 10
    .DataSeries Rowcol:=xlColumns, Stop:=cel.Value
 End With
 k = k + cel.Value - 9
Next
End Sub






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



الساعة الآن 05:36 صباحا

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