المساعدة فى تلوين رقم تسلسل موجود فى نص

[وليد المصرى 1]

السلام عليكم جميعا وكل عام وانتم بخير بمناسبة قرب شهر رمضان

اريد تلوين رقم تسلسل موجود في نص معين

مثال

 

ALO/DOM/0001/JAN/2014

ALO/DOM/0002/JAN/2014

ALO/DOM/0003/JAN/2014

 

اريد تلوين التسلسل فقط اذا امكن

هل يوجد تنسيق شرطي

 

[جمال عبد السميع]

أخى الحبيب ( GOODLIFE )

لايمكن عمل ذلك أحى عن طريق المعادلات ، ولابد من عمل ذلك عن طريق الكود

وطبعا أعنى بذلك إستحالة عمله عن طريق التنسيق الشرطى

والله أعلى وأعلم

تقبل تحياتى

[وليد المصرى 1]

أستاذ جمال اشكرك على ردك واهتمامك . ملحوظة

التسلسل هي معادلة لو امكن كود يفى بالغرض ماشى الحال

[طارق محمود]

السلام عليكم

أخي العزيز

ضع هذا الكود

Sub Macro1()
For Each ce In Selection
    ce.Characters(Start:=9, Length:=4).Font.ColorIndex = 3
Next
End Sub

ثم إختر المجال الذي به رقم تسلسل وشغل الكود
 

[طارق محمود]

تفضل المرفق به الكود

 

رقم تسلسل.rar

[وليد المصرى 1]

أستاذ طارق كيف حالك يارب تكون بخير

مرفق ملف لان بصراحة مش عارف حضرتك اعمل الكود

 

111.rar

[وليد المصرى 1]

انا لم أراي ملف حضرتك الا الان

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

[طارق محمود]

السلام عليكم

الكود لايعمل علي المعادلات

يعمل علي الخلايا التي ليس بها معادلات فقط تيكست Text

لو نقلت هذه الأرقام المتسلسلة لورقة أخري كتيكست (قيم فقط) paste Value

ستجد الكود يعمل عليها

 

حللت لك حلا آخر بلا أكواد - قسمت الأرقام المتسلسلة علي ثلاث أعمدة

تفضل المرفق

111_2.rar

[وليد المصرى 1]

اشكرك يا أستاذ طارق على مجهودك العظيم الف شكر يا اخى

هذا يفى بالغرض

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

[سليم حاصبيا]

اكتب هذا الكود لعله المطلوب

افتراضاَ ان التسلسل في اعامود أ يمكنك التغيير

Sub talween()

lr = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lr
If Mid(Range("a" & i).Value, 1, 4) = "ALO/" Then Cells(i, 1).Font.Color = -16776961
Next
End Sub

[سليم حاصبيا]

السلام عليكم 

عسى ان اكون قد وفّقت في ايجاد الحل بواسطة الكود

/على افتراض الن النص في العامو د  A

تلوين قسم من النص.rar

[وليد المصرى 1]

اشكرك أستاذ سليم

لكن هل يوجد التلوين تلقائى بمجرد الكتابة في الخانة B يلون التسلسل في الخانة A مع العلم يوجد في الخانة B معادلات ؟

جزاك الله خير