كيف يمكن التعديل على هذا الكود

[۩◊۩ أبو حنين ۩◊۩]

هلى يمكن التعديل على كود مسح الخليا فى النطاق الموضح بالكود ...... بحيث يمسح محتوى الخلايا فقط دون المعادلات

 

Sub delete_1()

  Application.ScreenUpdating = False

prompt = "هل حقا تريد مسح البيانات ؟؟ أنتبة .. لا يةجد ترجع عن المسح!!"

Command_buttons = vbYesNo + VbMsgBoxRt1Reading

Title = "انتبه... تحذير هام "

    Range("B5:B100" & ",F5:F100" ).ClearContents

  Application.ScreenUpdating = True

End Sub

 

وكذلك الكود

()Sub delete_2

Application.ScreenUpdating = False

prompt = "هل حقا تريد مسح البيانات ؟؟ أنتبة .. لا يةجد ترجع عن المسح!!"

Command_buttons = vbYesNo + VbMsgBoxRt1Reading

Title = "انتبه... تحذير هام "

For Each sh In Worksheets

  If sh.Name Like "A" Or sh.Name Like "B" _

    Or sh.Name Like "C" Or sh.Name Like "D" _

    Then sh.Select: Range("B5:B100" & ",F5:F100" ).ClearContents

Next

Application.ScreenUpdating = True

Sheets("Z").Select

End Sub

 

[أبو حنــــين]

السلام عليكم

Range("B5:B100" & ",F5:F100" ).ClearContents

اذا كانت الخلايا التي تحتوي على معادلات ضمن هذا النطاق فما عليك الا اخراجها منه بمعنى لو ان الخلايا في العمود F مثلا هي التي تحتوي على معادلات يصبح السطر السابق كما يلي :

Range("B5:B100" & ",E5:E100" ).ClearContents

[۩◊۩ أبو حنين ۩◊۩]

مثال على ما اريده اخى العزيز

اصل الملف يتعزر على ارساله

كل ما اريده محو البيانات دون المعادلات في نفس النطاق لعدد 22 شيت

يوجد معادلات في شيتات ولا يوجد في اخرى في نفس النطاق المراد محوه

جزاك الله خير

 

 

Book1.rar

[بن علية حاجي]

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

 

أخي الكريم حمادة، جرب الجزء التالي في الكود :

  Range("B5:F100").SpecialCells(xlCellTypeConstants, 23).ClearContents

فهذا الجزء يحذف فقط القيم الثابتة (نصوص، قيم، قيم منطقية، أخطاء) دون المعادلات في النطاق B5:F100 ....

 

أرجو أن يفيدك هذا التعديل....

 

أخوك بن علية

[۩◊۩ أبو حنين ۩◊۩]

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

 

أخي الكريم بن علية حاجى

ما فهمته ان اضع هذا السطر مكان range

سؤال ماذا يعنى SpecialCells(xlCellTypeConstants, 23

وما قيمة الرقم 23

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

[بن علية حاجي]

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

 

أخي الكريم حمادة، بالنسبة لسطر الكود يوضع بدل سطر "المسح" يجب فقط مراعاة النطاق المعني بالكود... بالنسبة للرقم 23 في الدالة هذا الرقم يدل على أن كل الاختيارات الأربعة التي ذكرتها سابقا معنية بالمسح (والرقم يتغير حسب ما تريد مسحه إلى الأعداد 1 ، 2 ، 3 ، 4 ، 5 ، 6 ، 7 ، ... ولا أعرف الباقي وهي تتعلق بالاختيارات المعينة)... والله أعلم

 

أخوك بن علية

[۩◊۩ أبو حنين ۩◊۩]

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

 

أخي الكريم بن علية حاجى

 

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