كيفية التحقق من وجود ارتباط تشعبي في ورقة عمل في Excel؟
للتحقق من وجود ارتباط تشعبي في التحديد ، يمكنك تجربة التعليمات البرمجية لـ VBA التالية.
تحقق مما إذا كان الارتباط التشعبي موجودًا في تحديد برمز VBA
تحقق مما إذا كان الارتباط التشعبي موجودًا في تحديد برمز VBA
يمكنك التحقق مما إذا كان الارتباط التشعبي موجودًا في تحديد أو ورقة عمل برمز VBA التالي.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا التالي في نافذة التعليمات البرمجية.
فبا: تحقق من وجود ارتباط تشعبي في التحديد
Sub HyperlinkCells()
Dim xAdd As String
Dim xTxt As String
Dim xCell As Range
Dim xRg As Range
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.AddressLocal
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Hyperlinks.Count > 0 Then xAdd = xAdd & xCell.AddressLocal & ", "
Next
If xAdd <> "" Then
MsgBox "Hyperlink existing in the following cells: " & vbCrLf & vbCrLf & Left(xAdd, Len(xAdd) - 1), vbInformation, "Kutools for Excel"
End If
End Sub
3. صحافة F5 مفتاح لتشغيل الكود. ثم ستحصل على ملف كوتولس ل إكسيل في مربع الحوار ، يرجى تحديد النطاق الذي تريد معرفة ما إذا كان الارتباط التشعبي موجودًا ، وانقر فوق OK .
ثم ينبثق مربع حوار لإظهار الخلايا التي تحتوي على ارتباطات تشعبية في النطاق المحدد.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!