(تمت الإجابة) احتواء نص داخل خلية محددة على كلمة ( خصم ) فيقوم بتغميقها

[الجزيرة]

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

مثال :

سداد باقي الحساب مع خصم مبلغ 200 ريال

بحيث تكون كلمة خصم غامقة اللون B ، مع خالص الشكر سلفاً :)

[معتصم محمد]

الأستاذ / ابو عبدالله

يمكنك إستخدام الكود التالي

Option Explicit

Sub FormatInsideCell()


Dim StartChar As Integer, NumChar As Integer, CellLen As Integer

Dim FormatThis As String


FormatThis = "خصم"

NumChar = Len(FormatThis)

CellLen = Len(ActiveCell)

StartChar = InStr(1, ActiveCell.Value, FormatThis, vbTextCompare)


    If StartChar > 0 Then

	    ' التنيق الذي سيُطبق على النص الذي يسبق كلمة خصم

'	    With Selection.Characters(1, StartChar - 1).Font

'		    .Italic = True

'	    End With


	    With Selection.Characters(StartChar, NumChar).Font

		    .FontStyle = "Bold"

	    End With

	    ' التنيق الذي سيُطبق على النص الذي يلي كلمة خصم

'	    With Selection.Characters(StartChar + NumChar, CellLen).Font

'		    .Size = 15

'		    .Underline = xlUnderlineStyleSingle

'	    End With


    End If

End Sub

مع ملاحظة أنك تستطيع تعديل التنسيق الذي تريده و كذلك الكلمة التي سيتم التطبيق عليها

تم تعديل ديسمبر 3, 2011 بواسطه معتصم محمد

[الجزيرة]

أشكرك أخي معتصم

على الكود الجميل

Sub FormatInsideCell()

Dim StartChar As Integer, NumChar As Integer, CellLen As Integer

Dim FormatThis As String

FormatThis = "ÎÕã"

NumChar = Len(FormatThis)

CellLen = Len(ActiveCell)

StartChar = InStr(1, ActiveCell.Value, FormatThis, vbTextCompare)

    If StartChar > 0 Then


		    With Selection.Characters(StartChar, NumChar).Font

				    .FontStyle = "Bold"

		    End With


    End If

End Sub

ولكن لو امكن اختصاره ، كذلك تحديد الخلية H14 بدلاً من الخلية النشطه

[معتصم محمد]

أشكرك أخي معتصم

على الكود الجميل

ولكن لو امكن اختصاره ، كذلك تحديد الخلية H14 بدلاً من الخلية النشطه

تفضل اخي الفاضل

Sub FormatInsideCell()


Dim StartChar As Integer, NumChar As Integer

Dim FormatThis As String


FormatThis = "خصم"

NumChar = Len(FormatThis)

StartChar = InStr(1, Range("H14").Value, FormatThis, vbTextCompare)


    If StartChar > 0 Then

		    With Range("H14").Characters(StartChar, NumChar).Font

				    .FontStyle = "Bold"

		    End With

    End If

End Sub

[الجزيرة]

الآن أصبح ممتاز

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

أثقلت عليك أخي معتصم ، فأرجوا المعذرة :)

[معتصم محمد]

استاذي الفاضل / أبو عبدالله

للأسف الشديد لم اتعامل قبل ذلك مع الـ Forms فلا اعرف كيفية اداء هذه المهمة

لعل وعسى احد الإخوة الأفاضل يقوم بهذه المهمة :(

[الجزيرة]

لعل وعسى احد الإخوة الأفاضل يقوم بهذه المهمة :(

ما قصرت أخي معتصم ، بارك الله فيك

بإنتظار أحد الأخوان :)

[أبوعبد الله]

أخي العزيز / معتصم

كود رائع بارك الله فيك .

أخي العزيز / أبو عبدالله

ياريت توضح أكتر وبشيئ من التفصيل طلبك وياريت يكون بملف مرفق علني أو غيري يستطيع تنفيذه .

تقبلوا تحياتي

أبو عبدالله

[الجزيرة]

تفضل أخي الحبيب أبو عبد الله

الشرح في الملف المرفق :)

خصمات.rar

[أبوعبد الله]

أخي العزيز / أبو عبدالله

أرجو الاطلاع على المرفق وفيه بمجرد الانتهاء من الكتابة في ال TEXTBOX1 بالفورم إضغط مفتاح TAB للخروج وتفعيل الكود كما طلبت إلى جانب تفعيل مفتاح " خروج " ( الذي أضفته بعد إذنك ) لإنهاء الفورم وليجد ال TEXTBOX1 أي CONTROL آخر للذهاب إليه بعد الخروج منه ، أرجو أن يكون ما تم موافق لرغبتك .

تقبل تحياتي

والشكر موصول لأخي العزيز / معتصم

أبو عبدالله

خصمات.rar

[الجزيرة]

أخي الحبيب أبو عبد الله

تمام ، ولكن أود ظهور ما يكتب في التيكست بوكس في الخلية الصفراء

الخطأ مني فأعذرني لأني لم أوضح ذلك :)

[أبوعبد الله]

تم عمل المطلوب بالمرفق

تحياتي

خصمات.rar

[الجزيرة]

الله ينوّر :)

كذا ميه ميه

شكراً من القلب

[الجزيرة]

أخي الكريم / أبو عبد الله :)

فضلاً وليس أمراً ، شاهد المطلوب 2

خصمات.rar

[الـعيدروس]

السلام عليكم

إستحالة يتم التغيير في المعادلة لان المعادلة

تقراء من الزرقاء أو اني فهمت ماتريده خطاء

[أبوعبد الله]

أخي العزيز / أبو عبدالله

طالما أن المعادلة في H17 هي لتسجيل نفس البيانات الموجودة في H14 ، فهذا ما يحضرني من حل بالمرفق .

تحياتي

خصمات-1.rar

[الجزيرة]

أخي الكريم العيدروس ، حياك الله في الموضوع

----------

أخي الكريم أبو عبد الله

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

[أبوعبد الله]

أخي العزيز / أبو عبدالله

أتفق مع الأخ العزيز / العيدروس في الرأي فحسب معلوماتي الضعيفة لا يمكن عمل الفورمات المطلوب على نتيجة معادلة .

تحياتي

[الجزيرة]

بارك الله فيكم جميعاً

وشكراً للمساعدة الغير مستغربه :)