كيفية حذف الخلايا التى تحتوى على كلمات أو قيم معينة من ورقة العمل

[modibebo]

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

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

ولكم جزيل الشكر لمساعدتى

[الـعيدروس]

السلام عليكم

هذا كود مسح بيانات في مدى معين

او من خليه كذا الى كذا

تفضل

Sub delt()

Range("a1:z200").ClearContents

End Sub

محدد المسح من خليه a1 الى z20

فما عليك الا تعدل على الخلايا المراد حذفها

[modibebo]

أخى الفاضل

أولاً:- أنا متشكر جداً على إهتمامك وردك على طلبى بهذه السرعة

مكنتش متوقع يجيلى رد بالسرعة دى متشكر ليك جداً

ثانياً:- أنا طلبى كان حذف محتويات الخلايا فى وجود شرط معين وهذا الشرط إذا كانت الخلايا فى ورقة العمل أو فى المجال المحدد تحتوى على كلمات معينة أو قيم معينة يقوم بحذف هذه الخلايا التى تحتوى على هذه الكلمات أو القيم وليس حذف كل الخلايا فى ورقة العمل أو المجال المحدد

وأشكرك كثيراً أخى الفاضل على مساعدتك لى

[طارق محمود]

السلام عليكم

بعد إذن اخي العيدروس

أخي مدي

تفضل المرفق

إن شاء الله به ماتطلب

وهذا هو الكود

Sub deletX()


Dim x As String, y As Long

d = WorksheetFunction.Find("a", "Tarek")

x = InputBox("What is the word you want to delete Cells contain it?")

If x <> "" Then GoTo 10


y = InputBox("What is the Value you want to delete Cells contain it?")


For Each ce In Range("A1", Cells.SpecialCells(xlLastCell))

	If ce.Value = y Then ce.ClearContents

Next ce

Exit Sub


10

For Each ce In Range("A1", Cells.SpecialCells(xlLastCell))

On Error Resume Next

If Len(ce) < Len(x) Then GoTo 20

aa = WorksheetFunction.Find(x, ce)

If aa > 0 Then ce.ClearContents

20

aa = 0

Next ce


End Sub  

Delete_Fixed_Cells.rar

[طارق محمود]

من المهم معرفة ان الكود حساس لحالة الأحرف

مثلا لديك بالملف السابق خليتين بهما كلمة Bad

فلو كتبت مثلا bad أو BAD فلن يحذف شيئا

بالنسبة لقيمة الخلايا

أيضا لابد أن يكون الرقم بالضبط

فإذا كان الرقم بالخلية ناتج عن عملية معينة مثلا 9.01

وأنت إخترت إلغاء قيمة 9

فلن يلغيه

وهكذا

[احمد فضيله]

السلام عليكم ورحمة الله و بركاته

الاخ الحبيب المهندس / طارق

بسم الله ما شاء الله .. مبدع كالعادة

بارك الله فيك و جزاك كل خير على هذا العمل الرائع

وفقك الله دائماً لمساعدة المسلمين

و السلام عليكم ورحمة الله و بركاته

[احمد فضيله]

السلام عليكم ورحمة الله و بركاته

بعد اذن الاخ الحبيب جداً المهندس / طارق

الاخ الاستاذ / modibebo

عندي حل و لكن طبعاً أقل مما قام به الاخ الحبيب العبقري المهندس / طارق

هذا الحل غير حساس لحالة الأحرف حيث سيقوم بمسح الكلمات سواء Capital او Small

و بالنسبة للارقام فاذا قمت بكتابة 9 و الرقم بالخليه 9.04 فسوف يقوم بمسح رقم 9 و ترك 0.04 في الخلية

و الله الموفق والمستعان

و السلام عليكم ورحمة الله و بركاته

حذف.rar

تم تعديل يونيو 23, 2011 بواسطه HaNcOcK

[الـعيدروس]

ماشاء الله تبارك الله

ابداع استاذ طارق

والاستاذ هانكوك

موفقين انشاء الله

[احمد فضيله]

ماشاء الله تبارك الله

ابداع استاذ طارق

والاستاذ هانكوك

موفقين انشاء الله

السلام عليكم ورحمة الله و بركاته

الاخ الاستاذ / أبو نصار

بارك الله فيك و جزاك كل خير على مرورك الكريم و دعائك و كلماتك الطيبة

و الله الموفق والمستعان

و السلام عليكم ورحمة الله و بركاته

[modibebo]

إخوانى الأفاضل أعتذر عن عدم الرد فى اليومين السابقين ولكن هذا كان بسبب عطل فى النت لدى

أريد أن اعبر عن إمتنانى الشديد لكم جميعاً فأجمل شئ وجدته بهذا المنتدى أن جميع الأعضاء لايترددون ولايبخلون بتقديم المساعده والعون

إخوانى الأفاضل

الأستاذ العيدروس

الأستاذ طارق

الأستاذ هانكوك

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

شكراً لكم جميعاً

[احمد فضيله]

إخوانى الأفاضل أعتذر عن عدم الرد فى اليومين السابقين ولكن هذا كان بسبب عطل فى النت لدى

أريد أن اعبر عن إمتنانى الشديد لكم جميعاً فأجمل شئ وجدته بهذا المنتدى أن جميع الأعضاء لايترددون ولايبخلون بتقديم المساعده والعون

إخوانى الأفاضل

الأستاذ العيدروس

الأستاذ طارق

الأستاذ هانكوك

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

شكراً لكم جميعاً

السلام عليكم ورحمة الله و بركاته

الاخ الفاضل / modibebo

عفواً يا أخي

{إِنَّمَا الْمُؤْمِنُونَ إِخْوَةٌ فَأَصْلِحُوا بَيْنَ أَخَوَيْكُمْ وَاتَّقُوا اللَّهَ لَعَلَّكُمْ تُرْحَمُونَ }الحجرات10

و لأي طلب أو تعديل أو استفسار أستطيع القيام به سأكون معك و لن أتأخر إن شاء الله ما دمت أستطيع

و أنا متأكد أن كل أعضاء المنتدي لن يتأخروا عنك أو عن أي عضو يطلب المساعدة

و الله الموفق والمستعان

و السلام عليكم ورحمة الله و بركاته