كيف تجد جميع النصوص المسطرة في نطاق أو ورقة عمل كاملة في إكسيل؟
لنفترض أن لديك نطاقًا من البيانات في ورقة عمل ، وأن بعض البيانات مسطرة ، والآن تريد معرفة هذه البيانات بتسطير ، كيف يمكنك العثور عليها بسرعة؟ أقدم هنا بعض الحيل لتكتشف بسرعة النصوص المسطرة في نطاق أو ورقة عمل كاملة في Excel.
ابحث عن جميع النصوص التي تحتها خط في ورقة عمل باستخدام VBA
ابحث عن جميع النصوص التي تحتها خط في نطاق أو ورقة عمل باستخدام Kutools for Excel 
ابحث عن جميع النصوص التي تحتها خط في ورقة عمل باستخدام VBA
في Excel ، لا يمكنك استخدام وظيفة Go To Special لمعرفة النصوص التي تحتها خط ، لذلك أقدم رمز VBA لمساعدتك في العثور على جميع النصوص التي تحتها خط في ورقة العمل.
1. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة، وانقر فوق إدراج > وحدة.
2. في ظهرت وحدة نافذة ، الصق أدناه رمز فبا.
فبا: ابحث عن كل النص الذي تحته خط في ورقة العمل.
Sub SearchForUnderline()
'Updateby20150910
Dim Rg As Range, Rg1 As Range
Dim I As Long
Dim xAddress As String, xAddress1 As String, xAddress2 As String
Dim Result As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
If Rg Is Nothing Then Exit Sub
Set Rg = Rg.SpecialCells(xlCellTypeConstants)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
If xAddress1 = "" Then
xAddress1 = Rg1.Address
Else
xAddress1 = xAddress1 & ", " & Rg1.Address
End If
Exit For
End If
Next
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
If xAddress2 = "" Then
xAddress2 = Rg1.Address
Else
xAddress2 = xAddress2 & ", " & Rg1.Address
End If
Exit For
End If
Next
Next
If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
If Result <> "" Then MsgBox Result
End Sub3. انقر يجري زر أو اضغط F5 مفتاح. وينبثق مربع حوار لتحديد نطاق للعثور على النصوص التي تحتها خط.
4. انقر OK، ثم سيظهر مربع حوار لإخبارك بالخلايا المكونة من نصوص فردية تحتها خط وأيها نصوص مزدوجة التسطير.
إذا كنت ترغب فقط في معرفة نوع واحد من النصوص المسطرة في نطاق معين ، فلا يمكن أن يساعدك رمز VBA هذا ، ولكن يمكنك استخدام الأداة المفيدة أدناه لحل هذه المهمة في هذه الحالة.
ابحث عن جميع النصوص التي تحتها خط في نطاق أو ورقة عمل باستخدام Kutools for Excel
إذا كان لديك Kutools for Excel مثبتة ، يمكنك تطبيق حدد الخلايا ذات التنسيق أداة لمعرفة النصوص التي تحتها خط بسرعة في مجموعة من ورقة العمل بأكملها.
| Kutools for Excel, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel، يرجى القيام بما يلي:
1. حدد خلية فارغة ، ثم اكتب بيانات فيها ، على سبيل المثال ، A1 ، وانقر الصفحة الرئيسية > أكد، وحدد نوع التسطير الذي تريده. انظر لقطة الشاشة:
2. ثم حدد النطاق الذي تريده لمعرفة النصوص المحددة التي تحتها خط ، وانقر كوتولس > أختار > حدد الخلايا ذات التنسيق. انظر لقطة الشاشة:
3. وفي حدد الخلايا ذات التنسيق الحوار، انقر فوق اختر تنسيق من الخلية لتحديد الخلية التي تقوم بتنسيقها مع تسطير في الخطوة 1. انظر لقطة الشاشة:
4. انقر OK، وفي حدد الخلايا ذات التنسيق الحوار ، تحقق أكد فقط. انظر لقطة الشاشة:
5. انقر Ok، ثم يظهر مربع حوار لتذكيرك بعدد النصوص المسطرة المحددة ، انقر فوق نعم لإغلاقه.
الآن تم تحديد جميع النصوص التي تحتها خط.
نصيحة:
1. إذا كنت ترغب في معرفة جميع النصوص التي تحتها خط في ورقة العمل بأكملها ، فانقر فوق الزاوية اليسرى من ورقة العمل لتحديد ورقة العمل بأكملها ، ثم قم بتطبيق حدد الخلايا ذات التنسيق خدمة.
2. التحقق من تجاهل الخلايا الفارغة in حدد الخلايا ذات التنسيق الحوار ، سيتجاهل الخلايا الفارغة على الرغم من تنسيق الخلايا الفارغة بتسطير.
أفضل أدوات إنتاجية المكتب
ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
