كيفية تحويل جميع الجداول إلى نطاقات في ورقة العمل النشطة؟
في Excel ، يمكنك استخدام بعض الجداول لتسجيل البيانات ، ولكن في بعض الأحيان ، تريد تحويل الجدول إلى نطاق للقيام ببعض الإصدارات. بشكل عام ، يمكنك فقط تحويل جدول واحد إلى نطاق مرة واحدة ، وسيكون الأمر مزعجًا إذا كان هناك عشرات الجداول في الورقة التي يلزم تحويلها إلى نطاقات. هنا لدي رمز VBA يمكنه تحويل جداول الورقة النشطة إلى نطاق في وقت واحد.
قم بتحويل كل الجداول إلى نطاقات من الورقة النشطة باستخدام VBA
قم بتحويل كل الجداول إلى نطاقات من الورقة النشطة باستخدام VBA
1. قم بتنشيط الورقة التي تريد تحويل جداولها ، ثم اضغط ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة لإنشاء برنامج نصي جديد للوحدة النمطية ، انسخ الكود أدناه والصقه في الوحدة النمطية الفارغة.
فبا: تحويل كافة جداول الورقة النشطة إلى نطاقات
Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next
End Sub
3. صحافة F5 مفتاح لتشغيل الكود ، تم الآن تحويل جميع جداول الورقة الحالية إلى نطاقات.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!