MOHAMEDREEFAY قام بنشر مايو 9, 2013 قام بنشر مايو 9, 2013 أريد بمجرد إن أقف على خلية أكسيل تعطى لون وأول ما أنتقل لخلية أخرى ترجع الخلية مرة أخرى للون الأبيض
حمادة عمر قام بنشر مايو 9, 2013 قام بنشر مايو 9, 2013 (معدل) السلام عليكم الاخ الكريم /http://www.officena....showtopic=41520جزاك الله خيرا كود لتلوين الخلية النشطة .rar تم تعديل مايو 10, 2013 بواسطه حمادة عمر
عزيز عرابي قام بنشر مايو 9, 2013 قام بنشر مايو 9, 2013 أخي الكريم اهلا و سهلا بك جرب الملف المرفق فكرة حلوة select.rar 1
حمادة عمر قام بنشر مايو 9, 2013 قام بنشر مايو 9, 2013 السلام عليكم الاخ الكريم / عزيز عرابي بارك الله فيك فكرة حلوة ... احسنت جزاك الله خيرا
عزيز عرابي قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 بارك الله فيك استاذ حمادة سبحان الله لم انتبه انك قد رفعت ملفك قبلي شكرا لك
حمادة عمر قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 السلام عليكم الاخ الكريم / عزيز عرابي بارك الله فيك لقد سبقتك لفعل الخير هذه المرة اخي الكريم ... ولا عليك اخي فكلنا هنا لنفيد بعضنا البعض وكثرة الحلول في نفس الموضوع تجعل الموضوع اكثر ثراءا ومفيدا للجميع ولمن يبحثون عن مثل هذا الموضوع جزاك الله خيرا
مجدى يونس قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 الاخ عزيز عرابى فكرة حلوة الاخ حمادة جميل السباق للخير كما هو جميل النشاط بالمنتدى جزاك الله خير
احمد غانم قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 السلام عليكم و جمعة مباركة عليكم جميعاً فعلاً افكار جميله و الأجمل هو التسابق الى فعل الخيرات بارك الله جهودكم لكن هناك مشكلة ان الكود يمنع تلوين الخلايا بالتنسيق؟ هل من حل
أبو محمد عباس قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ابو سما سباقا للخير كما عهدناك دون تسابق ولكن هي الارادة القوية للاجابة على اسئلة الاخوة الاعزاء زادك الله علما ومعرفة لتنفع به عباد الله الاخ العزيز عزيز عرابي جزاك الله خيرا كود رائع وان شاء الله نرى منك المزيد من المشاركات بارك الله فيكم وجعل جميع اعمالكم في ميزان حسناتكم دمتم برعاية الله وحفظه
الخالدي قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 السلام عليكم ورحمة الله وبركاته مجهود متميز استاذ حمادة عمر في ميزان حسناتك ان شاء الله والشكر ايضا لك من مر على الموضوع السلام عليكم و جمعة مباركة عليكم جميعاً فعلاً افكار جميله و الأجمل هو التسابق الى فعل الخيرات بارك الله جهودكم لكن هناك مشكلة ان الكود يمنع تلوين الخلايا بالتنسيق؟ هل من حل الكود المرفق يقوم بتلوين الخلية النشطة واعادة تلوين الخلية النشطة السابقة بلونها السابق ايضا عند تلوين الخلية النشطة بلون جديد تظل محتفظة بلونها الجديد والكود يحتاج لتحسين ليتوافق اكثر مع الوان اكسل2007 و2010 في أمان الله تلوين الخلية النشطة مع حفظ اللون السابق.rar 1
عادل ابوزيد قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 استاذنا الخالدى ما شاء الله عليك كود ولا اروع تسلم يداك وجعله فى ميزان حسناتك
حمادة عمر قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 السلام عليكم ورحمة الله وبركاته مجهود متميز استاذ حمادة عمر في ميزان حسناتك ان شاء الله السلام عليكم الاستاذ القدير / الخالدي بارك الله فيك شهادة عظيمة وكبيرة جدا من استاذ كبير وقدير اعتز بها مدي حياتي وكود جميل جدا وذو طابع خاص ... كما تعودنا منك دائما لا تغير طريقك ابدا ... فلا تعرف الا طريق الابداع جزاك الله خيرا
عزيز عرابي قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 الأخوة الكرام و الاعزاء ما شاء الله تبارك الله يسعدني جداً تعاوننا
احمد غانم قام بنشر مايو 11, 2013 قام بنشر مايو 11, 2013 السلام عليكم ورحمة الله وبركاته مجهود متميز استاذ حمادة عمر في ميزان حسناتك ان شاء الله والشكر ايضا لك من مر على الموضوع السلام عليكم و جمعة مباركة عليكم جميعاً فعلاً افكار جميله و الأجمل هو التسابق الى فعل الخيرات بارك الله جهودكم لكن هناك مشكلة ان الكود يمنع تلوين الخلايا بالتنسيق؟ هل من حل الكود المرفق يقوم بتلوين الخلية النشطة واعادة تلوين الخلية النشطة السابقة بلونها السابق ايضا عند تلوين الخلية النشطة بلون جديد تظل محتفظة بلونها الجديد والكود يحتاج لتحسين ليتوافق اكثر مع الوان اكسل2007 و2010 في أمان الله اخي الكريم الخالدي اعزك المولى واكرمك لقد اجدت فأحسنت بارك الله جهودك و جعل كل عملك زيادة في ميزان حسناتك واثابك المولى كل خير تقبل تحياتي و تقديري
hussam alhamadani قام بنشر مايو 27, 2013 قام بنشر مايو 27, 2013 مشكورين اخواني على هذة الجهود لكن ممكن هل ممكن تلوين سطر كامل او عمود كامل عند الوقوف علية وشكرا
زاكي بوشلاغم قام بنشر أغسطس 31, 2013 قام بنشر أغسطس 31, 2013 ممكن كود بلون الخلية النشطة ويبقي على لون الخلية حيث انا لديا خلايا ملونة في الورقة وعند استعمال هذا الكود يزيل لون الخلايا انا اريده ان لايزيل لون الخلايا ويلون الخلية النشطة
الـعيدروس قام بنشر أغسطس 31, 2013 قام بنشر أغسطس 31, 2013 السلام عليكم الاستاذ القدير الخالدي عمل احترافي وقيم بارك الله فيك وجزاك كل خير تقبلو مروري
زاكي بوشلاغم قام بنشر سبتمبر 2, 2013 قام بنشر سبتمبر 2, 2013 ممكن كود بلون الخلية النشطة ويبقي على لون الخلية حيث انا لديا خلايا ملونة في الورقة وعند استعمال هذا الكود يزيل لون الخلايا انا اريده ان لايزيل لون الخلايا ويلون الخلية النشطة
محمدعبدالرحيم احمد قام بنشر أكتوبر 17, 2014 قام بنشر أكتوبر 17, 2014 السلام عليكم ورحمة الله وبركاته هذه أول مشاركة لى بمنتداكم هذا واننى مبتدئ بالإكسيل وقد تصفحت صفحات المنتدى وقد استفدت منكم وارجومن الأخوة الأعزاء أعزكم الله مراجعة الكودالسايق تلوين الخلية النشطة مع حفظ اللون السابق.rar بحيث يتم تفعميله على جميع الأوراق على الاّ يتم نسخ الكود بكل ورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) MyColor = 6 If Not IsError(Me.[N_Color_Rng]) Then If Not IsError(Me.[N_Color_Color]) Then If Not IsError(Me.[N_Color_Old]) Then If Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Old] Then Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Color] End If End If End If End If Me.Names.Add "N_Color_Rng", ActiveCell Me.Names.Add "N_Color_Color", ActiveCell.Interior.ColorIndex Me.Names.Add "N_Color_Old", MyColor ActiveCell.Interior.ColorIndex = MyColor End Sub ولكم جزيل الشكر
ياسر خليل أبو البراء قام بنشر أكتوبر 22, 2014 قام بنشر أكتوبر 22, 2014 يمكن استخدام هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = 46 End With End Sub
محمدعبدالرحيم احمد قام بنشر أكتوبر 25, 2014 قام بنشر أكتوبر 25, 2014 الأخ الكريم بعد التحية برجاء تطبيق هذا الكود على جميع أوراق الملف وليس بنسخ الكود بكل ورقة الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) MyColor = 6 If Not IsError(Me.[N_Color_Rng]) Then If Not IsError(Me.[N_Color_Color]) Then If Not IsError(Me.[N_Color_Old]) Then If Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Old] Then Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Color] End If End If End If End If Me.Names.Add "N_Color_Rng", ActiveCell Me.Names.Add "N_Color_Color", ActiveCell.Interior.ColorIndex Me.Names.Add "N_Color_Old", MyColor ActiveCell.Interior.ColorIndex = MyColor End Sub ولكم منا جزيل الشكر والإمتنان
ياسر خليل أبو البراء قام بنشر أكتوبر 25, 2014 قام بنشر أكتوبر 25, 2014 أخي الحبيب ببساطة قم بعمل كليك يمين على اسم ورقة العمل المراد نسخ الكود فيه ثم View Code ثم لصق ثم بس خلاص
الخالدي قام بنشر أكتوبر 25, 2014 قام بنشر أكتوبر 25, 2014 السلام عليكم ورحمة الله وبركاته الاخ العزيز والاستاذ الفاضل ياسر خليل جزاك الله كل الخير زمان ما شوفناك واشتقنا للمشاركة معك وبعد الاذن في المرفق تعديل لكود التلوين مع حفظ اللون السابق الكود في حدث الملف ليعمل على كل الاوراق واخيرا تمنياتي لك بدوام الصحة والعافية في امان الله تلوين الخلية النشطة في كل الاوراق مع حفظ اللون السابق.rar 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.