أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets

السلام عليكم ورحمة الله وبركاته أقدم لكم كود بسيط يعتمد على حلقة تكرارية حول أوراق العمل الموجودة بالمصنف ، ثم يقوم الك ..



13-12-2019 02:38 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 

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

أقدم لكم كود بسيط يعتمد على حلقة تكرارية حول أوراق العمل الموجودة بالمصنف ، ثم يقوم الكود بمسح محتويات كل ورقة ما عدا المعادلات أي يمسح كل البيانات ما عدا المعادلات

وإليكم الكود

Sub ClearContents_Exclude_Formulas_In_All_Worksheets()
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            With ws
                On Error Resume Next
                    .UsedRange.SpecialCells(2, 23).ClearContents
                On Error GoTo 0
            End With
        Next ws
    Application.ScreenUpdating = True
End Sub


أخوكم في الله / ياسر خليل أبو البراء

13-12-2019 07:10 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1772
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets
أحسنت استاذ ياسر كود ممتاز بارك الله فيك وزادك الله من فضله
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

13-12-2019 07:15 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets
جزاك الله خيراً أخي العزيز علي ومشكور على مرورك العطر

16-12-2019 09:24 صباحا
مشاهدة مشاركة منفردة [3]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets
جزاكم الله خيرا 
الرجاء توضيح معنى الارقام 
                    .UsedRange.SpecialCells(2, 23).ClearContents
 

16-12-2019 10:06 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets
وجزيت خيراً أخي العزيز أبا الحسن
الأرقام تعبر عن الثوابت xlCellTypeConstants حيث نريد مسح البيانات وليس المعادلات

17-12-2019 01:12 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets
بارك الله فيك أخي الكريم خالد
السطر يتعامل مع النطاق المستخدم في ورقة العمل ويتعامل مع الخلايا التي بها ثوابت فقط وليست الخلايا التي فيها معادلات.

26-05-2020 11:00 مساء
مشاهدة مشاركة منفردة [6]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets
الله يفتح عليك استاذنا ياسر والله حاجة جميلة جدا ولى سؤال
لو انا عايز الكود يمسح البيانات فى كل اوراق العمل ضمن نطاق محدد وليكن a5:j50000
واستثناء الورقة المسماه تقرير 
كيف يتم ذلك مع الشكر والتقدير




الكلمات الدلالية
أوراق ، البيانات ، العمل ، المعادلات ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:26 صباحا