تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي)

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

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

إخواني الكرام في الصرح العملاق أوفيسنا (الذي يعتبر بمثابة الأم التي تحتضن أبناء الوطن جميعهم)

أقدم لكم موضوع بسيط جدا في كيفية تظليل عمود وصف الخلية النشطة بناءً على رغبة الأخ الحبيب أحمد غانم (حفظه الله ورعاه)

إذا أردت تنفيذ الفكرة بنفسك قم بعمل الآتي :

أولاً حدد خلايا ورقة العمل بأكملها ..مش صعبة يا أحمد

ثانياً روح للتنسيق الشرطي ..واختار New Rule ثم Use a formula to determine which cells to format ثم اكتب المعادلة التالية :

=COLUMN()=COLUMN(INDIRECT($P$1))

اضغط Format  ثم التبويب Fill واختار اللون اللي على مزاجك (يا لذيذ يا رايق)

كرر نفس الخطوات السابقة مرة أخرى واكتب المعادلة التالية أيضاً ..

=ROW()=ROW(INDIRECT($P$1))

ثالثاً : كليك يمين على ورقة العمل ثم View Code واكتب الكود التالي :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
        Range("P1").Value = Target.Address
    Application.ScreenUpdating = True
End Sub

رابعاً ودي أهم خطوة : بس خلاص

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

 

Highlight Activecell's Row And Column V2.rar

[الصـقر]

ما شاء الله يا ابو الافكار

راااااااااااااااااااااااااائع

بداية الاسبوع بقى كلك نشاط وحيوية 

ابداع منقطع النظير

تقبل تحياتى

[عبد الله بولنوار]

جميل جدا با برنس

 

 

تنسيق متقاطع.rar

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

مشكور على مرورك العطر أيها الصقر المبدع

أخي الحبيب عبد الله بارك الله فيك وجزيت خيراً على التطبيق للموضوع

تقبلوا تحياتي

[ابو تراب]

ما شاء الله تبارك الله ايش الابداع هذا .....فكرة ممتازة و شرح اروع

 

جزاك الله خيرا عن كل حرف كتبت

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

جزيت خيراً أخي الحبيب أبو تراب

إذا كان للإبداع عنوان فأنت عنوانه ..

أعمالك ليست كثيرة لكنها مميزة ..وفي انتظار المزيد منها إن شاء الله

تقبل تحياتي

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

إخواني الكرام وهذا إصدار آخر مختلف قليلاً عن الإصدار رقم 2

حيث أنه أصلا طلب الأخ أحمد غانم أن يكون بهذا الشكل ... :fff:

 

Highlight Activecell's Row And Column V3.rar

[عبد الله بولنوار]

 

إخواني الكرام وهذا إصدار آخر مختلف قليلاً عن الإصدار رقم 2

حيث أنه أصلا طلب الأخ أحمد غانم أن يكون بهذا الشكل ... :fff:

 

هل التغير في الكود ايضا ام في دوال التنسيق فقط

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

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

[عبد الله بولنوار]

 

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

 

ههههههههههههههههههههه

 

انا بالفعل فتحت الملف ووجدت تغيير في الدوال

 

سالت عن الكود لانه ممكن يكون  تغيير بسيط فيه دون ان انتبه له - كسلان -

 

و انت سيد العارفين

 

و ماشاء الله عليك عبقري في اختصار الكود و التعديلات الخفيفة

[أبو محمد عباس]

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

اعمالكم في قمة الابداع والروعة

وجهود مميزة وكبيرة

وفقكم الله ورعاكم وجعل اعمالكم في موازين حسناتكم

 

 

 

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

أخي الحبيب عبد الله بولنوار (على فكرة يعني ايه بولنوار دي ؟؟؟)

بارك الله فيك ، ومتزعلش إني بقولك بلاش كسل ..أنا بس بناغشك ، كلمة عامية بالمصري (يعني بهزر معاك )

الأخ الحبيب الغالي صاحب الجولات والصولات أبو محمد عباس ..

جزيت خيراً على كلماتك الرقيقة والمشجعة لنا دائماً .. وهذا غيض من فيض علمكم

