كيفية عرض اسم الجدول أو الجدول المحوري في خلية في Excel؟

يشرح هذا المقال كيفية عرض اسم جدول أو جدول محوري محدد في خلية في Excel.

عرض اسم الجدول أو الجدول المحوري في خلية باستخدام كود VBA

عرض اسم الجدول أو الجدول المحوري في خلية باستخدام كود VBA

يمكن أن يساعدك الكود التالي من VBA في عرض اسم جدول أو جدول محوري محدد في خلية. الرجاء اتباع الخطوات التالية.

1. اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. بعد ذلك، قم بنسخ كود VBA أدناه إلى نافذة الوحدة.

كود VBA: عرض اسم الجدول أو الجدول المحوري في خلية

Function getObjName(rng As Range) As String
'Updated by Extendoffice 20180420
    Dim xTable As ListObject
    Dim xPivotTable As PivotTable
    Dim xTableName As String
    Dim xPtName As String
    On Error Resume Next
    xTableName = ""
    xPtName = ""
    Set xTable = rng.Cells(1).ListObject
    xTableName = "Table[" & xTable.Name & "]"
    If xTable Is Nothing Then
        Set xPivotTable = rng.Cells(1).PivotTable
        xPtName = "Pivot [" & xPivotTable.Name & "]"
    End If
    getObjName = xTableName & xPtName
End Function

3. اضغط على مفاتيح Alt + Q للخروج من نافذة Microsoft Visual Basic for Applications.

4. حدد خلية فارغة، وأدخل الصيغة =getObjName(A2) في شريط الصيغة ثم اضغط على مفتاح Enter. انظر لقطة الشاشة:

ملاحظات:

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

• كيفية سرد جميع أسماء الجداول في Excel؟
• كيفية الحفاظ على توسيع الجدول عن طريق إدراج صف في ورقة عمل محمية في Excel؟
• كيفية إعادة ترتيب مواقع الأعمدة في الجدول في Excel؟
• كيفية إخفاء صفوف القيم الصفرية في الجدول المحوري؟