كيفية تخطي الخلايا أو الأعمدة عند التنقل باستخدام زر التبويب في 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، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد