كيف يمكن حساب عدد الخلايا التي تحتوي على روابط تشعبية في Excel؟
هل سبق أن حاولتَ حساب عدد الخلايا التي تحتوي على روابط تشعبية ضمن نطاق معيّن في Excel؟ يقدم لك هذا البرنامج التعليمي طريقةً خطوة بخطوة لتوضيح كيفية تنفيذ ذلك بسهولة.
حساب عدد الخلايا التي تحتوي على روابط تشعبية باستخدام كود VBA
حساب عدد الخلايا التي تحتوي على روابط تشعبية باستخدام كود VBA
يمكنك استخدام كود VBA التالي لحساب عدد الخلايا التي تحتوي على روابط تشعبية ضمن نطاق معيّن. يُرجى اتباع الخطوات التالية:
1. اضغط مفتاحَي «Alt» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».
تلميح: يمكنك أيضًا فتح هذه النافذة بالنقر على «Developer» > «Visual Basic».
2. في نافذة «Visual Basic»، انقر على «Insert» > «Module»، ثم الصق كود VBA التالي في نافذة الوحدة.
كود VBA: حساب عدد الخلايا التي تحتوي على روابط تشعبية في نطاق معيّن
Sub StatisticsHypRange()
'Updated by Extendoffice 20220815
Dim xSRg As Range
Dim xURg As Range
Dim xRg As Range
Dim xHRg As Range
Dim xHypCount As Long
On Error Resume Next
Set xSRg = Application.InputBox("Select the range of cells from which you want to count hyperlinks", "Kutools for Excel", "", Type:=8)
If xSRg Is Nothing Then Exit Sub
Set Where = Range("A1", Range("A" & Rows.Count).End(xlUp))
Set xURg = Application.Intersect(xSRg.Worksheet.UsedRange, xSRg)
xHypCount = 0
For Each xRg In xURg
If xRg.Hyperlinks.Count > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
Else
If InStr(LCase(xRg.Formula), LCase("HYPERLINK")) > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
End If
End If
Next
MsgBox "Find " & xHypCount & " hyperlink cells"
xHRg.Select
End Sub3. اضغط مفتاح "F5" لتشغيل الكود. في مربع الحوار المنبثق «Kutools لـ Excel»، حدد النطاق الذي تريد حساب عدد خلايا الروابط التشعبية فيه، ثم انقر «موافق». راجع لقطة الشاشة:
4. بعد ذلك، يظهر مربع حوار يُبلغك بعدد الخلايا في نطاق التحديد التي تحتوي على روابط تشعبية. انقر «موافق» لإغلاق مربع الحوار.
بعد ذلك، يتم تحديد جميع الخلايا التي تحتوي على روابط تشعبية دفعة واحدة.
ملاحظة: يمكن لكود VBA أعلاه حساب الأنواع التالية من الروابط التشعبية:
=HYPERLINK(link_location,[friendly_name])أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل