كيفية استخراج مرجع الخلية من الصيغ في Excel؟
لنفترض أن لديك بعض الصيغ الطويلة ، والآن ، تريد استخراج جميع مراجع الخلايا من الصيغ كما هو موضح في لقطة الشاشة التالية. كيف يمكنك استخراج مراجع الخلايا من الصيغ بأسرع ما يمكن؟
استخرج مراجع الخلايا من الصيغ باستخدام الوظيفة المعرفة من قبل المستخدم
استخرج مراجع الخلايا من الصيغ باستخدام الوظيفة المعرفة من قبل المستخدم
لاستخراج مراجع الخلايا من الصيغ ، قد يكون رمز VBA أدناه مفيدًا لك. الرجاء القيام بما يلي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
رمز فبا: استخراج مراجع الخلايا من الصيغ:
Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
Dim xRetList As Object
Dim xRegEx As Object
Dim I As Long
Dim xRet As String
Application.Volatile
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
.Global = True
.MultiLine = True
.IgnoreCase = False
End With
Set xRetList = xRegEx.Execute(Rg.Formula)
If xRetList.Count > 0 Then
For I = 0 To xRetList.Count - 1
xRet = xRet & xRetList.Item(I) & ", "
Next
ExtractCellRefs = Left(xRet, Len(xRet) - 2)
Else
ExtractCellRefs = "No Matches"
End If
End Function
3. بعد لصق الرمز ، احفظ الرمز وارجع إلى ورقة العمل ، وأدخل هذه الصيغة: = extractcellrefs (G2) (G2 هي الخلية التي تحتوي على الصيغة التي تريد استخراج مراجع الخلية فيها) في خلية حيث تريد الحصول على النتيجة ، ثم اضغط أدخل مفتاح ، تم استخراج جميع مراجع الخلايا من الصيغة ، انظر الصورة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!