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

[halwim]

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

التعديل المطلوب موجود ضمن الملف المرفق ... أرجو أن أجد الحل متمنيا الخير لكل الأعضاء والخبراء ، شاكرا لهم مقدما على مابذلو وما يبذلون ...ودمتم

تحديد أقرب سلسلة أرقام متصلة عاموديا.rar

[هشام شلبى]

السلام عليكم

طاب مسائك

===============

فى المرفق قف عند اى خلية صفراء او غيرها سيتم ما طلبت ان شاء الله

تحياتى

تحديد أقرب سلسلة أرقام متصلة عاموديا.rar

[halwim]

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

الأخ bosh اسمح لي أولا أن أقدم لك التهنئة على الترقية وإن شاء الله دائما إلى الأعلى والتقدم فأنت تستحق وفقك الله ....

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

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

كما أنني لاحظت أن الكود يقوم بتحديد الخلايا الفارغة بإتجاه الأعلى ابتداء من الخلية النشطة .

وعلى أي حال كل الشكر لك ودمت بخير.

[عبدالله باقشير]

السلام عليكم

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

كما أنني لاحظت أن الكود يقوم بتحديد الخلايا الفارغة بإتجاه الأعلى ابتداء من الخلية النشطة .

تم التعديل على كود اخي هشام الله يبارك فيه

Sub SelectUp()

On Error Resume Next

Dim MyCel As Range, MyRng As Range

Set MyCel = ActiveCell.Offset(-1, 0)

Set MyRng = Range(MyCel, MyCel.End(xlUp)).Cells.SpecialCells(xlCellTypeConstants, xlNumbers)

MyRng.Activate

On Error GoTo 0

End Sub

تفضل المرفق

تحديد أقرب سلسلة أرقام متصلة عاموديا.rar

[خالد القدس]

السلام عليكم

هنيئا لك أستاذ هشام

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

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

ألف مبروووووووك أخي الكريم

وزادك الله رفعة وعلما

[halwim]

السلام عليكم ..........

أستاذ خبور من الأعماق أقول لك شكراااااا نفس المطلوب .... ولكن ياليت تلاحظ مايلي :

إذا إنطلقنا من الخلية الملونة وهي A22 سيتم تحديد الأرقام المتصلة التي فوقها وهذا جيد لكن إترك الخلايا على هذا الوضع (وهي محددة) ثم إنقر مباشرة على الزر مرةأخرى وسوف تجد أن تحديد سلسلة الخلاياالعلوية يبدأ من الخلية A17 وهذا يعني أنها لم تتحدد وهذا مايعني أن واحدة من الخلايا المتصلة لم يشملها التحديد .

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

وشكرأ

[عبدالله باقشير]

السلام عليكم

جرب الكود التالي:

Sub SelectUp()

On Error Resume Next

Dim MyCel As Range, MyRng As Range

Dim R As Integer

For R = 1 To 2

    Set MyCel = ActiveCell

    Set MyRng = Range(MyCel, MyCel.End(xlUp)).Cells.SpecialCells(xlCellTypeConstants, xlNumbers)

    MyRng.Activate

Next

On Error GoTo 0

End Sub

[halwim]

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

أخي أستاذ خبور لا أملك لك إلا الدعاء , نعم هذا عز الطلب سلمت يداك ؛؛

أستاذ هل لي أن أطمع في المزيد ؟ بحيث تضيف زر ثاني جديد تحت الزر السابق بعنوان : تحديد خلايا النصوص فقط مع تجاهل خلايا الأرقام عكس هذا الكود تماما ؟

وأيضا تضيف زر ثالث بعنوان : تحديد الأرقام والنصوص معا ؟

مرة أخرى شكرا لك

[halwim]

بالنسبة للطلب التالي :

إضافة زر ثالث بعنوان : تحديد الأرقام والنصوص معا ؟

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

Sub SelectUp()

    Range(ActiveCell, ActiveCell.End(xlUp)).Select

    Range(ActiveCell, ActiveCell.End(xlUp)).Select

End Sub