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

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

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




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





اريد كود تفريغ الشيت كنترول

اريد كود لمسح البيانات من جميع الاوراق بملفف اكسل



09-01-2019 08:27 مساء
زايد رمزى
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-11-2018
رقم العضوية : 8749
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 13-3-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 9
 offline 

اريد كود لمسح البيانات من جميع الاوراق بملفف اكسل






09-01-2019 09:46 مساء
مشاهدة مشاركة منفردة [1]
manola_mr
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 82
الجنس : أنثى
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 78
الاعجاب : 34
 offline 
look/images/icons/i1.gif اريد كود تفريغ الشيت كنترول
برجاء ارفاق الملف المراد العمل عليه
لان كل ملف عمل يتم العمل عليه حسب طبيعته





09-01-2019 11:01 مساء
مشاهدة مشاركة منفردة [2]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 483
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 54
يتابعهم : 9
يتابعونه : 423
قوة السمعة : 5946
الاعجاب : 1214
 offline 
look/images/icons/i1.gif اريد كود تفريغ الشيت كنترول
الأستاذ / زايد رمزى
اتفضل الكود التالى ولكن قبل الاستخدام
تنويه هام
 سيتم مسح محتويات بيانات كل أوراق العمل ولا يمكن استرجاعها  
Sub test()
Dim sh As Worksheet
On Error Resume Next
'-----------------------------------
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    For Each sh In ThisWorkbook.Sheets
       sh.UsedRange.Clear
    Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
'-----------------------------------
End Sub

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

قبل 
Next
بالكود الأول


تم تحرير المشاركة بواسطة :محمد الدسوقى
بتاريخ:09-01-2019 11:13 مساء


أثارت هذه المشاركة إعجاب: محمد النيل،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تفريغ خلايا معينه كريم نظيم
5 59 ahmedeita
كود خفيف لتفريغ كل عناصر الفورم بضغطة زر واحده طلعت محمد حسن
11 610 عبدالله الصاري

الكلمات الدلالية
اريد ، تفريغ ، الشيت ، كنترول ،


 







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



الساعة الآن 04:03 مساء

أعلن هنا
أعلن هنا
أعلن هنا