انتقل إلى المحتوى الرئيسي

كيفية تتبع السوابق أو المعالين لمجموعة من / عدة خلايا في إكسيل؟

في Excel ، يمكننا تتبع السوابق أو العناصر التابعة للخلايا باستخدام الميزة المضمنة في Excel عن طريق النقر فوق الخلايا واحدة تلو الأخرى. ولكن ، إذا كانت هناك مئات الخلايا التي تريد تتبع السوابق أو التابعين لها في نفس الوقت ، فكيف يمكنك التعامل مع هذه المهمة بسرعة وسهولة في Excel؟

تتبع السابقات لمجموعة من الخلايا باستخدام صيغة مساعدة

تتبع التابعين لنطاق من الخلايا برمز VBA

تتبع السوابق أو المعالين لمجموعة من الخلايا باستخدام Kutools for Excel


لتتبع السوابق لخلايا متعددة ، يمكن أن تساعدك الخطوات التالية:

1. أدخل علامة المساواة = في خلية فارغة ، ثم انقر فوق الزاوية اليسرى العليا من ورقة العمل لتحديد الورقة بأكملها ، انظر لقطة الشاشة:

تتبع وثيقة تعتمد 1

2. ثم اضغط أدخل مفتاح ، وستظهر رسالة تحذير ، انظر لقطة الشاشة:

تتبع وثيقة تعتمد 2

3. وانقر OK لإغلاقه ، ويتم عرض 0 في الخلية ، حدده ، ثم انقر فوق الصيغ ثم انقر تتبع السوابق مرتين ، تم تتبع جميع سوابق الخلايا المقابلة مرة واحدة ، انظر لقطة الشاشة:

تتبع وثيقة تعتمد 3

4. أخيرًا ، يمكنك حذف الصيغة المساعدة حسب حاجتك.


لتتبع المعالين لخلايا متعددة ، يمكن أن يساعدك رمز VBA التالي ، يرجى القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

رمز فبا: تتبع التابعين لنطاق من الخلايا:

Sub TraceDependents()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Union(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xCell.ShowDependents
    Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد النطاق الذي تريد استخدامه ، انظر لقطة الشاشة:

تتبع وثيقة تعتمد 4

4. ثم انقر فوق OK زر ، يتم تتبع جميع الخلايا التابعة مرة واحدة ، انظر الصورة:

تتبع وثيقة تعتمد 5


لكي أكون مؤلمًا بالطرق المذكورة أعلاه ، سأقدم هنا أداة يدوية-كوتولس ل إكسيل، بما لديها مراقبة سوابق النطاقات و مراقبة المعالين من النطاقات المرافق ، يمكنك حل هذه المهمة بسرعة وسهولة.

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تريد تتبع السوابق أو العناصر التابعة.

2. ثم اضغط كوتولس > المزيد > مراقبة سوابق النطاقات / مراقبة المعالين من النطاقات، انظر لقطة الشاشة:

3. تتبع الخلايا السابقة ، حدد مراقبة سوابق النطاقات للحصول على النتيجة التالية:

تتبع وثيقة تعتمد 7

تتبع الخلايا التابعة ، يرجى التحديد مراقبة المعالين من النطاقات للحصول على النتيجة التالية:

تتبع وثيقة تعتمد 8

الملاحظات:

1. هذه الميزة ديناميكية ، وسيتم تغييرها حسب اختيارك.

2. يمكنك أيضًا تطبيق هذه الميزة بالنقر فوق كوتولس بلس > تصميم ورقة العمل تحت تصميم ، انقر فوق مراقبة السوابق والمعالون.

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

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The reason that Excel hangs is due to the time. There is an error in the macro. It is showing application.union but what it should be doing is using application.intersect. The reason it's hanging is because it's working to trace dependents on the entire worksheet instead of the specified area.
This comment was minimized by the moderator on the site
Hi, jchumley,Yes, as you said, the code works for entire worksheet, if you need the code works for a selected range, please apply the below code:<div data-tag="code">Sub TraceDependents()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xCell.ShowDependents
Next
End SubPlease try, hope it can help you!
This comment was minimized by the moderator on the site
I've found this macro very useful, thank you. I do have one rather large issue - the macro will cause excel to stop responding and I have to close out and restart the program each time I run it. Any fixes/recommendations? Thank you!
This comment was minimized by the moderator on the site
When running the macro version, it causes excel to stop responding. I then have to restart excel. Has anyone else encountered this and have a fix? This is a very helpful macro, thank you. Hoping I can resolve this issue.
This comment was minimized by the moderator on the site
Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations