كيفية عرض اسم الجدول أو الجدول المحوري في خلية في إكسيل؟
تتحدث هذه المقالة عن عرض جدول محدد أو اسم جدول محوري في خلية في Excel.
عرض اسم الجدول أو الجدول المحوري في خلية برمز VBA
عرض اسم الجدول أو الجدول المحوري في خلية برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في عرض جدول محدد أو اسم جدول محوري في خلية. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز 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. اضغط على قديم + Q مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
4. حدد خلية فارغة ، أدخل الصيغة =getObjName(A2) في شريط الصيغة ثم اضغط على مفتاح Enter. انظر لقطة الشاشة:
ملاحظة:
مقالات ذات صلة:
- كيف تسرد جميع أسماء الجداول في إكسيل؟
- كيف تحافظ على الجدول قابل للتوسيع عن طريق إدراج صف الجدول في ورقة عمل محمية في إكسيل؟
- كيفية إعادة ترتيب موضع الأعمدة في الجدول في إكسيل؟
- كيفية إخفاء صفوف القيمة الصفرية في الجدول المحوري؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!