samycalls2020 قام بنشر أغسطس 25, 2019 مشاركة قام بنشر أغسطس 25, 2019 (معدل) السلام عليكم هل يمكن تلوين كلمة وسط جملة فى خلية .. تلوين جزء من جملة فى خلية.xlsm تم تعديل أغسطس 25, 2019 بواسطه samycalls2020 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 26, 2019 مشاركة قام بنشر أغسطس 26, 2019 تم نقل الموضوع لقسم الاكسيل 1 1 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر أغسطس 26, 2019 مشاركة قام بنشر أغسطس 26, 2019 انظر لهذا الملف لعله يفى بالغرض تلوين جزء من جملة فى خلية.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أغسطس 27, 2019 مشاركة قام بنشر أغسطس 27, 2019 بارك الله فيك أستاذ وجيه الكود ممتاز ويعمل بكفاءة جعله الله في ميزان حسناتك 4 رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر أغسطس 27, 2019 الكاتب مشاركة قام بنشر أغسطس 27, 2019 سلام الله عليك أستاذ / وجيه شكراً على مجهودك وأهتمامك وتواصلك هذا المرفق به ملحوظتين على عمل الكود .. تقبل تحياتى تلوين جزء من جملة فى خلية.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد طاهر عرفه قام بنشر أغسطس 27, 2019 أفضل إجابة مشاركة قام بنشر أغسطس 27, 2019 الملحوظة الأولي : تطبيق التلوين على المعادلات ايضا و ليس النصوص فقط ربما لا يمكن عمل ذلك ، و اتمني أن يجد الأخوة حل لهذا الأمر الملحوظة الثانية : تطبيق التلوين على ما يكتب من النصوص و ليس فقط عند تعديل الخلية C1 جرب التعديل البسيط التالي لكود الأخ وجيه Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As Integer If IsEmpty(Range("c1")) Then Exit Sub lr = Range("b" & Rows.Count).End(xlUp).Row Range("b4:b" & lr).Font.ColorIndex = xlAutomatic For Each c In Range("b4:b" & lr) For i = 1 To lr If Mid(c.Value, i, Len(Range("c1"))) = Range("c1").Value Then c.Characters(i, Len(Range("c1"))).Font.Color = vbRed End If Next Next End Sub 2 1 رابط هذا التعليق شارك More sharing options...
samycalls2020 قام بنشر أغسطس 27, 2019 الكاتب مشاركة قام بنشر أغسطس 27, 2019 (معدل) الأستاذ / محمد طاهر .. السلام عليكم بالقعل التعديل قام بالحل للملاحظة الثانية .. وأتمنى مثلكم أن يشاركونا الأخوة بالمنتدى لحل هذا الأمر نظراً لأهميته بالنسبة لى وربما لغيرى .. كل الشكر لشخصكم الكريم .. وللأستاذ الفاضل / وجيه شرف الدين تم تعديل أغسطس 27, 2019 بواسطه samycalls2020 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أغسطس 28, 2019 مشاركة قام بنشر أغسطس 28, 2019 صراحة بحسب ما اعرف ، لا يمكن عمل المطلوب بالنسبة للملاحظة الأولي ، و الله اعلم و كما سبق اتمنى أن يأتينا أحد الأخوة بفكرة تتيح ذلك رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر أكتوبر 27, 2019 مشاركة قام بنشر أكتوبر 27, 2019 استاذ محمد طاهر مهما قيل عنك ... لن يوفيك قدرك دمت معلما لنا 1 رابط هذا التعليق شارك 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.