تكوين سلسلة ارقام بناء علي البداية و النهاية

[ماجدجلال]

السلام عليكم ورحمة الله ,

هل يمكن اعداد ماكرو يقوم بتكوين سلسلة ارقام بناء علي بداية هذة الارقام ونهايتها التي يحددها المستخدم ؟

ولتوضيح السؤال :

عند تشغيل الماكروا يظهر مربع نص ( بواسطة الدالة inputbox ) يسال المستخدم عند الرقم الاول لهذة السلسلة , ثم يهر مربع نص اخري ( ايضا عند طريق نفس الدالة ) يسال المستخدم عن الرقم الاخير , ثم يقوم الماكروا يتكوين مجموعة الارقام وبشرط ان تكون محصورة بين الرقمين السابقين ( الرقمين الذان حددهما المستخدم كبداية لهذة السلسلة و النهاية ) ,,,

ارجو المساعدة وشكرا ,,,

[علي السحيب]

شاهد المرفق،

____________________________________.rar

[خالد فتحي عبد الفتاح]

بسم الله الرحمن الرحيم

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

[ماجدجلال]

شكرا لك استاذ علي وبارك الله فيك ,

ولكن هناك خطاء فني بسيط , فمثلا عند كتابة بداية السلسلة هة الرقم ( 4 ) و النهاية هو الرقم ( 10 ) , تظهر رسالة تقول ( بداية السلسلة اكبر من نهايتها ) , مع ان الرقم ( 4 ) اصغر من الرقم ( 10 ) ,

ارجو المساعدة ’ وشكرا

[علي السحيب]

تم التعديل .. شاهد المرفق،

____________________________________.rar

[abada mahdy]

استاذى الفاضل / على السحيب

تسلم يداك

ولى طلب

اريد ان أدخل سلسلة ارقام جديد من حيث انتهت السلسة الاولى

مثلا

السلسلة الاولى بداية من 101 : 200

السلسلة الثانية بداية من 501 : 601

وهكذا

هذا ينفع لادخال الرقم السرى للطالب بجانب رقم الجلوس

ارجو ان يكون طلبى واضح

وشكرا جزيلا لك استاذى الفاضل

[ماجدجلال]

شكرا لك استاذ علي , الان صار الملف 100%

بارك الله فيك وفي علمك

[علي السحيب]

اريد ان أدخل سلسلة ارقام جديد من حيث انتهت السلسة الاولى

مثلا

السلسلة الاولى بداية من 101 : 200

السلسلة الثانية بداية من 501 : 601

وهكذا

شاهد المرفق،

_____________________________________2.rar

[abada mahdy]

رائع استاذى الفاضل/ على حسين

ولكن لى ملاحظة وهى :

خلية البداية افتراضية ( بداية السلسة ) وهى الخلية A1

اريد أن يكون لى اختيار الخلية التى تبدأ منها السلسة الرقمية

B11 أو أى خلية أخرى أحددها.

جزاك الله خيرا استاذى الفاضل وبارك الله فيك

أخوك عباده مهدى

[ماجدجلال]

استاذ علي لدي ملاحظة بسيطة ,

لحظت انة في حالة اذا اخطي المستخدم وجعل بداية السلسلة اكبر من نهايتها , فان الكود يكتب بداية السلسلة في خلية واحدة فقط وهي الخلية a1 ثم يتوقف وهذا منطقي وصحيح ,

والتعديل لماذا لا نجعل الكود يقوم بعد الخلايا التي تحتوي علي ارقام في الخليتين a1 a2 فاذا وجد ان عددها يساوي 1 يقوم بمسحها , وهو تصحيح للخطاء الذي وقع فيه المستخدم ,

وللتوضيح الفكرة :

نفرض ان المستخدم ادخل الرقم 10 لبداية السلسلة و الرقم 4 لنهايتها , في هذة الحالة فان الكود سوف يكتب في الخلية a1 الرقم 10 ثم يتوقف , وهنا ( وبعد التعديل ) يقوم الكود بمسح الرقم 10 المكتوب في الخلية a1 ,

ارجو ان تكون الفكرة واضحة , وايضا ما هي الاضافات علي الكود السابق في المشاركة رقم 5 لتناسب التعديل الاخير ,

و الف شكر لك

[علي السحيب]

شاهدا المرفق،

_____________________________________3.rar

[abada mahdy]

استاذى الفاضل /على حسين السحيب

سلام الله عليكم ورحمته وبركاته

