كيف تضغط على الحرف الأبجدي للذهاب إلى الخلية التي تبدأ بهذا الحرف في إكسيل؟
أثناء استخدام ورقة عمل Excel تحتوي على كمية كبيرة من البيانات ، هل تعرف كيفية التنقل أو العثور على خلايا معينة تحتوي على محتوى محدد بسرعة؟ باستخدام الطريقة الواردة في هذه المقالة ، يمكنك النقر فوق خلية بحرف أبجدي للانتقال إلى الخلية التي يبدأ المحتوى بها بالحرف الأبجدي تلقائيًا.
انقر فوق الحرف الأبجدي للانتقال إلى الخلية التي تبدأ بهذا الحرف برمز VBA
انقر فوق الحرف الأبجدي للانتقال إلى الخلية التي تبدأ بهذا الحرف برمز VBA
يرجى القيام بما يلي للانتقال إلى خلية بالنقر فوق خلية أبجدية في Excel.
1. في ورقة العمل ، تحتاج إلى الانتقال إلى خلية بالنقر فوق خلية أبجدية ، والنقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم النقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:
2. ثم أ ميكروسوفت فيسوال باسيك للتطبيقات نافذة منبثقة ، يرجى نسخ ولصق رمز فبا أدناه في نافذة الكود.
كود فبا: انقر على الحرف الأبجدي للذهاب إلى الخلية التي تبدأ بهذا الحرف
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCell As Range
Dim xRgRtn As Range
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("1:1")) Is Nothing Then
Set xRg = ActiveSheet.UsedRange
Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg
If Left(xCell.Value, 1) = Target.Value Then
If xRgRtn Is Nothing Then
Set xRgRtn = xCell
Else
Set xRgRtn = Application.Union(xRgRtn, xCell)
End If
End If
Next
If xRgRtn.Address = Target.Address Then
MsgBox "No matched cell found", , "KuTools For Excel"
Else
xRgRtn.Select
End If
End If
Application.EnableEvents = True
End Sub
ملاحظات: في الكود ، 1: 1 تعني أن الأحرف الأبجدية موجودة في الصف الأول من ورقة العمل.
3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند النقر فوق خلية أبجدية ، يتم تحديد جميع الخلايا التي تبدأ بهذا الحرف مرة واحدة في ورقة العمل تلقائيًا.
إذا لم تبدأ أي خلية بالحرف المحدد ، فستحصل على مربع حوار Kutools for Excel كما هو موضح أدناه.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!