انتقل إلى المحتوى الرئيسي

كيفية مسح الورقة بأكملها أو النطاق المحدد في إكسيل؟

ستوضح لك هذه المقالة كيفية مسح المحتويات بسرعة مع أو بدون تنسيق الخلية للورقة بأكملها أو النطاق المحدد باستخدام كود VBA في Excel.

امسح الورقة بأكملها باستخدام كود VBA في Excel
امسح النطاق المحدد برمز VBA في Excel


امسح الورقة بأكملها باستخدام كود VBA في Excel

تساعدك رموز VBA أدناه على مسح الورقة بأكملها بتنسيق الخلية أو بدونه.

1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم قم بنسخ رمز VBA أدناه إلى الوحدة النمطية.

إذا كنت تريد فقط مسح محتوى الخلية مع الاحتفاظ بالتنسيق ، فيرجى تجربة هذا الرمز.

كود فبا: امسح الورقة بأكملها بدون تنسيق الخلية

Sub sbClearEntireSheetOnlyData()
Sheets("Sheet4").Cells.ClearContents
End Sub

إذا كنت تريد مسح كل من المحتويات وتنسيق الخلية ، فيمكن أن يساعدك هذا الرمز.

كود فبا: امسح الورقة بأكملها باستخدام تنسيق الخلية

Sub sbClearEntireSheet()
Sheets("Sheet4").Cells.Clear
End Sub

ملاحظات: في الكود ، يعتبر Sheet4 هو اسم ورقة العمل التي ستقوم بمسح المحتويات منها. من فضلك غيره كما تريد.

3. اضغط على F5 مفتاح أو انقر فوق الزر "تشغيل" لتشغيل التعليمات البرمجية.

ثم يتم مسح ورقة العمل المحددة بتنسيق الخلية أو بدونه على الفور.


امسح النطاق المحدد برمز VBA في Excel

لمسح النطاق المحدد فقط في ورقة العمل ، يمكنك تجربة التعليمات البرمجية لـ VBA التالية.

1. افتح ورقة العمل التي ستقوم بمسح النطاق المحدد منها ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم قم بنسخ رمز VBA أدناه إلى الوحدة النمطية.

امسح النطاق ولكن احتفظ بالتنسيق ، يرجى تجربة هذا الرمز.

كود فبا: امسح النطاق المحدد بدون تنسيق الخلية

Sub sbClearCellsOnlyData()
Range("A1:C10").ClearContents
End Sub

مسح النطاق باستخدام تنسيق الخلية ، الرجاء استخدام هذا الرمز:

كود فبا: امسح النطاق المحدد باستخدام تنسيق الخلية

Sub sbClearCells()
Range("A1:C10").Clear
End Sub

ملاحظات: A1: C10 هو النطاق الذي سيتم مسحه في ورقة العمل.

3. اضغط على F5 مفتاح أو انقر فوق يجري زر لمسح النطاق.


مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations