وليد المصرى 1 قام بنشر يونيو 16, 2014 مشاركة قام بنشر يونيو 16, 2014 السلام عليكم جميعا وكل عام وانتم بخير بمناسبة قرب شهر رمضان اريد تلوين رقم تسلسل موجود في نص معين مثال ALO/DOM/0001/JAN/2014 ALO/DOM/0002/JAN/2014 ALO/DOM/0003/JAN/2014 اريد تلوين التسلسل فقط اذا امكن هل يوجد تنسيق شرطي رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر يونيو 16, 2014 مشاركة قام بنشر يونيو 16, 2014 أخى الحبيب ( GOODLIFE ) لايمكن عمل ذلك أحى عن طريق المعادلات ، ولابد من عمل ذلك عن طريق الكود وطبعا أعنى بذلك إستحالة عمله عن طريق التنسيق الشرطى والله أعلى وأعلم تقبل تحياتى رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يونيو 16, 2014 الكاتب مشاركة قام بنشر يونيو 16, 2014 أستاذ جمال اشكرك على ردك واهتمامك . ملحوظة التسلسل هي معادلة لو امكن كود يفى بالغرض ماشى الحال رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 16, 2014 مشاركة قام بنشر يونيو 16, 2014 السلام عليكم أخي العزيز ضع هذا الكود Sub Macro1() For Each ce In Selection ce.Characters(Start:=9, Length:=4).Font.ColorIndex = 3 Next End Sub ثم إختر المجال الذي به رقم تسلسل وشغل الكود رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 16, 2014 مشاركة قام بنشر يونيو 16, 2014 تفضل المرفق به الكود رقم تسلسل.rar رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يونيو 16, 2014 الكاتب مشاركة قام بنشر يونيو 16, 2014 أستاذ طارق كيف حالك يارب تكون بخير مرفق ملف لان بصراحة مش عارف حضرتك اعمل الكود 111.rar رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يونيو 16, 2014 الكاتب مشاركة قام بنشر يونيو 16, 2014 انا لم أراي ملف حضرتك الا الان أستاذ طارق رقم التسلسل يظهر تلقائى بمعادلة كما وارد في الملف المرفق يعنى اريد عند ظهورة يتلون وليس زر لتلوينة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 16, 2014 مشاركة قام بنشر يونيو 16, 2014 السلام عليكم الكود لايعمل علي المعادلات يعمل علي الخلايا التي ليس بها معادلات فقط تيكست Text لو نقلت هذه الأرقام المتسلسلة لورقة أخري كتيكست (قيم فقط) paste Value ستجد الكود يعمل عليها حللت لك حلا آخر بلا أكواد - قسمت الأرقام المتسلسلة علي ثلاث أعمدة تفضل المرفق 111_2.rar رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يونيو 16, 2014 الكاتب مشاركة قام بنشر يونيو 16, 2014 اشكرك يا أستاذ طارق على مجهودك العظيم الف شكر يا اخى هذا يفى بالغرض جزاك الله الف خير رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 16, 2014 مشاركة قام بنشر يونيو 16, 2014 اكتب هذا الكود لعله المطلوب افتراضاَ ان التسلسل في اعامود أ يمكنك التغيير 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 16, 2014 مشاركة قام بنشر يونيو 16, 2014 السلام عليكم عسى ان اكون قد وفّقت في ايجاد الحل بواسطة الكود /على افتراض الن النص في العامو د A تلوين قسم من النص.rar رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يونيو 17, 2014 الكاتب مشاركة قام بنشر يونيو 17, 2014 اشكرك أستاذ سليم لكن هل يوجد التلوين تلقائى بمجرد الكتابة في الخانة B يلون التسلسل في الخانة A مع العلم يوجد في الخانة B معادلات ؟ جزاك الله خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان