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