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



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





سلاسل رقمية

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



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

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







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

أثارت هذه المشاركة إعجاب: ali mohamed ali، محمد النيل، salim، احمد الحاوي، emad ghazi، السعيد الجزائري،




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





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

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




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

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


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


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

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




13-09-2018 04:52 مساء
مشاهدة مشاركة منفردة [6]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 5
قوة السمعة : 1732
الاعجاب : 352
 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


أثارت هذه المشاركة إعجاب: YasserKhalil، محمد النيل، السعيد الجزائري،




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

أثارت هذه المشاركة إعجاب: salim، محمد النيل، السعيد الجزائري،




14-09-2018 01:04 صباحا
مشاهدة مشاركة منفردة [8]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 375
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 247
قوة السمعة : 2546
الاعجاب : 650
 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
المشاركات : 429
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 2357
الاعجاب : 693
 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




أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى، السعيد الجزائري، salim،


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


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





14-09-2018 01:24 مساء
مشاهدة مشاركة منفردة [11]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 477
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 518
الاعجاب : 203
 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 عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif سلاسل رقمية
أخي الكريم خالد
يمكنك استخدام مفتاح تتبع الكود F8 بحيث يتم تنفيذ الكود سطر بسطر ...
قم بتغيير الأرقام الموجودة في الملف الأصلي بأرقام صغيرة 5 - 4 - 2 -3 بحيث يسهل عليك تتبع النتائج
راقب نافذة اللوكال قبل وبعد تنفيذ كل سطر لترى التغيير الذي يحدث ... وكذلك راقب ورقة العمل 
وإذا تعثرت في نقطة محددة أخبرنا بها

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اضافة على كود سلاسل رقمية مالك ماريه
11 85 Eslam Abdullah

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


 







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



الساعة الآن 09:58 مساء

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