كيفية تخطي الخلايا أو الأعمدة عند التنقل باستخدام زر التبويب في Excel؟
افتراضيًا، عند الضغط على مفتاح Tab في Excel، سيتم الانتقال من خلية إلى الخلية التالية أفقيًا. بالنسبة لبعض مستخدمي Excel، يميلون إلى تخطي الخلايا عند التنقل باستخدام زر التبويب. على سبيل المثال، إذا كانت الخلية A1 محددة الآن، بعد الضغط على مفتاح Tab، ستنتقل مباشرة إلى الخلية C1 مع تخطي الخلية B1، والضغط مرة أخرى على مفتاح Tab سيتخطى الخلية D1 ويتحرك إلى الخلية E1 كما هو موضح في لقطة الشاشة أدناه. كيف يمكن تحقيق ذلك؟ الطريقة في هذه المقالة يمكن أن تساعدك.
تخطي الخلايا أو الأعمدة عند التنقل باستخدام كود VBA
تخطي الخلايا أو الأعمدة عند التنقل باستخدام كود VBA
يرجى اتباع الخطوات التالية لتخطي الخلايا أو الأعمدة عند التنقل باستخدام زر التبويب في Excel باستخدام كود VBA.
1. في ورقة العمل التي تحتاج فيها إلى تخطي الخلايا عند التنقل، يرجى النقر بزر الماوس الأيمن على تبويب الورقة، ثم النقر على عرض الكود من قائمة السياق.
2. في نافذة Microsoft Visual Basic for Applications التي ستفتح، يرجى نسخ ولصق كود VBA أدناه في نافذة الكود.
كود VBA: تخطي الخلايا أو الأعمدة عند التنقل باستخدام زر التبويب في Excel
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static sRg As Range
Dim ColumnOffset As Integer
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Union([B:B], [D:D], [F:F])) Is Nothing Then
With Target
Application.EnableEvents = False
If Not sRg Is Nothing Then
If sRg.Column < .Column Then
ColumnOffset = 1
ElseIf .Column <> 1 Then
ColumnOffset = -1
End If
Else
ColumnOffset = 1
End If
.Offset(, ColumnOffset).Select
Application.EnableEvents = True
End With
End If
Set sRg = ActiveCell
End Sub
ملاحظة: في الكود، [B:B]، [D:D]، [F:F] هي أعمدة سيتم تخطيها عند الضغط على مفتاح Tab. يمكنك تغييرها حسب الحاجة، ويمكنك إضافة أعمدة جديدة تحتاج إلى تخطيها إلى الكود.
3. اضغط على مفاتيح Alt + Q للخروج من نافذة Microsoft Visual Basic for Applications.
من الآن فصاعدًا، عند التنقل باستخدام زر التبويب في Excel، سيتم تخطي خلايا الأعمدة المحددة تلقائيًا. وفي الوقت نفسه، لن تتمكن إلا من النقر على هذه الأعمدة المحددة، ولن يتم تحديد الأعمدة المتخطاة أو تعديلها.
أفضل أدوات زيادة الإنتاجية لمجموعة Office
عزز مهاراتك في Excel مع Kutools لـ Excel، وتمتع بكفاءة غير مسبوقة. يقدم Kutools لـ Excel أكثر من300 ميزة متقدمة لتعزيز الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب تجربة التبويبات إلى Office، ويجعل عملك أسهل بكثير
- فعّل تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint
- افتح وأنشئ مستندات متعددة في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ جديدة.
- يمنحك زيادة إنتاجية تصل إلى50% ويوفر عليك مئات النقرات يومياً!