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

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


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



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





سلاسل رقمية

السلام عليكم ورحمة الله وبركاته ارجو المساعدة فى هذا السؤال السؤال مرفق بالملف لمشاهدة الروابط يلزمك التسجيل في أكاديمية ..



12-09-2018 01:56 مساء
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 542
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 7
قوة السمعة : 835
الاعجاب : 91
 offline 

السلام عليكم ورحمة الله وبركاته ارجو المساعدة فى هذا السؤال السؤال مرفق بالملف لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  سلاسل رقمية.rar   تحميل rar مرات التحميل :(16)
الحجم :(7.007) KB







13-09-2018 05:44 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6724
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18667
الاعجاب : 807
 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





13-09-2018 06:10 صباحا
مشاهدة مشاركة منفردة [2]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 542
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 7
قوة السمعة : 835
الاعجاب : 91
 offline 
look/images/icons/i1.gif سلاسل رقمية
الله عليك استاذ ياسر حل رائع واكثر من ممتاز بارك الله فيك وزادك من علمه استاذ ياسر بعد اذنك ممكن تساعدنى فى شيت الترحيل الافقى





13-09-2018 08:59 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6724
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18667
الاعجاب : 807
 offline 
look/images/icons/i1.gif سلاسل رقمية
بارك الله فيك أخي الكريم
عندما يكون الموضوع واضح والمطلوب واضح ستجد استجابة أفضل من إخوانك
قم بطرح موضوع جديد بطلبك وضع مرفق ووضح المعطيات وضع بعض النتائج المتوقعة .. وإن شاء الله ستجد المساعدة من إخوانك
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات





13-09-2018 01:49 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1107
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4717
الاعجاب : 338
 offline 
look/images/icons/i1.gif سلاسل رقمية
بارك الله فيك استاذ ياسر كود ممتاز جعله الله فى ميزان حسناتك



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


13-09-2018 01:51 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6724
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18667
الاعجاب : 807
 offline 
look/images/icons/i1.gif سلاسل رقمية
تسلم أخي الحبيب علي ومشكور على مرورك العطر وتفاعلك الدائم والمميز في المنتدى





13-09-2018 04:52 مساء
مشاهدة مشاركة منفردة [6]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 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 = 1
    .DataSeries Rowcol:=xlColumns, Stop:=cel.Value
 End With
 k = k + cel.Value
Next
End Sub






13-09-2018 04:59 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6724
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18667
الاعجاب : 807
 offline 
look/images/icons/i1.gif سلاسل رقمية
تسلم أخي الحبيب سليم ومشكور على تفاعلك المثمر في الموضوعات المختلفة
لقد أضفت للمنتدى مذاقاً خاصاً كنا نفتقده في عدم وجودك فيما بيننا .. جزاك الله خيراً 123





14-09-2018 01:04 صباحا
مشاهدة مشاركة منفردة [8]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 611
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 524
قوة السمعة : 6757
الاعجاب : 193
 offline 
look/images/icons/i1.gif سلاسل رقمية
بارك الله فيك أخى الحبيب أبو البراء
و نحمد الله تعالى بوجود أستاذنا الكبير / سليم 
فعلا إضافة عظيمة للمنتدى
----------------------
نسأل الله العظيم أن يديم عليكم نعمة العلم النافع ويزيدكم علما
---------------------------------------


ملحوظة : لو حبيت أغير بداية كل سلسلة رقمية غير رقم 1  لاحظت أنه  يترك عدد أسطر فارغة تحتها بقيمة البداية التى اخترتها ثم يكمل
مثلا : عنتد اختيار بداية السلسلة برقم 10 فيتم الترقيم تمام بالسلسلة الأولى ،  وبعدها يترك 10 أسطر فارغة قبل البدء بالسلسلة الثانية وهكذا 
ـ فلماذا ؟؟؟؟ وهل يمكن تلافى ذلك ليكون التلسلسل  لباقى السلاسل الرقمية تحت بعضها مباشرة ؟؟؟؟





14-09-2018 02:21 صباحا
مشاهدة مشاركة منفردة [9]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1107
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4717
الاعجاب : 338
 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






توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


14-09-2018 05:50 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6724
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18667
الاعجاب : 807
 offline 
look/images/icons/i1.gif سلاسل رقمية
بارك الله فيك أخي الحبيب محمد الدسوقي .. جرب كود الأخ علي وشوف النتائج مضبوطة معك أم لا
إذا لم تضبط يرجى وضع صورة لشكل المطلوب .. لما تريد أن تبدأ التسلسل من رقم مختلف غير الواحد؟ لأن المتعارف عليه التسلسل يبدأ من الرقم 1
 





14-09-2018 01:24 مساء
مشاهدة مشاركة منفردة [11]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 678
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 813
الاعجاب : 52
 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

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





14-09-2018 01:36 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6724
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18667
الاعجاب : 807
 offline 
look/images/icons/i1.gif سلاسل رقمية
أخي الكريم خالد
يمكنك استخدام مفتاح تتبع الكود F8 بحيث يتم تنفيذ الكود سطر بسطر ...
قم بتغيير الأرقام الموجودة في الملف الأصلي بأرقام صغيرة 5 - 4 - 2 -3 بحيث يسهل عليك تتبع النتائج
راقب نافذة اللوكال قبل وبعد تنفيذ كل سطر لترى التغيير الذي يحدث ... وكذلك راقب ورقة العمل 
وإذا تعثرت في نقطة محددة أخبرنا بها






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ضبط كود السلاسل الرقمية مالك ماريه
7 458 ابونور
اضافة على كود سلاسل رقمية مالك ماريه
16 814 مالك ماريه

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


 







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



الساعة الآن 12:34 صباحا

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