عندما احدد الاختيار (البدء من الخلية الحالية)

واحدد لها بداية السلسة ونهايتها تبدء عملها

وبعد الانتهاء من السلسلة الاولى يسألنى مربع لحوار (هل تريد انشاء سلسلة رقمية اخرى) فأختار نعم واحدد له بدية السلسة ونهايتها يبدأ السلسة الرقمية فوق السلسلة التى انشأها فى المره الاولى لأن الخلية الحالية هى الخلية التى حددتها له من المرة الاولى

والمطلوب أن يبدأ من حيث انتهت السلسلة الرقمية الاولى حيث اننى لم أخرج من مربع الحوار (هل تريد انشاء سلسلة رقمية اخرى)

ارجو أن يكون طلبى واضح

وشكرا استاذى الفاضل

وجزاك الله عنا خيرا

[الجزيرة]

موضوع مهم وممتاز

أخي الكريم علي السحيب

بودي أن أظلل عمود وليكن مثلاً المدى A3:A15 أو أي مدى آخر ، ثم أضغط على زر فيتم ترقيم المدى المحدد من رقم 1 إلى آخر التحديد ، علماً أن المدى متغير ممكن A1:A22 أو A1:A9 . . . . الخ

والله يكثر خيرك يا بو حسين

[علي السحيب]

موضوع مهم وممتاز

أخي الكريم علي السحيب

بودي أن أظلل عمود وليكن مثلاً المدى A3:A15 أو أي مدى آخر ، ثم أضغط على زر فيتم ترقيم المدى المحدد من رقم 1 إلى آخر التحديد ، علماً أن المدى متغير ممكن A1:A22 أو A1:A9 . . . . الخ

والله يكثر خيرك يا بو حسين

كان من المفروض أن تطرح هذا السؤال في موضوع جديد .. على كل حال .. الكود التالي يفي بالغرض:

Sub Numbering()
For R = 1 To Selection.Rows.Count
Cells(ActiveCell.Row, ActiveCell.Column)(R) = R
Next
End Sub

شاهد المرفق،

Numbering_Selected_Cells.rar

[علي السحيب]

استاذى الفاضل /على حسين السحيب

سلام الله عليكم ورحمته وبركاته

عندما احدد الاختيار (البدء من الخلية الحالية)

واحدد لها بداية السلسة ونهايتها تبدء عملها

وبعد الانتهاء من السلسلة الاولى يسألنى مربع لحوار (هل تريد انشاء سلسلة رقمية اخرى) فأختار نعم واحدد له بدية السلسة ونهايتها يبدأ السلسة الرقمية فوق السلسلة التى انشأها فى المره الاولى لأن الخلية الحالية هى الخلية التى حددتها له من المرة الاولى

والمطلوب أن يبدأ من حيث انتهت السلسلة الرقمية الاولى حيث اننى لم أخرج من مربع الحوار (هل تريد انشاء سلسلة رقمية اخرى)

ارجو أن يكون طلبى واضح

وشكرا استاذى الفاضل

وجزاك الله عنا خيرا

تم إضافة التعديل المطلوب ..

وتم أيضاً إضافة خاصية جديدة وهي عدد الخطوات المُراد لكل رقم أن يخطوها للرقم الذي يليه ..

بعبارة أخرى .. إذا أردنا أن يكون ترتيب الأرقام في السلسلة على النحو التالي: 1 ثم 2 ثم 3 .. فهذا يعني أننا نريد الرقم الأول أن يخطوا خطوة واحدة فقط إلى الرقم الذي يليه .. فنكتب في مربع عدد الخطوات الرقم 1.

أما إذا أردنا أن يكون ترتيب الأرقام هكذا: 1 ثم 3 ثم 5 .. فهذا يعني أننا نريد الرقم الأول أن يخطوا خطوتان إلى الرقم الذي يليه .. فنكتب في مربع عدد الخطوات الرقم 2.

وهكذا....

شاهد المرفق،

____________________________________.rar

تم تعديل نوفمبر 22, 2006 بواسطه علي السحيب

[الجزيرة]

كان من المفروض أن تطرح هذا السؤال في موضوع جديد .. على كل حال .. الكود التالي يفي بالغرض:

آسف أخي علي ، سأنتبه لذلك لأحقاً إن شاء الله

والكود رائع وممتاز بارك الله فيك وفي ذريتك

تم تعديل نوفمبر 22, 2006 بواسطه الجزيرة