كيفية إخفاء أو إظهار صفوف أو أعمدة محددة عند النقر المزدوج على خلية في Excel؟

عادةً، يمكن إخفاء الصفوف والأعمدة أو عرضها عن طريق النقر بزر الماوس الأيمن واختيار خيار الإخفاء أو الإظهار من قائمة السياق. في هذه المقالة، سنتحدث عن إخفاء أو عرض صفوف أو أعمدة محددة بسرعة عن طريق النقر المزدوج على خلية في Excel.

إخفاء أو إظهار صفوف أو أعمدة محددة عند النقر المزدوج على خلية باستخدام كود VBA

إخفاء أو إظهار صفوف أو أعمدة محددة عند النقر المزدوج على خلية باستخدام كود VBA

يمكن أن تساعدك الأكواد البرمجية التالية VBA في إخفاء أو إظهار صفوف أو أعمدة محددة بسرعة في ورقة العمل عن طريق النقر المزدوج على خلية معينة. يرجى القيام بما يلي.

1. افتح ورقة العمل التي تريد إخفاء الصفوف أو الأعمدة داخلها. انقر بزر الماوس الأيمن على تبويب الورقة ثم انقر على عرض الكود من قائمة السياق.

2. في نافذة Microsoft Visual Basic for Applications المفتوحة، يرجى نسخ أحد أكواد VBA التالية التي تحتاجها إلى نافذة الكود.

VBA: إخفاء/إظهار صفوف محددة بالنقر المزدوج على الخلايا في ورقة العمل:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

VBA: إخفاء/إظهار أعمدة محددة بالنقر المزدوج على الخلايا في ورقة العمل:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

ملاحظة: في الكود، A1:A4، 10:13 و D:E تشير إلى أنه عند النقر المزدوج على أي خلية ضمن النطاق A1:A4، سيتم إخفاء الصف 10:13 أو العمود D:E تلقائيًا.

3. اضغط على مفاتيح Alt + F11 لإغلاق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا، عند النقر المزدوج على أي خلية ضمن النطاق A1:A4، سيتم إخفاء الصف 10:13 أو العمود D:E تلقائيًا. والنقر المزدوج على الخلية مرة أخرى لعرض جميع الصفوف أو الأعمدة المخفية فورًا.

مقالات ذات صلة:

• كيفية النقر أو النقر المزدوج على خلية لفتح نموذج مستخدم محدد في Excel؟
• كيفية إضافة علامة اختيار في خلية بالنقر المزدوج في Excel؟
• كيفية إضافة التاريخ/الوقت الحالي تلقائيًا في خلية بالنقر المزدوج في Excel؟
• كيفية النقر المزدوج على خلية وإضافة 1 إلى قيمة تلك الخلية في Excel؟
• كيفية ظهور تقويم منبثق عند النقر على خلية محددة في Excel؟