اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

إلغاء كل الكلمات الموجوده فى شيت ما عدا كلمه او كلمات محدده


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

السلام عليكم

عن طريق الفلتر

ظلل العمود المطلوب ثم من القائمة

Data

Filter

AutoFilter

سيظهر لك علي رأس العمود سهم مثلث إذا ضغطت عليه بالماوس سيكون لك خيارات إختر منها ماتريد حذفه ثم إحذفه

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

السلام عليكم

عن طريق الفلتر

ظلل العمود المطلوب ثم من القائمة

Data

Filter

AutoFilter

سيظهر لك علي رأس العمود سهم مثلث إذا ضغطت عليه بالماوس سيكون لك خيارات إختر منها ماتريد حذفه ثم إحذفه

اولا انا شاكر ليك ردك واهتمامك

بس مش ده اللى انا عاوزه انا عارف موضوع الفلتر ده

انا عاوز الغى فعلا كل الكلمات اللى موجود فى شيت معين وأبقى فقط كلمه او كلمات محدده

يارب نلاقى الحل عند أى حد

لك شكرى مره ثانيه

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

السلام عليكم

ياريت توضح

هل تقصد إلغاء الخلية بكاملها التي لا تساوي الكلمة المطلوبة

أم إلغاء محتويات الخلية فيما عدا الكلمة المطلوبة في حالة إحتوائها علي الكلمة

مثال خلية تحتوي علي "محمد شريف محمود"

والكلمة المطلوبة "محمد"

يكون الناتج إلغاء الخلية كلها لعدم تطابقها

أم إلغاء الباقي والإبقاء علي "محمد" فقط

أو الأفضل إرسل مثال

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

أخي العزيز

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

تحياتي

أبو عبدالله

______________________________.rar

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

لكن برده كتر الف خيرك شغل جميل جدا

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

السلام عليكم

تعديل بسيط على كود الاستاذ اكسلجى(و حشنا كثير)

ليكون اسرع

Sub delet_if_not_equal()
Dim D As Variant
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
D = InputBox("أدخل البيان الذي لا تريد إلغاؤه", "أدخال البيان المراد عدم إلغاؤه")
For i = 2 To Cells.Rows.Count
If Cells(i, 4) <> D Then Cells(i, 4) = ""
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

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

أخي العزيز / ابن سيناء

أخي الحبيب / عادل

أخي الحبيب / أبو أسامة

أخي الحبيب / أبو خالد

أشكركم جميعا وتقبلوا تحياتي وامتناني .

أبو عبدالله

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information