التركيز علي صف واحد

[ماجدجلال]

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

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

السؤال : هل توجد طريقة او كود يقوم بتظليل الصف عندما اكون في خلية معينة ؟

ولتوضيح : لنفرض انني اراجع الصف من الخلية A15 حتي M15 ولنفرض ان الكود ثم تفعيلة في الخلية N15 او كامل العمود N بمجرد وجود المستخدم في ان صف من العمود N يتم تطبيق هذا التركيز علية ,,

بحيث لو انني نقرت علي الزر انتر وانتقلت المؤشرة الي الخلية N16 يتم نقل التركيز الي كامل الصف من الخلية A16 الي الخلية M16 ,

وشكرا لكم ,,,

[m.hindawi]

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

لم افهم طلبك جيدا

عملت هذا الملف اذا كان يفي بالغرض

Book1o.rar

[ماجدجلال]

شكرا لك استاذ هنداوي ,,

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

Rows(Target.Row).Range("A1:H1").Select

حيث ان هذا يجعل التحديد فقط علي الصف من A حتي H

ولقد نجح معي من انني لست افهم كيف يتم تحديد الصف الذي فية التركيز مع ان الامر Range يتطلب فقط التركيز علي النطاق a1:h1

فقط ,,,,

بالنسبة للتوضيح : لنفترض انك استاذ هنداوي تريد فقط قراة البيانات الموجودة في الصف رقم 13 فقط , عندما تنقر علي الرقم 13 نفس " اي دون النقر علي اي خلية " وانما النقر علي المربع الذي مكتوب فية الرقم 13 الا يحصل هنا تظليل لكامل هذا الصف , هذا ما كنت اقصدة في المشاركة الاولي ,, مع فرق بسيط وهو ان يتم التركيز فقط علي عدد من الخلايا يعني مثلا التركيز علي 7 خلايا مجاورة لبعض في نفس الصف ,,,,

وهذا ما حصل ولله الحمد ,,

ولكم كل الشكر والامتنان ,

ملاحظة : لاحظت استاذ هنداوي انة عند النقر علي السهم المتجه الي الاسفل تنتقل المؤشرة او التركيز علي الخلية الاولي في الصف التالي وليس علي الخلية التي في الاسفل مباشرا ,

مثال : لنفرض ان المؤشرة في الخلية رقم ( D5) ونقرت السهم المتجه الي الاسفل فان التركيز ينتقل الي الخلية رقم ( A6 ) وليس الخلية رقم ( D6) ,,

فما هو التعديل المناسب حتي يتم تصحيح المشكلة السابقة ,,

وشكرا لكم ,,,

[ماجدجلال]

استاذ هنداوي ارجو المساعدة ,,,

انا اعرف انك مشغول باعداد الدروس الله يعطيك الف عافية ,,,

ولكن لا نستطيع الاستغناء عنكم ,,

ارجو المساعدة فيما يلي ,,,

ملاحظة : لاحظت استاذ هنداوي انة عند النقر علي السهم المتجه الي الاسفل تنتقل المؤشرة او التركيز علي الخلية الاولي في الصف التالي وليس علي الخلية التي في الاسفل مباشرا ,

مثال : لنفرض ان المؤشرة في الخلية رقم ( D5) ونقرت السهم المتجه الي الاسفل فان التركيز ينتقل الي الخلية رقم ( A6 ) وليس الخلية رقم ( D6) ,,

فما هو التعديل المناسب حتي يتم تصحيح المشكلة السابقة ,,

وشكرا لكم ,,,

[m.hindawi]

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

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

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Column < 9 And Target.Column >= 1 And Target.Column <> 4 Then
Rows(Target.Row).Range("A1:H1").Select
 End If
 End Sub

مع ملاحظة التالي

عند الانتقال الى العمود رقم 4 فانك سوف تفقد التركيز على الصف

عند الانتقال الى اي عمود غير 4 سوف يعود التركيز على الصف

تسطيع النتقال عموديا في العمود رقم 4 فقط

للانتقال افقيا استخدم مفتاح انتر

تم تعديل مايو 27, 2005 بواسطه m.hindawi

[ماجدجلال]

شكرا لك استاذ هنداوي ,,,

ولكن حتي يكتمل العمل علي الوجة المطلوب , هل يمكن تعديل الكود بحيث اذا كنت في العمود الرابع يتم التركيز وغيرة لا يتم , لان هذا يسبب ارباك ,

طبعا مع الاحتفاظ بالنتقال بالسهم الي اسفل الي الخلية السفلي مباشرا ,,

عشمنا فيكم كبير ,,

وشكرا لكم ,

[m.hindawi]

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

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

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Rows(Target.Row).Range("A1:H1").Select
Target.Columns.Activate

End If
End Sub

واعلمني بالنتيجة

[ماجدجلال]

ممتاز استاذ هنداوي

والف شكرا هذا هو المطلوب

شكرا