اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

تسلم يداك

ولى طلب

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

مثلا

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

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

وهكذا

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

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

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

رابط هذا التعليق
شارك

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

مثلا

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

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

وهكذا

شاهد المرفق،

_____________________________________2.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

و الف شكر لك

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

بودي أن أظلل عمود وليكن مثلاً المدى 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

تم تعديل بواسطه علي السحيب
رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه الجزيرة
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information