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

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

قام بنشر

السلام عليكم

كيف يمكننى جعل برنامج الإكسل يقوم بالغاء كل الكلمات الموجوده فى عمود محدد ما عدا كلمه واحده او عدة كلمات محدده ؟

وشكرا لكم

قام بنشر

السلام عليكم

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

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

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