تلوين جزء من جملة فى خلية

[samycalls2020]

السلام عليكم

هل يمكن تلوين كلمة وسط جملة فى خلية ..

 

تلوين جزء من جملة فى خلية.xlsm

تم تعديل أغسطس 25, 2019 بواسطه samycalls2020

[محمد طاهر عرفه]

تم نقل الموضوع لقسم الاكسيل

[وجيه شرف الدين]

انظر لهذا الملف لعله يفى بالغرض

تلوين جزء من جملة فى خلية.xlsm

[Ali Mohamed Ali]

بارك الله فيك أستاذ وجيه الكود ممتاز ويعمل بكفاءة جعله الله في ميزان حسناتك

[samycalls2020]

سلام الله عليك أستاذ / وجيه

شكراً على مجهودك وأهتمامك وتواصلك

هذا المرفق به ملحوظتين على عمل الكود ..

تقبل تحياتى

تلوين جزء من جملة فى خلية.xlsm

[محمد طاهر عرفه]

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

ربما لا يمكن عمل ذلك ، و اتمني أن يجد الأخوة حل لهذا الأمر

 

الملحوظة الثانية : تطبيق التلوين على ما يكتب من النصوص و ليس فقط عند تعديل الخلية 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

 

[samycalls2020]

الأستاذ / محمد طاهر .. السلام عليكم

بالقعل التعديل قام بالحل للملاحظة الثانية .. وأتمنى مثلكم أن يشاركونا الأخوة بالمنتدى لحل هذا الأمر نظراً لأهميته بالنسبة لى وربما لغيرى ..

كل الشكر لشخصكم الكريم .. وللأستاذ الفاضل / وجيه شرف الدين

تم تعديل أغسطس 27, 2019 بواسطه samycalls2020

[محمد طاهر عرفه]

صراحة بحسب ما اعرف ، لا يمكن عمل المطلوب بالنسبة للملاحظة الأولي ، و الله اعلم

و كما سبق اتمنى أن يأتينا أحد الأخوة بفكرة تتيح ذلك

[ابو القبطان]

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

دمت معلما لنا