لخبراء الاكسل ..... فرز وتلوين كلمة معينة في حقول عمود معين

[ابوياسرالمهندس]

لخبراء الاكسل ..... فرز وتلوين كلمة معينة في حقول عمود معين

بسم الله الرحمن الرحيم

الاخوة الاعزاء في المنتدى

لدي ملف أكسل يحتوي العمود B على ايات من القران الكريم

كيف يمكنني ان اطلب من البرنامج ان يجد كلمة معينة .... مثلا كلمة ( أتى ) ..... ثم يقوم بتلوين الكلمة فقط

اقصد تلوين الكلمة وليس الاية كلها أو الخلية كلها

أي اريد النتيجة تكون كما في الصورة

[عبد الفتاح كيرة]

أرفق ملفا

[ابوياسرالمهندس]

ارفق هذا الملف للتجربة

كيف يمكن البحث عن كلمة أتى

ومن ثم تلوين الكلمات باللون الاحمر كما في الصورة السابقة

Book1.rar

[عبد الفتاح كيرة]

لا أظن هذا سهلا مع وجود التشكيل

فحركات التشكيل

فتحة ضمة كسرة سكون

تحتسب حرفا

فقد استخدمت الدوال الممكنة لتحديد موضع بداية ورود الكلمة

فإنها تعطى رقما أبعد من المكان الحقيقى

مثلا كلمة أتى المشكلة

تأتى فى الآية الثانية فى رقم 41

بينما موضعها الحقيقى فى 21

وذلك بسبب حروف التشكيل

خذ ما أنجزته بالملف

لعل الله يفتح علينا بالمزيد

وفوق كل ذى علم عليم

البحث عن كلمة داخل خلية و تحديد موضعها.zip

[ابوياسرالمهندس]

الاخ خبير إكسيل

شكرا جزيلا لمشاركتك

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

[عبد الفتاح كيرة]

تفضل يا أخى

فتح الله علينا بتلوين الخلية

محاولة ناجحة و لله الحمد

و هذا هو الكود المبارك بالتعاون مع المعادلات

Sub Macro1()

'

' Macro1 ãÇßÑæ

'


'

Application.ScreenUpdating = False

For i = 2 To 100

    Range("B" & i).Select


    With ActiveCell.Characters(Start:=Range("i" & i), Length:=Range("j1")).Font

        .Name = "Arial"

        .FontStyle = "ÛÇãÞ"

        .Size = 11

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .Color = -16776961

        .TintAndShade = 0

        .ThemeFont = xlThemeFontMinor

    End With

   Next i

   Range("a1").Select

Application.ScreenUpdating = False

البحث عن كلمة داخل خلية وتلوينها.zip

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي كيماس

ولاثراء الموضوع

حل آخر قد استخدمته سابقا في ملف المصحف

مع تغيير بسيط

تلوين كلمة من اية.rar

[عبد الفتاح كيرة]

نشكر لك خلقك العالى قبل علمك الجم

فقد وصلنى ردك الأول الذى حذفته

و قد ألهمنى الله الحل بينما كنا نكتب فى وقت واحد

فأردت أنت أن تقدمنى فى الرد

جزاك الله خيرا

و زادك علما و خلقا طيبا

و أنبه إلى أن الكلمة التى نبحث عنها لابد أن تكون مشكولة أيضا

يعنى لو بحثنا عن " أتى "

بدون تشكيل

فالنتيجة = 0

تم تعديل ديسمبر 28, 2010 بواسطه kemas

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، أضيف على عمل أخي الكريم كيماس بعض الإضافات والتغييرات مع كود (لا أقول إنه جيد) ولكنه يفي بالغرض... في انتظار إخوتنا الكرام ليدلوا دلوهم في المسألة... بالنسبة لكلمة البحث يمكن كتابتها بالتشكيل أو دونه...

أخوكم بن علية

البحث عن كلمة داخل خلية و تحديد موضعها.rar

[عبد الفتاح كيرة]

مرحبا بإضافاتك القيمة أخانا الفاضل بن علية

جارى التحميل و الدراسة

[عبد الفتاح كيرة]

أخى بن علية

جميلة الإضافات و التنسيق

لكن لم تعمل معى أبدا بدون تشكيل

ألهذا علاقة بنسخة الإكسل

أستخدم 2007 العربية

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

استاذنا الكريم: خبور

