اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تلوين كلمات محددة داخل خلية

السلام عليكم لدي في الخلية C1 نص طويل به مجموعة كبيرة من الكلمات وأريد أن ألون الكلمات التي يتبعها علامة # فقط أما بقية ..



15-05-2018 10:06 صباحا
flyingbirds
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 08-05-2018
رقم العضوية : 6169
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 1-1-1987
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 

السلام عليكم

لدي في الخلية C1 نص طويل به مجموعة كبيرة من الكلمات وأريد أن ألون الكلمات التي يتبعها علامة # فقط أما بقية الكلمات تظل كما هي بدون ألون ، وكذلك إزالة علامة الشباك
مثال لمحتوى الخلية
احمد محمد # - سعيد عبده - عبد الرحيم عبد الله # - عبد الحميد عبد الله - احمد صلاح - محمد صلاح #

الأسماء التي يليها علامة الشباك فقط هي المطلوب تلوينها
وجزاكم الله خيراً






17-05-2018 06:36 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11119
الاعجاب : 3943
 Online 
look/images/icons/i1.gif تلوين كلمات محددة داخل خلية
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim x           As Variant
    Dim y           As Variant
    Dim fStr        As String
    Dim i           As Long
    Dim j           As Long

    If InStr([C1].Value2, "#") = 0 Then Exit Sub
    x = Split([C1].Value2, "-")

    For i = 0 To UBound(x)
        If InStr(x(i), "#") Then
            x(i) = Trim(Replace(x(i), "#", ""))
            fStr = IIf(Len(fStr) = 0, i, fStr & "-" & i)
        End If
    Next i

    [C1].Value = Join(x, " - ")
    y = Split(fStr, "-")

    For i = 0 To UBound(y)
        For j = Application.Find(x(y(i)), [C1].Value2) To Application.Find(x(y(i)), [C1].Value2) + Len(x(y(i))) - 1
            [C1].Characters(j, 1).Font.Color = vbRed
        Next j
    Next i
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali،




17-05-2018 07:23 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 303
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 16
قوة السمعة : 1871
الاعجاب : 477
 Online 
look/images/icons/i1.gif تلوين كلمات محددة داخل خلية
بارك الله فيك -أحسنت استاذنا الكبير
كود فى قمة الروعة جعله الله فى ميزان اعمالك
وتقبل منك سائر الأعمال فى هذا الشهر المبارك من صيام وصلاة وقيام وتلاوة القران الكريم

أثارت هذه المشاركة إعجاب: YasserKhalil،




17-05-2018 09:44 مساء
مشاهدة مشاركة منفردة [3]
flyingbirds
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 08-05-2018
رقم العضوية : 6169
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 1-1-1987
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif تلوين كلمات محددة داخل خلية
ممتاز أستاذ ياسر
بالفعل كود في قمة الروعة
جزاك الله خيراً ورمضان كريم وتقبل الله منا ومنكم

أثارت هذه المشاركة إعجاب: YasserKhalil،




18-05-2018 08:54 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11119
الاعجاب : 3943
 Online 
look/images/icons/i1.gif تلوين كلمات محددة داخل خلية
بارك الله فيكم إخواني وأحبابي في الله
وكل عام وأنتم بخير

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات







الكلمات الدلالية
كلمات ، تلوين ، محددة ، داخل ، خلية ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 03:49 مساء

أعلن هنا
أعلن هنا
أعلن هنا