بارك الله فيك ..

تقبلوا تحياتي

[عبد الله بولنوار]

بولنوار هو اسمي العائلي معناها ( ابو الانوار ) مثل ما يقال بو زهرة بو الرجال بو الاحبة

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

نورت الموضوع ونورت المنتدى يا أبا الأنوار .. ربنا يوعدك بالجنة ويكفيك شر النار ، وفي الآخرة يرضى عنك الجبار..

تقبل تحياتي

[جلال الجمال_ابو أدهم]

استاذ /  ياسر خليل
بارك الله فيك

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

مشكور على مرورك العطر أخي الحبيب جلال ...

جزيت خير الجزاء

[احمد غانم]

 

إخواني الكرام وهذا إصدار آخر مختلف قليلاً عن الإصدار رقم 2

حيث أنه أصلا طلب الأخ أحمد غانم أن يكون بهذا الشكل ... :fff:

 

اخي الكريم المبدع ياسر خليل اعزك و حفظك المولى

اني عاجز عن الشكر و واجب التقدير... و بعد لم اجد الا ...شكراً  

آسف لتأخري بالرد و اجد اني بفضل الله و فضلك وجدت ضالتي في هذا الموضوع

جزاك الله كل الخير عنا وعن اجميع الإخوه في هذا الصرح العظيم المبني على المحبة واأخوه

لك دعائي بدوام العافية و التوفيق و النجاح         

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

لا تقل بفضل الله وفضلك ..ولكن قل بفضل الله وحده ..وإذا كان لابد قل بفضل الله ثم ثم ثم بفضلك

وجزيت خيراً على دعائك الطيب أخي أحمد غانم  

الحمد لله الذي بنعمته تتم الصالحات

[إختبارات]

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

 

جزيت خيرا وبارك الله فيك ونفع بعلمك وعملك , وجعله في موازين حسناتك , اللهم آمين

 

لدي ملاحظات بسيطة وأعتقد بأنها مهمة للتعديل في صفحتك التالية:

https://yasserkhalilexcellover.blogspot.com.eg/2016/08/highlight-activecells-row-and-column.html

 

في بداية الشرح لم تذكر : حدد خلايا ورقة العمل بأكملها

 

ثم وجدت خطأ في الأكواد التالية الموجود بالرابط السابق

 

=AND(COLUMN()=COLUMN(INDIRECT($P$1)),ROW()<=ROW(INDIRECT($P$1)))
                                                                
                                                                =AND(ROW()=ROW(INDIRECT($P$1)),COLUMN()<=COLUMN(INDIRECT($P$1)))

وبعد تمحيص بالأكواد المرفقة بملف التجربة التالي :

https://www.file-upload.cc/zk45n28fu73w

 

وجدت الأكواد التالية الصحيحة :

=AND(ROW()=ROW(INDIRECT($P$1));COLUMN()<=COLUMN(INDIRECT($P$1)))
                                                                
                                                                =AND(COLUMN()=COLUMN(INDIRECT($P$1));ROW()<=ROW(INDIRECT($P$1)))

الفرق هو وجود هذه العلامة , بدلاً ; وهو لا يسمح بتنفيذ المهمة حسب تجربتي لها ويظهر لي رسالة خطأ

 

وفقنا الله وإياكم للخير دائماً وأبدا.

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

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

ليس هناك خطأ ..الفكرة في أن الفاصلة والفاصلة المنقوطة كلاهما صحيح حسب إعدادات الويندوز

فلدي في الإعدادات الخاصة بي استخدم الفاصلة العادية ، لكن إذا قمت بتحميل الملف من عندي وشغلته عندك وكانت الإعدادات لديك بالفاصلة المنقوطة ستظهر المعادلات بالفاصلة المنقوطة

تلك هي القضية

تقبل تحياتي

[إختبارات]

جزيت خيرا على ما تفضلت به :)

 

ولي عودة إن شاء الله

[مجدى يونس]

جذاك الله خير

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

وجزيت خيراً بمثل ما دعوت لي أخي الغالي مجدي يونس

تقبل تحياتي