اسمح لي أخي فقد اقتنصت واقتبست كودك وفكرته ووضعته في تفسير القرآن بالاكسيل ، لتعم الفائدة للجميع ، ولتكثر الدعوات لك .. ولصاحب ملف التفسير هذا ( فهو ايضاً من مقتنياتي )

بارك الله فيك .. وفي كل من أدلى بدلوه في هذا الموضوع

تفسير القرآن.rar

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي كيماس

و أنبه إلى أن الكلمة التى نبحث عنها لابد أن تكون مشكولة أيضا

يعنى لو بحثنا عن " أتى "

تعمل عندي على اوفيس 2003 عربي

بدون مشكلة

وهذا حل آخر مختصر واعم

ويعمل بتشكيل او بدون تشكيل

ويكرر التلوين في حالة تكرار الكلمة باختلاف التشكيل

Option Explicit


Sub kh_Color_Characters()

Dim SearchString, SearchChar

Dim R As Integer, H As Integer, st As Integer, sc As Integer

With Worksheets("البحث")

    For R = 2 To .Cells(.Rows.Count, "B").End(xlUp).Row

        .Cells(R, "B").Font.ColorIndex = 0

        If Len(Trim(.Range("kh_textfind"))) <> 0 Then

            SearchString = Trim(.Cells(R, "B").Text) & " "

            SearchChar = Trim(.Range("kh_textfind")) & " "

            H = 1

1:

            On Error Resume Next

            st = Application.WorksheetFunction.Search(SearchChar, SearchString, H)

            If Err.Number = 0 Then

                sc = InStr(st, SearchString, " ") - st

                .Cells(R, "B").Characters(st, sc).Font.Color = vbRed

                H = st + 1

                GoTo 1

            End If

        End If

    Next

End With

End Sub

ودمتم في حفظ الله

تلوين كلمة من اية1.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي كيماس إن الخلل يظهر في إصدار 2007 (عربية أو غيرها) لا أعرف سببه وأعتقد أن إكسيل 2007 يعتبر التشكيل من ضمن الكلمة بينما إكسيل 2003 يحتسبه حرفا ولا يعتبره من ضمن الكلمة... وحتى الكود الجميل الذي وضعه أخونا وحبيبنا خبور خير لا يعمل في إكسيل 2007 إذا كانت الكلمة في الآيات مشكلة بينما كلمة البحث ليست مشكلة...

أخوكم بن علية

[عبد الفتاح كيرة]

السلام عليكم ورحمة الله

وأعتقد أن إكسيل 2007 يعتبر التشكيل من ضمن الكلمة بينما إكسيل 2003 يحتسبه حرفا ولا يعتبره من ضمن الكلمة...

أخوكم بن علية

كلامك تمام أخ بن علية

لكن لعلك تقصد العكس

2007 يعتبر التشكيل حرفا مستقلا

2003 يعتبره من ضمن الحرف المشكل

عزيزى الأخ خبور

المشكلة من الإصدار 2007

حتى ملفك الأخير

يحتاج أن تكون الكلمة مشكولة

انظر الصورة

عموما هذا موضوع مبارك

كثير العلم

إن شاء الله نزداد علما فيه

جزاكم الله خيرا

تم تعديل ديسمبر 28, 2010 بواسطه kemas

[عبدالله باقشير]

السلام عليكم

اخي الحبيب / حسن علي -------حفظه الله

بارك الله فيك

وجزاك الله خيرا

لنا حديث عن ملفك لاحقا

تقبل تحياتي وشكري

==================================

اخي الحبيب / بن عليه -------حفظه الله

اخي الحبيب / كيماس -------حفظه الله

انا لا استخدم اوفيس 2007 الا نادرا

ولا ادري عن حقيقة المشكلة

وفوق كل علم عليم

تقبلا تحياتي وشكري

[ابوياسرالمهندس]

السلام عليكم

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

فسعادتي أكبر بالمشاركات الجميلة للاخوة كلهم بارك الله فيهم

اكرر شكري للجميع

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

اسأل الله أن تكون مشاركاتكم جميعا في ميزان حسناتكم

[mmjksa]

اخواني الاكارم

هل يمكن ان اعملها على اكسل 2003، لانني لا اجد كلمة يحتوى على في الاكسل 2003؟

مع تحياتي

[عبد الفتاح كيرة]

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=37677