كيفية تحويل جميع الجداول إلى نطاقات في ورقة العمل النشطة؟

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

تحويل جميع الجداول إلى نطاقات في ورقة العمل النشطة باستخدام VBA

تحويل جميع الجداول إلى نطاقات في ورقة العمل النشطة باستخدام VBA

1. قم بتفعيل الورقة التي تحتوي على الجداول التي تريد تحويلها، ثم اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة لإنشاء سكريبت وحدة جديد، ثم انسخ والصق الكود أدناه في الوحدة الفارغة.

VBA: تحويل جميع الجداول في الورقة النشطة إلى نطاقات

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 لتشغيل الكود. الآن تم تحويل جميع الجداول في الورقة الحالية بنجاح إلى نطاقات.