كيفية تخطي الخلايا أو الأعمدة عند التنقل باستخدام زر التبويب في 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، سيتم تخطي خلايا الأعمدة المحددة تلقائيًا. وفي الوقت نفسه، لن تتمكن إلا من النقر على هذه الأعمدة المحددة، ولن يتم تحديد الأعمدة المتخطاة أو تعديلها.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!