اذهب الي المحتوي
أوفيسنا

بخصوص التصفية


الردود الموصى بها

الاخوه الكرام كل عام وانتم بخير

ارجو من الاخوة الكرام المساعدة حيث الملف المرفق الكود عبارة عن بمجرد وضع قيمة في الخلية B9 تظهر نتيجة الفرز في العمود B

المطلوب تعديل الكود بمجرد كتابة كلمة (جزء من قيمة الخلية) تظهر النتيجة التصفية في العمود B (تحتوي على الجزء المطلوب) وليس كتابة القيمة بالكامل

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

Adel.rar

Adel.rar

تم تعديل بواسطه adsabbah
رابط هذا التعليق
شارك

الاخوه الكرام كل عام وانتم بخير

ارجو من الاخوة الكرام المساعدة حيث الملف المرفق الكود عبارة عن بمجرد وضع قيمة في الخلية B9 تظهر نتيجة الفرز في العمود B

المطلوب تعديل الكود بمجرد كتابة كلمة (جزء من قيمة الخلية) تظهر النتيجة التصفية في العمود B (تحتوي على الجزء المطلوب) وليس كتابة القيمة بالكامل

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

Adel.rar

تم تعديل بواسطه adsabbah
رابط هذا التعليق
شارك

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

تم تعديل بواسطه adsabbah
رابط هذا التعليق
شارك

جزاكم الله خيرا هذا هو المطلوب وكل عام وانتم بخير هل يمكن اضيف طلب وهو جعل خلفية الخلية التي اسجل فيها المطلوب بلون مميز وليكن بلون اصفر وبخط احمر غامقواسف اذا كلفت عليكم

تم تعديل بواسطه adsabbah
رابط هذا التعليق
شارك

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

ولكن انا اقصد كما بالملف المرفق اجعل لون خلفية الخلية أصفر بدل الاحمر (لا اعرف رقم اللون الاصفر) وجعل لون خط الكتابة باللون الاحمر غامق وبخط كبير 16 مثلا وجزاكم الله خيرا

1Adel.rar

رابط هذا التعليق
شارك

السلام عليكم


Sub adel3()

Range("A9:g9").AutoFilter

Range("NN").AutoFilter , field:=2, Criteria1:="*" & Left(Range("B9"), Len(Range("B9"))) & "*"

Range("b9").Clear

With Range("b9")

.Font.Name = Andalus

  .Font.Size = 16

  .Font.Bold = True

   .Font.Color = 255

   .Interior.Color = 65535

  .HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

End Sub

تم تعديل بواسطه عباد
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information