مايكرو عمل تحديد

[Mohammed Farid]

السلام عليكم

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

من العمود A إلى العمود H

أى على سبيل المثال عندما أقف على الخلية A4 يتم عمل تحديد للخلايا من A4 إلى H4

أو مثلا عندما أقف على الخلية G9 يتم عمل تحديد للخلايا من A9 إلى H9

[طارق محمود]

السلام عليكم

كل عام وانتم بخير

أخي العزيز

هذا هو الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("A:H").Interior.ColorIndex = xlNone

If Target.Column > 8 Then Exit Sub

Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.ColorIndex = 6

End Sub

ومرفق الملف به الكود

تحديد الصف الذى تقف عليه.rar

[أبوعبد الله]

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

إلى جانب حل أخي الحبيب طارق المتميز هذه فكرة أخرى في نفس الإطار، وكل عام وانتم بخير

ابو عبدالله

SELECT ROW CELLS FROM A TO H IF SELECT ANY CELL IN A TO H.rar

[محمد يحياوي]

كل عام وانتم بخير

تعديل بسيط على كود استاذنا طارق و ذلك لتحديد النطاق دون التعبئة

select rang2.rar

[MAHMOUD ALI YOUSSEF]

السلام عليكم

الاستاذة العمالقة

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

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

ورمضان كريم

تم تعديل أغسطس 1, 2011 بواسطه MAHMOUDFOXMAM

[يحيى حسين]

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

أخي يمكنك عمل ذلك بالتنسيق الشرطي

قم بتحديد الأعمدة من A:H

ثم في التنسيق الشرطي ضع الشرط التالي :

=CELL("row")=ROW()

ثم إذهب إلى اسم الصفحة و رايت كليك و اختر View Code وضع الكود التالي :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

End Sub

و سيتم تنفيذ المطلوب

ان شاء الله

[ياسر الحافظ]

الاساتذة :

م. طارق .... او عبد الله .... يحياوي .... محمود .......... يحيى حسين

ردود رائعة ... كلنا نستفيد

وفقكم الله

ياسر الحافظ " ابو الحارث "

[عبدالله المجرب]

الاساتذة الكرام

م. طارق

ابو عبد الله

يحياوي

يحيى حسين

تعدد الافكار والحلول والنتيجة واحدة

زادكم الله من العلم

ابواحمد

[Mohammed Farid]

شكرا لكم إخوانى الكرام

كل عام وأنتم بخير