تحديد خلايا مجاورة

[Akram Galal]

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

تحية طيبة لكل أعضاء المنتدى

أريد عمل زر يقوم بتحديد عدد 12 خلية مجاورة للخلية النشطة + الخلية النشطة

فمثلا:

اذا قمت بإختيار الخلية B9 وقمت بالضغط علي الزر يتم تحديد الخلايا من B9 الي N9

جزاكم الله خيراً .

[سليم حاصبيا]

 انسخ عذا الماكرو الى ملفك في Module

  و حدد له زر على الورقة

Sub select_multiple_cells()
Dim r As Integer
r = 12
Range(ActiveCell, ActiveCell.Offset(0, r - 1)).Select

End Sub

[ياسر خليل أبو البراء]

الأخ الكريم أكرم جلال

إليك الكود التالي

Sub ResizeActiveCell()
    ActiveCell.Resize(, 13).Select
End Sub

[ياسر خليل أبو البراء]

أعتذر إليك أخي سليم لم أرى مشاركتك إلا بعد أن أدرجت المشاركة الخاصة بي

تسلم وربنا يبارك فيك

 

شيل من الكود الخاص بك -1 ليتم المطلوب كما أرد الأخ أكرم

[Akram Galal]

أ/ سليم

أ/ ياسر

جزاكم الله خيرا

وأشكركم علي سرعة الإجابة

[ياسر خليل أبو البراء]

أ/ سليم

أ/ ياسر

جزاكم الله خيرا

وأشكركم علي سرعة الإجابة

الحمد لله أن تم المطلوب أخي الكريم أكرم

بقي الالتزام التوجيهات