عفاف جمال قام بنشر يناير 1, 2011 مشاركة قام بنشر يناير 1, 2011 السلام عليكم ورحمة الله وبركاته وكل عام وانت بخير ارجو من الله ان تكونو فى احسن حال وعافية وارجو كما تعودت منكم على المساعدة لى طلب بسيط وهو عند تظليل الاسم يكتب امامه رقم واحد للاسم المظلل فقط وهو اللى ينكتب امامه رقم واحد بمجرد تظليل الاسم ترقيم امظلل.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 2, 2011 مشاركة قام بنشر يناير 2, 2011 السلام عليكم الاخت الفاضلة المرفق سيتم التعامل معه كالتالي اولا الكود الموجود بالملف هو Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 1 Then Exit Sub Application.EnableEvents = False Range("e3:e14") = "" Range("e3:e14").Interior.ColorIndex = xlNone Application.EnableEvents = True n = 1 For i = 3 To 14 If Cells(i, 1).Interior.ColorIndex <> xlNone Then Application.EnableEvents = False Cells(i, 5) = n Cells(i, 5).Interior.ColorIndex = 15 Application.EnableEvents = True n = n + 1 End If Next End Sub و سيتم العمل به لمجرد تحديد اي خلية بالعمود الاول فعند عمل لون معين لخلية الاسم سيتم مسح محتويات و الوان العمود الخامس و البحث من جديد علي كل خليه بها لون في العمود الاول و اعطائها رقم بالترتيب مع تظليلها بلون معين و ذلك في العمود الخامس فقط غيري لون خلية الاسم و اضغطي علي انتر و طبعا لو انك غيرتي لون الخلية الي بلا لون سيتم خرجها من الترتيب و لن تعطي رقم و لن تظلل في العمود الخامس جربي الملف و اخبريني النتيجة تحياتي ترقيم المظلل1.rar رابط هذا التعليق شارك More sharing options...
عفاف جمال قام بنشر يناير 2, 2011 الكاتب مشاركة قام بنشر يناير 2, 2011 (معدل) شكرا للك اخى aah_aah2008 على حسن الاستجابة والكود ولكن الا يوجد معادلة لعمل ذللك بدلا من الكود واريد ان يكون الرقم هو 1 وليس 1 2 3 كما هو موجود فى الكود فانا اريد اى اسم يبقى امامه العدد 1 ترقيم امظلل.rar تم تعديل يناير 2, 2011 بواسطه عفاف جمال رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 2, 2011 مشاركة قام بنشر يناير 2, 2011 السلام عليكم الاخت الفاضلة سيكون الكود كالتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 1 Then Exit Sub Application.EnableEvents = False Range("e3:e14") = "" Range("e3:e14").Interior.ColorIndex = xlNone Application.EnableEvents = True n = 1 For i = 3 To 14 If Cells(i, 1).Interior.ColorIndex <> xlNone Then Application.EnableEvents = False Cells(i, 5) = n Cells(i, 5).Interior.ColorIndex = 15 Application.EnableEvents = True End If Next End Sub تحياتي رابط هذا التعليق شارك More sharing options...
عفاف جمال قام بنشر يناير 2, 2011 الكاتب مشاركة قام بنشر يناير 2, 2011 شكرا للك اخى aah_aah2008 على حسن الاستجابة والكود ولكن الا يوجد معادلة لعمل ذللك بدلا من الكود رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 2, 2011 مشاركة قام بنشر يناير 2, 2011 السلام عليكم ورحمة الله أخي الكريم، باستعمال الدالة (الميزة) GET.CELL قمت بتحضير الملف المرفق الذي تجد فيه بعض الشرح.... أخوك بن علية ترقيم امظلل.rar رابط هذا التعليق شارك More sharing options...
عفاف جمال قام بنشر يناير 3, 2011 الكاتب مشاركة قام بنشر يناير 3, 2011 شكرا ابن علية على المساهمة الطيبة ولكن اريد عند تظليل الاسم يكتب اوتوماتيكبا العدد 1 بدلا من نسخ التنسيقات رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 3, 2011 مشاركة قام بنشر يناير 3, 2011 (معدل) السلام عليكم ورحمة الله شكرا ابن علية على المساهمة الطيبة ولكن اريد عند تظليل الاسم يكتب اوتوماتيكبا العدد 1 بدلا من نسخ التنسيقات أخي الكريم بهذه الشروط لا تدع لنا خيارات، فما عليك إذا إلا العمل بالكود الذي وضعه أخي الكريم عادل aah_aah2008 أو يمكنك تنصيب الدوال الإضافية المعروفة بالاسم Morefunc وتجد فيها دالة باسم XLM.GET.CELL بالمعادلة التالية (في الخلية التي تريد وضع 1 فيها أو عدمه): =IF(XLM.GET.CELL(63;A1)=0;"";1) حيث A1 هي الخلية التي يتم تظليلها (بأي لون كان) ويجب أيضا الضغط على Shift+F9 لتأكيد عمل الدالة أو يمكنك وضع الكود التالي في كود الورقة المعنية: Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Calculate End Sub وليس لي حيلة أخرى... اقتراح: لما لا تقوم بالعملية العكسية تضع يدويا الرقم 1 في السطر الذي تريد تظليل الاسم فيه وباستعمال التنسيق الشرطي يتم تظليل هذا الاسم (أو حتى كل السطر)؟؟؟ أخوك بن علية تم تعديل يناير 3, 2011 بواسطه hben رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 3, 2011 مشاركة قام بنشر يناير 3, 2011 السلام عليكم الاخت الفاضلة يصعب التعامل مع لون الخلية الا بمساعدة الكود و قد قام اخي ابن عليه مشكور بالتحايل لمحاولة المساعدة مع العلم ايضا ان النتيجة لن ترضي في النهاية لانة قد يتم الاستخدام اليدوي بها و لكنه تعب لايجاد حل يبتعد به عنالكود فله الشكر علي ذلك تحياتي رابط هذا التعليق شارك More sharing options...
عفاف جمال قام بنشر يناير 3, 2011 الكاتب مشاركة قام بنشر يناير 3, 2011 شكرا كل الشكر لاساتذتى الذين اتعبتهم معى وارجو منكم تطبيق الكود على الملف المرفق private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 1 Then Exit Sub Application.EnableEvents = False Range("e3:e14") = "" Range("e3:e14").Interior.ColorIndex = xlNone Application.EnableEvents = True n = 1 For i = 3 To 14 If Cells(i, 1).Interior.ColorIndex <> xlNone Then Application.EnableEvents = False Cells(i, 5) = n Cells(i, 5).Interior.ColorIndex = 15 Application.EnableEvents = True End If Next End Sub ترقيم امظلل.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 3, 2011 مشاركة قام بنشر يناير 3, 2011 السلام عليكم ورحمة الله أخي الكريم إليك ما طلبت... وفقك الله لكل خير... أخوك بن علية ترقيم المظلل.rar رابط هذا التعليق شارك More sharing options...
عفاف جمال قام بنشر يناير 4, 2011 الكاتب مشاركة قام بنشر يناير 4, 2011 شكرا للك اخى بن علية وجعله الله فى ميزان حسنا تك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.