أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


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


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

Preview




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

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



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

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

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




17-05-2018 06:36 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9001
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26668
الاعجاب : 673
 offline 
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




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



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

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




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

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







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


 







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

الساعة الآن 12:00 صباحا

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